Hi All,



We use a standard template for our engineers so that they can report their activities after a job. Within the template there are several instructions texts and we remove them all by using a simple macro. The macro is hidden within a button.

I have just 1 on more then 100+ engineers with a run-time error. The macro worked fine before when the engineer was running win7, but when he switched to win10 it simply generates the error. We're using office 16.

The error is on this line:

Selection.Find.Style = ActiveDocument.Styles( _
"Subtitle Char;4. Instruction heading Char")

What I simply do not understand is that the macro works perfectly on every computer, but just not on one laptop. I have tried to check all the word settings possible, but no luck. We have re-installed office several times, but no luck.

Hopefully somebody here can help me out.
Thanks in advance!

Complete macro:

Private Sub CommandButton1_Click()
CommandButton1.Select
Selection.Delete

' Delinstr Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles( _
"Subtitle Char;4. Instruction heading Char")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles( _
"Subtitle;4. Instruction heading")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 4
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles( _
"Subtitle Char;4. Instruction heading Char")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Click here to enter a start date"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 5
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles( _
"Subtitle Char;4. Instruction heading Char")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Click here to enter an end date"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.LargeScroll Down:=1
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles( _
"Subtitle Char;4. Instruction heading Char")
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Click here to enter a date."
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Is the named style present on that PC?

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

The error would be caused when the style doesn't exist in that document. This will happen on any machine when the document is missing that exact stylename.

Those style names are VERY atypical and appear to have a semi-colon where I would have expected a comma (which would denote an alias). You only have to get one character wrong there and the macro will error because the style doesn't exist.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia