3 Paraan ng Batch Baguhin ang Format ng Teksto sa Lahat ng Text Box sa Word Document

Sa artikulong ito sa ibaba, gusto naming ipakita sa iyo ang 3 paraan upang baguhin ang format ng teksto sa lahat ng mga text box sa iyong Word document.

Ang mga text box ay madalas na makikita sa labas ng mga dokumento. Habang nag-format ng mga teksto ng dokumento, hindi namin malilimutan ang mga nasa mga text box. Gayunpaman, ang mga text box na nakakalat sa isang dokumento ay maaaring magpahirap sa iyong piliin ang lahat ng mga teksto sa loob nang isang beses at para sa lahat. Samakatuwid, sa labas ng mga layunin sa pag-format, ito ay kagyat na matuto ng ilang trick upang gawin ang batch processing.

Paraan 1: Gamitin ang Feature na “Advanced Find”.

1. Una sa lahat, i-click ang tab na "Home" at pumunta upang i-click ang arrow button sa likod ng command na "Hanapin" sa pangkat na "Pag-edit".
2. Susunod sa drop-down na listahan, piliin ang "Advanced na Paghahanap" upang buksan ang dialog box na "Hanapin at Palitan".
3. Ilagay ang cursor sa “Find what” text box at ilagay ang “^?” doon.
4. Pagkatapos ay i-click ang "Find In" na buton at piliin ang "Mga Text Box sa Pangunahing Dokumento".
5. Ngayon ay makikita mo na ang lahat ng mga text sa mga text box ay nasa pagpili. Kung sakaling makalimutan mo ang string na ilalagay sa kahon na "Hanapin kung ano", maaari mong i-click ang "Higit pa" na buton upang magbukas ng higit pang mga opsyon sa kahon at pagkatapos ay i-click ang "Espesyal". Susunod na piliin ang "Any Character".
6. Sa lahat ng mga teksto sa pagpili, i-format lamang ang mga ito kung kinakailangan.

Paraan 2: Batch Change Text Format sa Lahat ng Text Box sa Isang Dokumento

1. Para magsimula, pindutin ang "Alt+F11" sa Word para ma-trigger ang VBA editor.
2. Susunod na pag-click sa "Normal".
3. Pagkatapos ay i-click ang tab na "Ipasok" at piliin ang "Modyul".
4. At i-double click ang bagong module at i-paste ang bellowing macro doon:

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. Panghuli, i-click ang "Run".

Itinatakda ng macro na ito ang lahat ng text box sa "Arial" na font sa 16 pt. Maaari mong baguhin ang mga setting na ito kung kinakailangan.

Paraan 3: Batch Change Text Format sa Lahat ng Text Box sa Maramihang Dokumento

Ngayon na pinag-uusapan natin ang tungkol sa pagproseso ng batch, hindi natin maalis ang pangangailangang gawin ito sa maraming file.

1. Una, ayusin ang lahat ng mga target na dokumento sa ilalim ng iisang direktoryo.
2. Susunod na i-install at patakbuhin ang macro tulad ng ginagawa mo sa paraan 2. Sa pagkakataong ito, palitan ang mga code na iyon ng mga sumusunod:

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. Habang pinapatakbo ang macro, magkakaroon ng input box na magpo-prompt up, tulad ng bellow:
4. Ipasok ang address ng folder sa text box at i-click ang "OK". Huwag kalimutang magdagdag ng “\” sa dulo ng iyong path string. Pagkatapos ay hintayin lamang ang Word na gawin ang trabaho nito.

Gumawa ng Buong Paghahanda habang Kaya Mo

Naiintindihan namin na mahirap isipin na ang iyong file ay nagiging corrupt. Gayunpaman, hindi natin kailanman mapapalampas ang posibilidad na ito na, sa totoo lang, ay medyo mataas. Gayon pa man, hindi gaanong mahirap gumawa ng mga hakbang sa pag-iwas kaysa sa paglukso-lukso para sa isang pag-aayos ng doc tool.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang Excel at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa