Ako nájsť a nahradiť viac položiek v dokumente Word

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.Vyhľadajte a nahraďte viac položiek v dokumente Word

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.

  1. V prvom radeost, otvor tvoj tarzískať dokument.
  2. Potom kliknite na kartu Vývojár, ak je na páse s nástrojmi k dispozícii.
  3. 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“.
  4. Ďalej kliknite na „Normálny“ v ľavom stĺpci.
  5. A v pruhu ponuky kliknite na „Vložiť“.
  6. V rozbaľovacej ponuke zvoľte možnosť „Modul“.Kliknite na „Normálny“ -> Kliknite na „Vložiť“ -> Kliknite na „Modul“
  7. Potom dvakrát kliknite na nový modul, aby ste ho otvorili.
  8. 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
  1. Stlačením klávesu „F5“ spustíte makro.Prilepiť kódy -> kliknite na tlačidlo Spustiť
  2. Teraz tu bude prvé vstupné pole. Zadajte položky, ktoré chcete nájsť, a oddeľte ich čiarkami. Nezadávajte medzeru za čiarkou.
  3. Potom pokračujte kliknutím na „OK“.
  4. Do druhého vstupného poľa zadajte nové položky a oddeľte ich čiarkami.
  5. Nakoniec kliknite na tlačidlo „OK“.Zadajte položky do oboch vstupných polí a 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

Komentáre sú uzavreté.