VBA Function Replace to Word 2010

Question

This is my first VBA attempt in Word. I want to Find multiple word matches and Replace All of them with the string I specify, preferably from an outside document. I have 1000 different words I want to replace with their 1000 different translations in a 200 page document. Now I'm stuck, because I can't get this function to work on my Word 2010 text. Is this code correct and how can I implement it?

Function R(StrFind As String, StrReplace As String)
  Application.ScreenUpdating = False
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = StrFind
    .Replacement.Text = StrReplace
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
  MsgBox R("q", "a")
  MsgBox R("w", "a")
  MsgBox R("e", "a")
  MsgBox R("r", "a")
  MsgBox R("t", "a")
  MsgBox R("y", "a")
  ActiveDocument.UndoClear
  Application.ScreenUpdating = True
End Function

@DisplayName I have 200 page documents in English and I want to replace the most common English words with their translations in Bulgarian. — Stray
– Stray, Commented Mar 6, 2018 at 9:07
@K.Dᴀᴠɪs I can make it with an if else as well. Is my function the problem for it not working as a macro? The replace all "q","w","e","r","t","y" with "a" is just an example. — Stray
– Stray, Commented Mar 6, 2018 at 9:08

Sam · Accepted Answer · 2018-03-06 10:18:28Z

0

You need to restructure your code to make it work. First, a method containing all the calls, and second a method executing the replace. Something like this:

Sub En2Bu
  R "q", "a"
  R "w", "a"
  R "e", "a"
  R "r", "a"
  R "t", "a"
  R "y", "a"
  ActiveDocument.UndoClear
  Application.ScreenUpdating = True
End Sub

Sub R(StrFind As String, StrReplace As String)
  Application.ScreenUpdating = False
  With Selection.Find ' Are you sure you want Selection here?
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = StrFind
    .Replacement.Text = StrReplace
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Selection.Find is perhaps a mistake? Do you want to do it only in the selected text?

answered Mar 6, 2018 at 10:18

Sam

5,7411 gold badge21 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Stray Over a year ago

I made a mistake then. It should search in the entire 200 page document for matches not just a selection of text. Search for first word, replace it everywhere in the document with it's translation. Search for second word, replace it everywhere in the document with it's translation. Up to the final word and it's translation.

Collectives™ on Stack Overflow

VBA Function Replace to Word 2010

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related