V dnešnom článku by sme vám chceli vysvetliť, ako nájsť a nahradiť viac položiek v dokumente Word.
Zabudovaná funkcia v programe Word „Nájsť a nahradiť“ nám umožňuje nájsť a nahradiť slovo alebo frázu naraz. To určite nemôže uspokojiť našu potrebu hromadného spracovania.
V skutočnosti sme v jednom z našich predchádzajúcich článkov rozšírili funkciu, aby sme našli viac položiek naraz. Ďalšie informácie nájdete v tomto článku: 2 rýchle spôsoby, ako nájsť viac položiek v jednom slovnom dokumente súčasne
Vyššie uvedený odkaz hovoril o tom, ako nájsť viac položiek súčasne. A tento článok vám tiež ukáže, ako nahradiť každú položku odlišnou novou.
Spustite Word VBA na vyhľadanie a nahradenie viacerých položiek
Makro je jediný spôsob, ktorý zostáva na prispôsobené a dávkové spracovanie úloh v programe Word. Postupujte podľa nasledujúcich krokov a splňte svoju misiu.
- V prvom radeost, otvor tvoj tarzískať dokument.
- Potom kliknite na kartu Vývojár, ak je na páse s nástrojmi k dispozícii.
- A kliknite na „Visual Basic“ vedľa, aby ste otvorili editor VBA v programe Word. Alebo môžete namiesto toho stlačiť kombináciu klávesov „Alt + F11“.
- Ďalej kliknite na „Normálny“ v ľavom stĺpci.
- A v pruhu ponuky kliknite na „Vložiť“.
- V rozbaľovacej ponuke zvoľte možnosť „Modul“.
- Potom dvakrát kliknite na nový modul, aby ste ho otvorili.
- Vložte nasledujúce kódy do modulu:
Sub FindAndReplaceMultiItems () Dim strFindText ako reťazec Dim strReplaceText ako reťazec Dim nSplitItem tak dlho Application.ScreenUpdating = False 'Zadajte položky, ktoré sa majú nahradiť, a nové. strFindText = InputBox ("Zadajte položky, ktoré sa tu nachádzajú, oddelené čiarkou:", "Položky, ktoré sa majú nájsť") strReplaceText = InputBox ("Sem zadajte nové položky, oddelené čiarkou:", "Nové položky") nSplitItem = UBound ( Split (strFindText, ",")) 'Nájdite každú položku a nahraďte ju novou. Pre nSplitItem = 0 Na nSplitItem s výberom. Jednotka HomeKey: = wdStory s výberom. Find .ClearFormatting .Replacement.ClearFormatting .Text = Split (strFindText, ",") (nSplitItem) .Replacement.Text = Split (strReplaceText = Split, str "" ) (nSplitItem) .Format = False .MatchWholeWord = False Koniec s výberom. Find.Execute Replace: = wdReplaceAll Koniec s ďalšou nSplitItem Application.ScreenUpdating = Skutočný koncový sub
- Stlačením klávesu „F5“ spustíte makro.
- Teraz tu bude prvé vstupné pole. Zadajte položky, ktoré chcete nájsť, a oddeľte ich čiarkami. Nezadávajte medzeru za čiarkou.
- Potom pokračujte kliknutím na „OK“.
- Do druhého vstupného poľa zadajte nové položky a oddeľte ich čiarkami.
- Nakoniec kliknite na tlačidlo „OK“.
Tvárou v tvár strate údajov
Je ťažké byť veselý zoči-voči katastrofe údajov, ktorá by mohla zničiť cenné informácie. Nie je však potrebné podliehať panike, pretože môžete získať a Oprava slova utratením malého množstva peňazí.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane korupcia excelovať a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S