Microsoft Learn

RobiNew · #1 11-18-2023, 11:02 AM

I found the code here below in "Microsoft Learn - Title: Range.InsertAfter method (Word)"

But it seems to fail. Can someone explain? Thanks!

Code:

Set doc = ActiveDocument 
Set rngRange = _ 
 doc.Range(doc.Paragraphs(1).Start, _ 
 doc.Paragraphs(1).End - 1) 
rngRange.InsertAfter _ 
 " This is now the last sentence in paragraph one."

Italophile · #2 11-18-2023, 01:25 PM

The code examples in the documentation aren't always accurate.

In this one the Range object has been omitted. It should be:

Code:

Dim doc As Document, rngRange As Range
Set doc = ActiveDocument
Set rngRange = _
    doc.Range(doc.Paragraphs(1).Range.Start, _
    doc.Paragraphs(1).Range.End - 1)
rngRange.InsertAfter _
    " This is now the last sentence in paragraph one."

RobiNew · #3 11-18-2023, 03:21 PM

Well, never mind! Many thanks, Italophile!

gmaxey · #4 11-18-2023, 11:00 PM

You are right. The documentation is often wrong. The documentation on CustomXMLParts is deplorable. The documentation is not only often wrong. It is often more complex than in needs to be. In this case, I would have simply used:

Code:

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.End = ActiveDocument.Range.Paragraphs(1).Range.End - 1
  oRng.InsertAfter " This is now the last sentence in paragraph 1"
lbl_Exit:
  Exit Sub
End Sub

RobiNew · #5 11-19-2023, 12:44 AM

Many thanks, Gmaxey, for the simplification and comments!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing Recorded Macro Selection/Clipboard Method to Range/FormattedText Method	zanodor	Word VBA	5	07-15-2022 01:25 AM
Intersect(Target, Sh.Range("AN4:AN5000")) can i reference this range another way?	trevorc	Excel Programming	2	04-30-2021 05:05 AM
Change the Column reference 'S' to a range ??? Sheets("Customer").Range("S" & ActiveCell.Row) = Date	trevorc	Excel Programming	1	03-04-2021 02:39 PM
Title case macro gets a "type mismatch" error at the Instr method	marceepoo	Word VBA	1	03-05-2020 09:41 PM
Is there a Microsoft Word Form Method That Restricts Placement, Length, and Spell Che	petec	Word	10	09-25-2011 08:41 AM