Welcome to VBAX iwritedoc62. Until one of the word guru's drops by, perhaps this will get you started in the right direction
Sub InsertAfterMethod() Dim MyText As String Dim MyRange As Object Set MyRange = ActiveDocument.Range MyText = "<Replace this with your text>" ' Selection Example: Selection.InsertAfter (MyText) ' Range Example: ' (Inserts text at the current position of the insertion point.) MyRange.Collapse MyRange.InsertAfter (MyText) End Sub
Yes, it doesn't loop through your documents, but if you wish to test it and see if it can be modified.