Microsoft Office Forums - View Single Post

macropod · 01-25-2017, 02:30 PM

Merging those three macros is a simple undertaking:

Code:

Sub UpdateDocuments()
Application.ScreenUpdating = False
Dim strFolder As String, strFile As String, strDocNm As String, wdDoc As Document
strDocNm = ActiveDocument.FullName
strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.doc")
While strFile <> ""
  If strFolder & "\" & strFile <> strDocNm Then
    Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
    With wdDoc
      With .Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Text = "[text to replace here 1]"
        .Replacement.Text = "[replacement text here 1]"
        .Execute Replace:=wdReplaceAll
        .Text = "[text to replace here 2]"
        .Replacement.Text = "[replacement text here 2]"
        .Execute Replace:=wdReplaceAll
      End With
      Application.Run MacroName:="NEWMACROS"
      .Fields.Unlink
      .RemoveDocumentInformation (wdRDIAll)
      .Close SaveChanges:=True
    End With
  End If
  strFile = Dir()
Wend
Set wdDoc = Nothing
Application.ScreenUpdating = True
End Sub

If you want to run the code from your userform, change:
Sub UpdateDocuments()
to:
Sub CommandButton1_Click()

Note: it's impossible to know for sure where:
Application.Run MacroName:="NEWMACROS"
should go as I have no idea what that code is or what it is supposed to do. Furthermore, whatever service it provides could undoubtedly be incorporated into the same macro.

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.