3 viisi tekstivormingu muutmiseks kõigis Wordi dokumendi tekstiväljades

Selles allolevas artiklis tahame teile näidata 3 võimalust tekstivormingu muutmiseks kõigis Wordi dokumendi tekstiväljades.

Väljasolevates dokumentides on sageli näha tekstikaste. Dokumendi tekstide vormindamisel ei saa me unustada neid tekstikastides. Dokumendis hajuvad tekstikastid võivad aga raskendada kõigi sees olevate tekstide lõplikku valimist. Seetõttu tuleb vormindamise eesmärgil kiiresti selgeks õppida pakktöötluse nipid.

1. meetod: kasutage funktsiooni „Täpsem otsing”.

1. Kõigepealt klõpsake vahekaardil "Kodu" ja klõpsake rühmas "Redigeerimine" käsu "Leia" taga olevat noolenuppu.
2. Järgmisena valige ripploendist "Täpsem otsing", et avada dialoogiboks "Otsi ja asenda".
3. Viige kursor tekstiväljale "Leia mida" ja sisestage "^?" seal.
4. Seejärel klõpsake nuppu "Otsi" ja valige "Põhidokumendi tekstikastid".
5. Nüüd näete, et kõik tekstikastides olevad tekstid on valikus. Kui võite unustada stringi, mis tuleb kasti "Leia mida" panna, võite klõpsata nupul "Veel", et avada kastis rohkem valikuid, ja seejärel klõpsata "Eriline". Järgmisena valige "Iga tähemärk".
6. Kui kõik tekstid on valitud, vormindage need vastavalt vajadusele.

2. meetod: muutke ühe dokumendi kõigis tekstikastides tekstivormingut

1. Alustamiseks vajutage Wordis VBA redaktori käivitamiseks klahvikombinatsiooni „Alt + F11”.
2. Järgmisena klõpsake nuppu "Tavaline".
3. Seejärel klõpsake vahekaarti "Sisesta" ja valige "Moodul".
4. Ja topeltklõpsake uut moodulit ja kleepige sinna allolev 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. Lõpuks klõpsake nuppu „Käivita“.

See makro määrab kõik tekstikasti tekstid "Arial" fondi suuruseks 16 pt. Saate neid seadistusi vastavalt vajadusele muuta.

3. meetod: mitme dokumendi kõigi tekstiväljade tekstivormingu pakettmuutmine

Nüüd, kui me räägime paketttöötlusest, ei saa me kaotada vajadust seda teha mitme faili vahel.

1. Esiteks korraldage kõik sihtdokumendid samasse kataloogi.
2. Järgmisena installige ja käivitage makro nagu 2. meetodis. Seekord asendage need koodid järgmiste koodidega:

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. Makro käitamise ajal kuvatakse sisestuskast, mis viipab, näiteks järgmine:
4. Sisestage tekstikasti kausta aadress ja klõpsake "OK". Ärge unustage oma tee stringi lõppu lisada "\". Seejärel oodake, kuni Word oma töö teeb.

Tehke täielik ettevalmistus, kuni saate

Mõistame, et on raske isegi mõelda, et teie fail rikub. Siiski ei saa me kunagi mööda vaadata sellest võimalusest, mis on ausalt öeldes suhteliselt suur. Igatahes on ennetavate meetmete võtmine vähem tülikas kui ringi hüppamine doc parandada vahend.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas parandage Excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom