Înlocuire text în documente

Sub FindAndReplaceInFolder()

  Dim objDoc As Document

  Dim strFile As String

  Dim strFolder As String

  Dim strFindText As String

  Dim strReplaceText As String

'Copiat de pe https://www.datanumen.com/blogs/find-replace-contents-multiple-word-documents/

'Sunt afisate cele 3 casete pentru introducere date - calea la folder, text cautat si text cu care se inlocuieste.

  strFolder = InputBox("Aici se introduce calea la folder:")

  strFile = Dir(strFolder & "\" & "*.doc*", vbNormal)

  strFindText = InputBox("Textul cautat:")

  strReplaceText = InputBox("Text cu care se inlocuieste:")

'Macrocomanda deschide fiecare fisier de tip doc* din folder, cauta si inlocuieste textul. Apoi salveaza si inchide fisierul.

  While strFile <> ""

    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)

    With objDoc

      With Selection

        .HomeKey Unit:=wdStory

        With Selection.Find

          .text = strFindText

          .Replacement.text = strReplaceText

          .Forward = True

          .Wrap = wdFindContinue

          .Format = False

          .MatchCase = False

          .MatchWholeWord = False

          .MatchWildcards = False

          .MatchSoundsLike = False

          .MatchAllWordForms = False

        End With

        Selection.Find.Execute Replace:=wdReplaceAll

      End With

      objDoc.Save

      objDoc.Close

      strFile = Dir()

    End With

  Wend

End Sub