3 způsoby dávkové změny formátu textu ve všech textových polích v dokumentu aplikace Word

V tomto článku níže vám chceme ukázat 3 způsoby hromadné změny formátu textu ve všech textových polích v dokumentu aplikace Word.

Textová pole jsou často vidět v našich dokumentech. Při formátování textů dokumentů nesmíme zapomenout na ty v textových polích. Roztroušená textová pole v dokumentu vám však mohou ztížit výběr všech textů uvnitř jednou provždy. Z důvodu formátování je proto naléhavé naučit se nějaký trik, jak provádět dávkové zpracování.

Metoda 1: Využijte funkci „Pokročilé hledání“.

1. Nejprve klikněte na kartu „Domů“ a přejděte na tlačítko se šipkou za příkazem „Najít“ ve skupině „Úpravy“.
2. Dále v rozevíracím seznamu vyberte „Pokročilé hledání“ a otevřete dialogové okno „Najít a nahradit“.
3. Umístěte kurzor na textové pole „Najít co“ a zadejte „^?“ tam.
4. Poté klikněte na tlačítko „Najít v“ a vyberte „Textová pole v hlavním dokumentu“.
5. Nyní můžete vidět, že všechny texty v textových polích jsou ve výběru. V případě, že zapomenete řetězec, který chcete vložit do pole „Najít“, můžete kliknutím na tlačítko „Více“ otevřít další možnosti v poli a poté kliknout na „Speciální“. Dále vyberte „Jakýkoli znak“.
6. Se všemi vybranými texty je pouze naformátujte podle potřeby.

Metoda 2: Dávková změna formátu textu ve všech textových polích v jednom dokumentu

1. Chcete-li začít, stiskněte ve Wordu klávesy „Alt+F11“ pro spuštění editoru VBA.
2. Dále klikněte na „Normální“.
3. Poté klikněte na kartu „Vložit“ a vyberte „Modul“.
4. A dvakrát klikněte na nový modul a vložte tam následující 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. Nakonec klikněte na „Spustit“.

Toto makro nastaví všechny texty textových polí ve fontu „Arial“ na 16 bodů. Toto nastavení můžete podle potřeby změnit.

Metoda 3: Dávková změna formátu textu ve všech textových polích ve více dokumentech

Nyní, když mluvíme o dávkovém zpracování, nemůžeme eliminovat potřebu provádět to mezi více soubory.

1. Nejprve uspořádejte všechny cílové dokumenty do stejného adresáře.
2. Dále nainstalujte a spusťte makro jako v metodě 2. Tentokrát tyto kódy nahraďte následujícími:

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. Při spuštění makra se zobrazí výzva k zadání vstupního pole, například níže:
4. Do textového pole zadejte adresu složky a klikněte na „OK“. Nezapomeňte přidat „\“ na konec řetězce cesty. Pak už jen počkejte, až Word udělá svou práci.

Proveďte kompletní přípravu, dokud můžete

Chápeme, že je těžké i pomyslet na to, že se váš soubor poškodí. Nikdy však nemůžeme přehlédnout tuto možnost, která je, upřímně řečeno, poměrně vysoká. Každopádně je méně problematické přijmout preventivní opatření, než poskakovat po a oprava dokumentu nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com