,,,, trin 1: press ", alt-f11," at åbne microsoft visual basic anvendelse vindue;,, trin 2: klik, modul om, at indsætte, regning, kopiere og pasta følgende vba kode i modul vindue;,, trin 3: så klik, løb, knap anvendelse af vba.,,, vba: søgning og udskiftning af samme indhold på tværs af flere dokumenter på én gang,,,,, - commandbutton1_click(), dim mydialog som filedialog, getstr (1 - 100) som klynge 100 sager er den maksimale anvendelse af denne kodeks,,, om fejl, genoptage næste,,, der mydialog = anvendelse. filedialog (msofiledialogfilepicker), med mydialog,,,. filters.clear,,,. filters.add "alle ord fil", "*. docx" 1,,,. allowmultiselect = sandt,,, i = 1, hvis. show = - 1 og, for hver stiselecteditem i. selecteditems,,, getstr (i) = stiSelectedItem,,,i = i + 1 ,,,Next,,,i = i - 1 ,,,End If ,,,Application.ScreenUpdating = False,,,For j = 1 To i Step 1,,,Set Doc = Documents.Open(FileName:=GetStr(j), Visible:=True),,, Windows(GetStr(j)).Activate,,,Selection.Find.ClearFormatting ,,,Selection.Find.Replacement.ClearFormatting,,, With Selection.Find ,,,.Text = "search" 'Find What ,,,.Replacement.Text = "find" 'Replace With ,,,.Forward = True,,.Wrap = wdFindAsk,,, .Format = False,,,.MatchCase = False,,,.MatchWholeWord = False,,,.MatchByte = True,,,.MatchWildcards = False,,, .MatchSoundsLike = False,,,.MatchAllWordForms = False,,,End With,,,Selection.Find.Execute Replace:=wdReplaceAll,,,Application.Run macroname:="NEWMACROS",,,ActiveDocument.Save,,,ActiveWindow.Close,,,Next,,, application.screenupdating = sandt,,,,,,, msgbox "operation, tak for", vbinformation,,, afrika,,,, note: kan du ændre teksten = "leder", afløser. tekst = "find", for at præcisere indholdet til søgte, og indholdet skal anvendes for udskiftning.,,