3 načina za grupnu promjenu formata teksta u svim okvirima za tekst u Word dokumentu

U ovom članku u nastavku želimo vam pokazati 3 načina za grupnu promjenu formata teksta u svim tekstualnim okvirima u vašem Word dokumentu.

Tekstualni okviri se često vide u našim dokumentima. Dok formatiramo tekstove dokumenata, ne možemo zaboraviti one u tekstualnim okvirima. Međutim, tekstualni okviri koji se raštrkaju u dokumentu mogu vam otežati odabir svih tekstova u njima jednom zauvijek. Stoga, iz svrhe formatiranja, hitno je naučiti neki trik za grupnu obradu.

Metoda 1: Koristite funkciju „Napredno traženje“.

1. Prije svega, kliknite na karticu “Početna” i idite na dugme sa strelicom iza komande “Pronađi” u grupi “Uređivanje”.
2. Zatim na padajućoj listi odaberite “Napredno traženje” da otvorite dijaloški okvir “Pronađi i zamijeni”.
3. Stavite kursor na polje za tekst "Pronađi šta" i unesite "^?" tamo.
4. Zatim kliknite na dugme „Pronađi u“ i izaberite „Tekstualni okviri u glavnom dokumentu“.
5. Sada možete vidjeti da su svi tekstovi u tekstualnim okvirima u odabiru. U slučaju da zaboravite string koji treba staviti u okvir „Pronađi šta“, možete kliknuti na dugme „Više“ da biste otvorili više opcija u okviru, a zatim kliknite na „Posebno“. Zatim odaberite "Bilo koji znak".
6. Sa svim tekstovima u odabiru, samo ih formatirajte prema potrebi.

Metoda 2: Grupna promjena formata teksta u svim okvirima za tekst u jednom dokumentu

1. Za početak, pritisnite "Alt+F11" u Wordu da biste pokrenuli VBA editor.
2. Zatim kliknite na “Normalno”.
3. Zatim kliknite na karticu "Insert" i odaberite "Module".
4. I dvaput kliknite na novi modul i tamo zalijepite sljedeći 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 kraju, kliknite "Pokreni".

Ovaj makro postavlja sve tekstove okvira za tekst u fontu “Arial” na 16 pt. Po potrebi možete promijeniti ove postavke.

Metoda 3: Grupna promjena formata teksta u svim okvirima za tekst u više dokumenata

Sada kada govorimo o grupnoj obradi, ne možemo eliminirati potrebu da se to radi među više datoteka.

1. Prvo, sve ciljne dokumente složite u isti direktorij.
2. Sljedeće instalirajte i pokrenite makro kao što radite u metodi 2. Ovaj put zamijenite te kodove sljedećim:

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. Tokom pokretanja makronaredbe, pojavit će se prozor za unos koji će se pojaviti, kao što je dolje:
4. Unesite adresu fascikle u okvir za tekst i kliknite na “OK”. Ne zaboravite dodati “\” na kraju vašeg niza putanje. Onda samo sačekajte da Word obavi svoj posao.

Napravite potpunu pripremu dok možete

Razumijemo da je teško i pomisliti na to da se vaš fajl ošteti. Međutim, nikada ne možemo previdjeti ovu mogućnost koja je, da budemo iskreni, relativno visoka. U svakom slučaju, manje je problematično poduzeti preventivne mjere nego skakati okolo doc fix alat.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti Excel i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com