3 načina za skupnu promjenu formata teksta u svim tekstualnim okvirima u Word dokumentu

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

Okviri za tekst često se vide u našim dokumentima. Dok formatiramo tekstove dokumenata, ne smijemo zaboraviti one u tekstualnim okvirima. Međutim, tekstni okviri razbacani u dokumentu mogu vam otežati odabir svih tekstova unutar jednom zauvijek. Stoga, izvan svrhe formatiranja, hitno je naučiti neki trik za izvođenje skupne obrade.

Metoda 1: Iskoristite značajku "Napredno traženje".

1. Prije svega kliknite karticu "Početna" i idite na gumb sa strelicom iza naredbe "Traži" u grupi "Uređivanje".
2. Zatim na padajućem popisu odaberite "Napredno traženje" da biste otvorili dijaloški okvir "Pronađi i zamijeni".
3. Postavite pokazivač na tekstualni okvir "Pronađi što" i unesite "^?" tamo.
4. Zatim kliknite gumb "Pronađi u" i odaberite "Tekstualni okviri u glavnom dokumentu".
5. Sada možete vidjeti da su svi tekstovi u tekstualnim okvirima u izboru. U slučaju da možda zaboravite niz koji treba staviti u okvir "Pronađi što", možete kliknuti gumb "Više" da biste otvorili više opcija u okviru, a zatim kliknite "Posebno". Zatim odaberite "Bilo koji znak".
6. Sa svim tekstovima u odabiru, samo ih formatirajte prema potrebi.

Metoda 2: Skupna promjena formata teksta u svim tekstualnim okvirima u jednom dokumentu

1. Za start off, pritisnite “Alt+ F11” u Wordu za pokretanje VBA editora.
2. Zatim kliknite "Normalno".
3. Zatim kliknite karticu "Umetni" i odaberite "Modul".
4. Dvaput kliknite na novi modul i tamo zalijepite donju makronaredbu:

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".

Ova makronaredba postavlja sve tekstove tekstnih okvira u "Arial" font veličine 16 pt. Po potrebi možete promijeniti ove postavke.

Metoda 3: Skupna promjena formata teksta u svim tekstualnim okvirima u više dokumenata

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

1. Prvo, sve uredite tardobiti dokumente pod istim imenikom.
2. Zatim instalirajte i pokrenite makro kao 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. Tijekom pokretanja makronaredbe pojavit će se upit u okviru za unos, kao što je dolje:
4. Unesite adresu mape u tekstni okvir i kliknite "U redu". Ne zaboravite dodati “\” na kraj vašeg niza staze. Zatim samo pričekajte da Word obavi svoj posao.

U potpunosti se pripremite dok možete

Razumijemo da je teško čak i pomisliti da bi se vaša datoteka oštetila. Međutim, nikada ne možemo zanemariti ovu mogućnost koja je, da budemo iskreni, relativno visoka. U svakom slučaju, manje je problematično poduzeti preventivne mjere nego skakutati uokolo po a doc popraviti alat.

Uvod za autora:

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