3 načini za paketno spreminjanje oblike besedila v vseh besedilnih poljih v Wordovem dokumentu

V tem članku spodaj vam želimo pokazati 3 načine za paketno spreminjanje oblike besedila v vseh besedilnih poljih v vašem dokumentu Word.

Besedilna polja so pogosto vidna v dokumentih. Pri oblikovanju besedil dokumentov ne smemo pozabiti na tiste v besedilnih poljih. Vendar pa lahko polja z besedilom, ki so razpršena v dokumentu, otežijo izbiro vseh besedil enkrat za vselej. Zato se je zaradi oblikovanja nujno treba naučiti kakšnega trika za paketno obdelavo.

1. način: Uporabite funkcijo »Napredno iskanje«.

1. Najprej kliknite zavihek »Domov« in kliknite gumb s puščico za ukazom »Najdi« v skupini »Urejanje«.
2. Nato na spustnem seznamu izberite »Napredno iskanje«, da odprete pogovorno okno »Najdi in zamenjaj«.
3. Kazalec postavite na besedilno polje »Najdi kaj« in vnesite »^?« tam.
4. Nato kliknite gumb »Najdi v« in izberite »Besedilna polja v glavnem dokumentu«.
5. Zdaj lahko vidite, da so vsa besedila v besedilnih poljih izbrana. Če morda pozabite na niz, ki ga želite vnesti v polje »Najdi kaj«, lahko kliknete gumb »Več«, da odprete več možnosti v polju in nato kliknete »Posebno«. Nato izberite »Kateri koli znak«.
6. Z vsemi izbranimi besedili jih le po potrebi oblikujte.

2. način: paketna sprememba oblike besedila v vseh besedilnih poljih v enem dokumentu

1. Za start izklop, pritisnite “Alt+ F11” v Wordu, da sprožite urejevalnik VBA.
2. Nato kliknite »Normal«.
3. Nato kliknite zavihek "Vstavi" in izberite "Modul".
4. Dvokliknite nov modul in tja prilepite spodnji 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. Na koncu kliknite »Zaženi«.

Ta makro nastavi vsa besedila besedilnih polj v pisavi »Arial« velikosti 16 pt. Te nastavitve lahko po potrebi spremenite.

3. način: paketna sprememba oblike besedila v vseh besedilnih poljih v več dokumentih

Zdaj, ko govorimo o paketni obdelavi, ne moremo odpraviti potrebe, da bi jo izvajali med več datotekami.

1. Najprej vse uredite tarpridobite dokumente v istem imeniku.
2. Nato namestite in zaženite makro, kot ste to storili pri metodi 2. Tokrat zamenjajte te kode z naslednjimi:

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. Med izvajanjem makra se prikaže poziv za vnos, kot je spodaj:
4. V besedilno polje vnesite naslov mape in kliknite »V redu«. Ne pozabite dodati “\” na koncu niza poti. Nato samo počakajte, da Word opravi svoje delo.

Dokler lahko, se v celoti pripravite

Zavedamo se, da je težko celo pomisliti, da bi se vaša datoteka poškodovala. Nikakor pa ne smemo spregledati te možnosti, ki je, če smo iskreni, razmeroma visoka. Kakor koli že, manj težav je sprejeti preventivne ukrepe kot skakati naokoli za a doc popraviti orodje.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com