Hi
I have added following code to the code you provided, it is not replacing "folder or on a seperate disc" with blank.
Can you please advice on this?
Code:
Sub Document_Open()
With ActiveDocument.Content.find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "monitor"
.Replacement.Text = "review"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
With ActiveDocument.Content.find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = "folder or on a seperate disc"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
With ActiveDocument
If InStr(.Sections.First.Footers(wdHeaderFooterFirstPage).Range.Text, "Statement of Advice") > 0 Then
Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
Name:="Custom Breakout", Object:=wdOrganizerObjectStyles
Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
Name:="Custom Breakout Subheading", Object:=wdOrganizerObjectStyles
Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
Name:="Custom Page Heading", Object:=wdOrganizerObjectStyles
Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
Name:="Custom Page Subheading 1.0", Object:=wdOrganizerObjectStyles
Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
Name:="Custom Paragraph Main Heading 1.0", Object:=wdOrganizerObjectStyles
End If
End With
End Sub