Word құжатындағы барлық мәтін ұяларында мәтіндік форматты өзгертудің 3 тәсілі

Төмендегі мақалада біз сізге Word құжатындағы барлық мәтін жолақтарында мәтіндік форматты өзгертудің 3 әдісін көрсеткіміз келеді.

Құжаттардан мәтіндік жәшіктер жиі көрінеді. Құжат мәтіндерін пішімдеу кезінде мәтін жолақтарындағы мәтіндерді ұмыта алмаймыз. Алайда, құжаттағы шашыраңқы мәтін ұяшықтары ішіндегі барлық мәтіндерді біржола таңдау қиынға соғуы мүмкін. Сондықтан форматтау мақсаттарынан тыс кезектен тыс өңдеуді жүргізудің қандай да бір амалын үйрену қажет.

1-әдіс: «Advanced Find» мүмкіндігін пайдалану

1. Біріншіден, «Үй» қойындысын нұқыңыз және «Өңдеу» тобындағы «Табу» командасының артындағы көрсеткі батырмасын басыңыз.
2. Ашылмалы тізімнен кейін «Іздеу және ауыстыру» диалогтық терезесін ашу үшін «Қосымша іздеу» тармағын таңдаңыз.
3. «Нені табу» мәтін жолына курсорды қойып, «^?» Енгізіңіз Ана жерде.
4. Содан кейін «Іздеу» батырмасын басып, «Негізгі құжаттағы мәтін ұяшықтары» тармағын таңдаңыз.
5. Енді сіз мәтіндік терезелердегі барлық мәтіндерді таңдай аласыз. Егер сіз «Нені табу» өрісіне салынатын жолды ұмытып кетсеңіз, онда сіз «Қосымша» батырмасын бассаңыз, өрісте қосымша параметрлерді ашып, содан кейін «Арнайы» батырмасын басыңыз. Әрі қарай «Кез келген таңбаны» таңдаңыз.
6. Барлық мәтіндерді таңдау кезінде жай ғана оларды қажет етіп форматтаңыз.

2-әдіс: бір құжаттағы барлық мәтін ұяшықтарындағы мәтіндік форматты өзгерту

1. Бастау үшін, VBA редакторын іске қосу үшін Word бағдарламасында «Alt+F11» пернелер тіркесімін басыңыз.
2. Әрі қарай «Қалыпты» батырмасын басыңыз.
3. Содан кейін «Кірістіру» қойындысын басып, «Модуль» таңдаңыз.
4. Жаңа модульді екі рет шертіп, төмендегі макросты қойыңыз:

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. Соңында «Іске қосу» батырмасын басыңыз.

Бұл макрост мәтіндік терезенің барлық мәтіндерін «Arial» шрифтімен 16 орынға қояды. Сіз бұл параметрді қажеттілікке қарай өзгерте аласыз.

3-әдіс: Бірнеше құжаттардағы барлық мәтін ұяшықтарындағы мәтіндік форматты пакеттік өзгерту

Енді біз бумалық өңдеу туралы айтатын болсақ, біз оны бірнеше файл арасында жасау қажеттілігін жоя алмаймыз.

1. Біріншіден, барлық мақсатты құжаттарды бір каталогта орналастырыңыз.
2. Әрі қарай 2-тәсілдегідей макросты орнатып іске қосыңыз. Бұл жолы сол кодтарды келесі кодтармен ауыстырыңыз:

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. Макросты іске қосу кезінде кіріс терезесі шақырылады, мысалы:
4. Мәтін жолағына қалтаның мекен-жайын енгізіп, «ОК» батырмасын басыңыз. Жол жолының соңына «\» қосуды ұмытпаңыз. Содан кейін Word-тың өз жұмысын орындауын күтіңіз.

Қолыңыздан келгенше толық дайындық жасаңыз

Файлыңыздың бүлінгені туралы ойлау қиын екенін түсінеміз. Алайда, біз шынымен де салыстырмалы түрде жоғары болатын бұл мүмкіндікті ешқашан назардан тыс қалдыра алмаймыз. Қалай болғанда да, профилактикалық шараларды қабылдау а айналасында жүргеннен гөрі аз қиындық тудырады құжатты түзету құрал.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. Excel бағдарламасын түзетіңіз және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com