3 начина за групова промяна на текстовия формат във всички текстови полета в Word документ

В тази статия по-долу искаме да ви покажем 3 начина за групова промяна на текстовия формат във всички текстови полета във вашия документ на Word.

Текстовите полета често се виждат в изходящите документи. Докато форматираме текстове на документи, не можем да забравим тези в текстовите полета. Разпръскването на текстови полета в документ обаче може да ви затрудни да изберете всички текстове вътре веднъж завинаги. Следователно, за целите на форматирането, е спешно да научите някакъв трик, за да извършите груповата обработка.

Метод 1: Използвайте функцията „Разширено търсене“

1. На първо място, щракнете върху раздела „Начало“ и отидете да щракнете върху бутона със стрелка зад командата „Намери“ в групата „Редактиране“.
2. След това от падащия списък изберете „Разширено търсене“, за да отворите диалоговия прозорец „Намиране и замяна“.
3. Поставете курсора в текстовото поле „Намери какво“ и въведете „^?“ там.
4. След това щракнете върху бутона „Намери в“ и изберете „Текстови полета в основния документ“.
5. Сега можете да видите всички текстове в текстовите полета са в селекция. В случай, че забравите низа да бъде поставен в полето „Намери какво“, можете да щракнете върху бутона „Още“, за да отворите повече опции в полето и след това да кликнете върху „Специално“. След това изберете „Всеки символ“.
6. С всички избрани текстове, просто ги форматирайте според изискванията.

Метод 2: Партидна промяна на текстовия формат във всички текстови полета в един документ

1. За да започнете, натиснете „Alt + F11“ в Word, за да задействате VBA редактора.
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. Накрая щракнете върху „Run“.

Този макрос задава всички текстове на текстовото поле с шрифт „Arial“ на 16 pt. Можете да промените тези настройки при нужда.

Метод 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. Въведете адреса на папката в текстовото поле и щракнете върху „OK“. Не забравяйте да добавите „\“ в края на вашия низ. Тогава просто изчакайте Word да си свърши работата.

Направете пълна подготовка, докато можете

Разбираме, че е трудно дори да мислим, че файлът ви е повреден. Никога обаче не можем да пренебрегнем тази възможност, която, честно казано, е относително висока. Както и да е, по-малко трудно е да се вземат превантивни мерки, отколкото да скачате наоколо за a корекция на документ инструмент.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправете Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com