Microsoft Office Forums - View Single Post - [Solved] Insert text at the end of a sentence Find/Replace

Thread: [Solved] Insert text at the end of a sentence Find/Replace

View Single Post

Old

05-29-2012, 04:07 AM

macropod

macropod is offline

macropod uses Windows 7 64bit

Windows 7 64bit macropod uses Office 2010 32bit

macropod uses Office 2010 32bit

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 21,963

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

macropod has a reputation beyond repute

Default

Try the following macro:

Code:

Sub AddTags()
Dim Snt As Range
For Each Snt In ActiveDocument.Sentences
  If InStr(Snt.Text, "<start level = ""4""> ") = 1 Then
    Snt.InsertAfter "<end level = ""4""> "
  End If
Next
End Sub

To use it, see: http://www.gmayor.com/installing_macro.htm

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Reply With Quote