3 spôsoby dávkovej zmeny formátu textu vo všetkých textových poliach v dokumente Word

V tomto článku nižšie vám chceme ukázať 3 spôsoby, ako hromadne meniť formát textu vo všetkých textových poliach v dokumente Word.

Textové polia sa často nachádzajú vo výstupných dokumentoch. Pri formátovaní textov dokumentov nemôžeme zabudnúť na tie v textových poliach. Rozptýlenie textových polí v dokumente však môže spôsobiť, že je ťažké vybrať všetky texty vo vnútri raz a navždy. Z dôvodu formátovania je preto nevyhnutné naučiť sa nejaký trik na dávkové spracovanie.

Metóda 1: Využite funkciu „Advanced Find“

1. Najskôr kliknite na kartu „Domov“ a potom kliknite na tlačidlo so šípkou za príkazom „Nájsť“ v skupine „Úpravy“.
2. Ďalej v rozbaľovacom zozname vyberte možnosť „Rozšírené vyhľadávanie“ a otvorte dialógové okno „Nájsť a nahradiť“.
3. Umiestnite kurzor na textové pole „Čo nájsť“ a zadajte „^?“ tam.
4. Potom kliknite na tlačidlo „Nájsť v“ a vyberte „Textové polia v hlavnom dokumente“.
5. Teraz môžete vidieť, že sú vybrané všetky texty v textových poliach. V prípade, že zabudnete reťazec vložený do poľa „Nájsť čo“, kliknutím na tlačidlo „Viac“ otvoríte ďalšie možnosti v poli a potom kliknete na „Špeciálne“. Ďalej zvoľte „Ľubovoľný znak“.
6. Pri výbere všetkých textov ich stačí podľa potreby naformátovať.

Metóda 2: Dávková zmena formátu textu vo všetkých textových poliach v jednom dokumente

1. Ak chcete začať, stlačte v programe Word klávesy „Alt + F11“, čím spustíte editor VBA.
2. Ďalej kliknite na „Normálny“.
3. Potom kliknite na kartu „Vložiť“ a zvoľte „Modul“.
4. A dvakrát kliknite na nový modul a vložte tam nasledujúce makro:

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

5. Nakoniec kliknite na tlačidlo „Spustiť“.

Toto makro nastaví všetky texty textových polí na písmo „Arial“ na 16 bodov. Tieto nastavenia môžete podľa potreby zmeniť.

Metóda 3: Dávková zmena formátu textu vo všetkých textových poliach vo viacerých dokumentoch

Teraz, keď hovoríme o dávkovom spracovaní, nemôžeme vylúčiť potrebu robiť to medzi viacerými súbormi.

1. Najprv usporiadajte všetky cieľové dokumenty do rovnakého adresára.
2. Ďalej nainštalujte a spustite makro, ako to robíte v metóde 2. Tentokrát nahraďte tieto kódy nasledujúcimi:

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Pri spustení makra sa zobrazí výzva na zadanie, napríklad nižšie:
4. Do textového poľa zadajte adresu priečinka a kliknite na tlačidlo „OK“. Nezabudnite na koniec reťazca cesty pridať znak „\“. Potom už len počkajte, kým Word splní svoju úlohu.

Vykonajte úplnú prípravu, kým môžete

Chápeme, že je ťažké myslieť na to, aby sa váš súbor poškodil. Nikdy však nemôžeme prehliadnuť túto možnosť, ktorá je, úprimne povedané, pomerne vysoká. Je každopádne menej problematické prijať preventívne opatrenia, ako poskakovať po doc opraviť nástroj.

Ú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 opraviť Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S