Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub SearhAndReplace_MultipleFiles() Dim strFile As String Dim i As Integer Dim doc As Document Dim rng As Range Const strFolder = "C:\test\" strFile = Dir$(strFolder & "*.docx") Do Until strFile = "" Set doc = Documents.Open(strFolder & strFile) For Each rng In doc.StoryRanges With rng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "Rev. 1.0" .Replacement.Text = "Rev 1.1" .Replacement.Font.Size = 9 .Forward = True .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With Next rng doc.Save doc.Close strFile = Dir$() Loop End Sub