Microsoft Learn - Title: Range.InsertAfter method (Word)"

[RobiNew]

I found the code here below in "Microsoft Learn - Title: Range.InsertAfter method (Word)"
But it seems to fail. Can someone explain? Thanks!

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]

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

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

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]

Well, never mind! Many thanks, Italophile!

[gmaxey]

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:

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]

Many thanks, Gmaxey, for the simplification and comments!