3 veidi, kā sērijveidā mainīt teksta formātu visos teksta lodziņos Word dokumentā

Šajā rakstā mēs vēlamies parādīt 3 veidus, kā mainīt teksta formātu visos Word dokumenta tekstlodziņos.

Tekstlodziņi bieži tiek rādīti dokumentos, kas nav izdoti. Formatējot dokumentu tekstus, mēs nevaram aizmirst tos tekstlodziņos. Tomēr teksta lodziņi, kas izkliedēti dokumentā, var apgrūtināt vienreizēju visu tekstu atlasīšanu iekšā. Tāpēc formatēšanas nolūkos ir steidzami jāiemācās daži triki, lai veiktu pakešapstrādi.

1. metode: izmantojiet funkciju “Papildu atrašana”

1. Vispirms noklikšķiniet uz cilnes Sākums un noklikšķiniet uz bultiņas pogas aiz komandas “Atrast” grupā “Rediģēšana”.
2. Pēc tam nolaižamajā sarakstā izvēlieties “Advanced Find”, lai atvērtu dialoglodziņu “Atrast un aizstāt”.
3. Novietojiet kursoru tekstlodziņā “Atrast ko” un ievadiet “^?” tur.
4. Pēc tam noklikšķiniet uz pogas “Atrast” un izvēlieties “Teksta lodziņi galvenajā dokumentā”.
5. Tagad jūs varat redzēt, ka visi teksti tekstlodziņos ir atlasīti. Gadījumā, ja esat aizmirsis virkni ievietot lodziņā “Atrast ko”, varat noklikšķināt uz pogas “Vairāk”, lai lodziņā atvērtu vairāk opciju, un pēc tam noklikšķiniet uz “Īpašais”. Pēc tam izvēlieties “Jebkura rakstzīme”.
6. Kad visi teksti ir atlasīti, vienkārši formatējiet tos pēc nepieciešamības.

2. metode: Partijas maiņas teksta formāts visos teksta lodziņos vienā dokumentā

1. Lai sāktu, programmā Word nospiediet taustiņu kombināciju “Alt+F11”, lai aktivizētu VBA redaktoru.
2. Pēc tam noklikšķiniet uz “Normal”.
3. Pēc tam noklikšķiniet uz cilnes “Ievietot” un izvēlieties “Modulis”.
4. Veiciet dubultklikšķi uz jaunā moduļa un tur ielīmējiet silto 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. Visbeidzot, noklikšķiniet uz “Palaist”.

Šajā makro visi tekstlodziņa teksti “Arial” fontu tiek iestatīti uz 16 pt. Pēc vajadzības varat mainīt šo iestatījumu.

3. metode: pakešu teksta formāta maiņa visos vairāku dokumentu teksta lodziņos

Tagad, kad mēs runājam par pakešu apstrādi, mēs nevaram novērst nepieciešamību to darīt starp vairākiem failiem.

1. Vispirms sakārtojiet visus mērķa dokumentus vienā direktorijā.
2. Pēc tam instalējiet un palaidiet makro tāpat kā 2. metodē. Šoreiz aizstājiet šos kodus ar šādiem:

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. Palaižot makro, tiks parādīts ievades lodziņš, piemēram, zemāk:
4. Ievadiet mapes adresi tekstlodziņā un noklikšķiniet uz “OK”. Ceļa virknes beigās neaizmirstiet pievienot “\”. Tad vienkārši pagaidiet, kamēr Word veiks savu darbu.

Veiciet pilnīgu sagatavošanos, kamēr varat

Mēs saprotam, ka ir grūti pat domāt par faila sabojāšanos. Tomēr mēs nekad nevaram aizmirst šo iespēju, kas, godīgi sakot, ir relatīvi augsta. Jebkurā gadījumā preventīvo pasākumu veikšana ir mazāk apgrūtinoša nekā lēkšana doc labot rīks.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp noteikt Excel un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar