Dec 23 2021 03:51 AM
Hello,
I want to add a small sentence at the end of all paragraphs in a word text . Is there an automatic way to do it? maybe with autotext?
Dec 27 2021 04:28 PM
Use a macro containing the following code
Dim i As Long
Dim rng As Range
With ActiveDocument
For i = 1 To .Paragraphs.Count
Set rng = .Paragraphs(i).Range
rng.End = rng.End - 1
rng.InsertAfter " Some new text."
Next i
End With
Dec 29 2021 11:28 AM