,,,,, alt-f11 stap 1: volgens de "," met Microsoft visuele toepassing raam; stap 2: klik,,, modules en in de etikettering, een kopie van de volgende code in het raam van de VBA modules;,, stap 3: daarna op die knop, de toepassing van de VBA.,,, de VBA: zoeken en vervangen door dezelfde inhoud in een aantal documenten op dezelfde tijd,,,,,, - commandbutton1_click (), donkere mydialog als het dossier, getstr (van 1 tot 100) voor de string van de 100 documenten is de grootste fout van de toepassing van de code,,,,, - herstel, mydialog = toepassing van het dossier (msofiledialogfilepicker),,,,, filters.clear en mydialog,,,,,, filters.add "document", ". Docx" 1,,,,,,, ik ben allowmultiselect = = 1,,, als display = - 1, in elk stiselecteditem selecteditems getstr (,,,.I) = stiSelectedItem,,, i = I + 1, de volgende,,,,, i = I - 1),,,,, Application.ScreenUpdating = vals als,,,, voor J = 1 voor I. 1,,, die doc = Documents.Open (FileName:=GetStr (J), Visible:=True),,, de ramen (GetStr (J)), Selection.Find.ClearFormatting.Activate,,,,,,, Selection.Find.Replacement.ClearFormatting, met Selection.Find,,,.Text = "Search"'Find wat,,,.Replacement.Text = "find"'Replace met,,,.Forward = waar.Wrap = wdFindAsk,,,,,,,.Format = vals,.MatchCase = valse,,,,,.MatchWholeWord = vals,.MatchByte = waar.MatchWildcards = vals,,,,,,,,.MatchSoundsLike = vals,.MatchAllWordForms = vals,,,,,, Selection.Find.Execute Replace:=wdReplaceAll met,,,,,, Application.Run macroname:= "NEWMACROS", ActiveDocument.Save,,,,, ActiveWindow.Close, neXT,,, application.screenupdating = echt,,,,, tot slot, dat aan het einde van een operatie, zie ", vbinformation, een einde te maken aan de,,,,,, je kunt veranderen, noot: tekst =," naar ", ter vervanging van de tekst:" vind. ", te specificeren wat te zoeken en de inhoud is van toepassing op,, vervangen.