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

6 odpovede na „Ako nájsť a nahradiť viacero položiek v dokumente programu Word“

  1. Ako overiť, že dokument pochádza z časti iného dokumentu? Želám si Ctrl-A (vystrihnutie sekcie) a Ctrl-V do Ctrl-F jeho zdrojového dokumentu.
    Hoci moje dokumenty nie sú právneho typu, stále preferujem strojové overenie textu vystrihnutého zo zdroja; Ľudské overenie je trochu riskantné, však?

  2. nefunguje,
    Existuje modifikácia tohto kódu, ktorá zvládne neobmedzené nahradenie? Zdá sa, že to zvládne iba určitý počet znakov.

  3. Existuje modifikácia tohto kódu, ktorá zvládne neobmedzené nahradenie? Zdá sa, že to zvládne iba určitý počet znakov.

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *