Trinn 1: Trykk "Alt-F11" for å åpne Microsoft Visual Basic for Application vinduet;

Trinn 2: Klikk Module på Sett fanen, kopier og lim inn følgende VBA kode i Module vinduet;

Trinn 3: Deretter klikker du Kjør knappen for å bruke VBA

VBA: søking og erstatte samme innhold på tvers av flere dokumenter på. én gang
Sub CommandButton1_Click ()
Dim MyDialog Som Filedialog, GetStr (1 til 100) As String '100 filer er maksimal anvende denne koden
On Error Resume Neste
Sett MyDialog = Application.FileDialog (msoFileDialogFilePicker)
Med MyDialog
.Filters.Clear
.Filters.Add "All WORD File", " * .docx ", 1
.AllowMultiSelect = True
i = 1
Hvis .Show = -1 Så
For Hver stiSelectedItem I .SelectedItems
GetStr (i) = stiSelectedItem
i = i + 1
Neste
i = i - en
End If
Application.ScreenUpdating = False
For j = 1 til I Trinn 1
Sett Doc = Documents.Open (Filename: = GetStr (j), Synlig: = True)
Windows (GetStr (j)). Aktiver
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Med Selection.Find
.Text = "søk" 'Finn Hva
.Replacement.Text = "finne" "Erstatt med > .forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = Falske
.MatchSoundsLike = False
.MatchAllWordForms = False
End Med
Selection.Find.Execute Erstatt: = wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End Med
MsgBox "operasjon slutten, kan du se", vbInformation
End Sub

Merk: kan du endre Text = "søk", Replacement.Text = "finne" for å presisere innholdet det skal søkes, og innholdet skal søkes om erstatning.