To find and replace a text in the whole document in MS Word 2010 (including tables)

by

If your goal is to perform replacements in the whole documents (it looks so from the code, but it is not explicit), I would suggest you use Document.Range instead of the Selection object. Using Document.Range will make sure everything is replaced, even inside tables.

Also, it is more transparent to the user, as the cursor (or selection) is not moved by the macro.

Sub Test()
  If TextBox1.Text <> "" Then
    Options.DefaultHighlightColorIndex = wdNoHighlight
    With ActiveDocument.Range.Find
      .Text = "<Customer_Name>"
      .Replacement.Text = TextBox1.Text
      .Replacement.ClearFormatting
      .Replacement.Font.Italic = False
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End If
End Sub

More Related Contents:

  1. Split Words in the comment text
  2. Get list of sub-directories in VBA
  3. Sending HTTP requests with VBA from Word
  4. How to insert text into Outlook email editor using VBA
  5. Getting the headings from a Word document
  6. What is behind this difference in parentheses effect in VBA?
  7. Speed up multiple replacement
  8. Repeating Microsoft Word VBA until no search results found
  9. Macro to update all fields in a word document
  10. VBA code takes long time to execute in excel
  11. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  12. Can I iterate through all Outlook emails in a folder including sub-folders?
  13. Hidden features of VBA
  14. What is the lifetime of a global variable in excel vba?
  15. Excel VBA Macro: User Defined Type Not Defined
  16. How to check for empty array in vba macro [duplicate]
  17. Calling a Sub in VBA
  18. MS Access VBA Error: Run time error ’70’ Permission Denied
  19. Compiler Error: User-defined types not defined
  20. Is it better to use ADO or DAO in Access 2007?
  21. Open a workbook using FileDialog and manipulate it in Excel VBA
  22. Vba macro to copy row from table if value in table meets condition
  23. Is there an equivalent to Thread.Sleep() in VBA
  24. How to get logged-in user’s name in Access vba? [duplicate]
  25. Overflow when multiplying Integers and assigning to Long
  26. Meaning of .Cells(.Rows.Count,”A”).End(xlUp).row
  27. Defaulting a folder for FileDialog in VBA
  28. Missing VBA compiler message for wrong method name
  29. How do I loop an excel 2010 table by using his name & column reference?
  30. Is there a way to make UDF that gives a description like the native Excel functions have when user clicks the Fx button?

Leave a Comment