Hi there I'm trying to create a macro that will find and replace
misspelled words in the main text of a word file (wdMainTextStory) but
also in the endnotes (wdEndnotesStory). this macro will be called from
other sub macros to find and replace different list of words or
"spaces" combinations.
I'm no VBA nor macros wizard. I surfed the web collected some ideas for
the vba script and tested them.
I'm asking for some help I'm looking for someone who could rewrite the
macro in a way that works on those two storyranges only. this due to
speed issue: a macro that run trough all story ranges takes several
minutes to find and replace my set of words.
i think the problem with the current macro stays here :
If story <> wdMainTextStory And story <> wdEndnotesStory Then
Set rngStory = rngStory.NextStoryRange
I basically don't know how to write a piece of code that says "work
only on maintext and endnotes, or alternatively skip all storyranges
that differ (<>) from main text and endnotes.
I also wrote another version that was fully working. My work around was
repeating twice the code with this line to set the proper storyrange to
work on
Set rngStory = ActiveDocument.StoryRanges(wdXXXXStory)
the problem with this is that the code will work only on document that
has both story ranges. sometimes I have document without endnotes and
the macro won't work because can not find the wdendnotestory.
I would be very grateful for some help
here my code:
Sub Misspell(FindText As String, ReplaceText As String, _
bMatchCase As Boolean)
' screen update turned off to improve speed
Application.ScreenUpdating = False
Dim rngStory As Range
'following notes lines shows some code colllected on other macros might
be suefull in this case but seems to be not strictly necessary to run
the macro
'Dim lngJunk As Long
'lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType
'Iterate through all story types in the current document
'Iterate through all linked stories
For Each rngStory In ActiveDocument.StoryRanges
' Work only with the main body and endnotes
story = rngStory
If story <> wdMainTextStory And story <> wdEndnotesStory Then
'Set rngStory = rngStory.NextStoryRange
End If
With rngStory.Find
.Text = FindText
.Replacement.Text = ReplaceText
.Wrap = wdFindContinue
.MatchCase = bMatchCase
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
'Set rngStory = rngStory.NextStoryRange
'Loop Until rngStory Is Nothing
Next rngStory
Application.ScreenUpdating = True
End Sub
Sub errors()
Call Misspell("website", "Web site", True)
Call Misspell("Website", "Web site", True)
Call Misspell("web-site", "Web site", True)
Call Misspell("Web-site", "Web site", True)
Call Misspell("web site", "Web site", True)
Call Misspell("lay-out", "layout", True)
Call Misspell("internet", "Internet", True)
Call Misspell("towards", "toward", True)
Call Misspell(".Net", ".NET", True)
Call Misspell("on-line", "online", True)
Call Misspell("On-line", "Online", True)
Call Misspell(" Online", " online", True)
Call Misspell(" Email", "email", True)
Call Misspell("e-mail", "email", True)
Call Misspell("E-mail", "Email", True)
Call Misspell(" E-mail", " email", True)
Call Misspell("U.K.", "UK", True)
Call Misspell("WIFI", "Wi-Fi", True)
Call Misspell("WI-FI", "Wi-Fi", True)
End Sub
Sub ReplaceEmdash()
Call Misspell(" - ", " - ", True)
Call Misspell(" -- ", " - ", True)
Call Misspell(" --", " - ", True)
Call Misspell(" - ", " - ", True)
Call Misspell("-- ", " - ", True)
End Sub
Sub ReplaceSmartQuotes()
Call Misspell(" """, " "", True)
Call Misspell(""" ", "" ", True)
Call Misspell(".""", "."", True)
'Call Misspell("""*""", """", True)
End Sub