3 moduri de a modifica în lot formatul textului în toate casetele de text din documentul Word

În acest articol de mai jos, dorim să vă arătăm 3 moduri de a schimba formatul de text în lot în toate casetele de text din documentul Word.

Casetele de text sunt adesea văzute în documente. În timp ce formatăm textele documentelor, nu le putem uita pe cele din casetele de text. Cu toate acestea, împrăștierea casetelor de text într-un document vă poate îngreuna să selectați toate textele din interior o dată pentru totdeauna. Prin urmare, din motive de formatare, este urgent să învățați un truc pentru a face procesarea în lot.

Metoda 1: Utilizați funcția „Găsire avansată”.

1. În primul rând, faceți clic pe fila „Acasă” și accesați butonul săgeată din spatele comenzii „Găsiți” din grupul „Editare”.
2. Apoi, în lista derulantă, alegeți „Căutare avansată” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
3. Puneți cursorul în caseta de text „Găsiți ce” și introduceți „^?” Acolo.
4. Apoi faceți clic pe butonul „Find In” și alegeți „Text Boxes in Main Document”.
5. Acum puteți vedea că toate textele din casetele de text sunt în selecție. În cazul în care ați uitat șirul care trebuie pus în caseta „Găsiți ce”, puteți face clic pe butonul „Mai multe” pentru a deschide mai multe opțiuni în casetă și apoi faceți clic pe „Special”. Apoi alegeți „Orice personaj”.
6. Cu toate textele în selecție, formatați-le după cum este necesar.

Metoda 2: modificarea lotului de format de text în toate casetele de text dintr-un document

1. Pentru început, apăsați „Alt+ F11” în Word pentru a declanșa editorul VBA.
2. Apoi faceți clic pe „Normal”.
3. Apoi faceți clic pe fila „Inserare” și alegeți „Modul”.
4. Și faceți dublu clic pe noul modul și inserați macrocomanda de mai jos acolo:

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. În cele din urmă, faceți clic pe „Rulați”.

Această macrocomandă setează toate textele casetelor de text în font „Arial” la 16 pt. Puteți modifica aceste setări după cum este necesar.

Metoda 3: modificarea lotului de format de text în toate casetele de text din mai multe documente

Acum că vorbim despre procesarea în lot, nu putem elimina necesitatea de a face acest lucru între mai multe fișiere.

1. În primul rând, aranjați toate documentele țintă în același director.
2. În continuare, instalați și rulați macrocomandă așa cum faceți în metoda 2. De data aceasta înlocuiți acele coduri cu următoarele:

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. În timpul rulării macrocomenzii, va apărea o casetă de introducere, cum ar fi mai jos:
4. Introduceți adresa folderului în caseta de text și faceți clic pe „OK”. Nu uitați să adăugați un „\” la sfârșitul șirului de cale. Apoi așteptați doar ca Word să-și facă treaba.

Faceți o pregătire completă cât puteți

Înțelegem că este greu să ne gândim că fișierul tău va fi corupt. Cu toate acestea, nu putem trece niciodată cu vederea această posibilitate care, să fiu sincer, este relativ ridicată. Oricum, este mai puțin supărător să iei măsuri preventive decât să țopăi pentru a doc fix instrument.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com