3 sposoby wsadowej zmiany formatu tekstu we wszystkich polach tekstowych w dokumencie programu Word

W tym artykule poniżej chcemy pokazać 3 sposoby wsadowej zmiany formatu tekstu we wszystkich polach tekstowych w dokumencie programu Word.

Pola tekstowe są często widoczne w dokumentach wyjściowych. Podczas formatowania tekstów dokumentów nie możemy zapomnieć o tych w polach tekstowych. Jednak pola tekstowe rozrzucone w dokumencie mogą utrudniać wybranie wszystkich tekstów w środku raz na zawsze. Dlatego poza celami formatowania, pilnie trzeba nauczyć się jakiejś sztuczki przetwarzania wsadowego.

Metoda 1: Wykorzystaj funkcję „Szukanie zaawansowane”

1. Najpierw kliknij zakładkę „Strona główna” i przejdź do przycisku ze strzałką znajdującego się obok polecenia „Znajdź” w grupie „Edycja”.
2. Następnie z listy rozwijanej wybierz „Szukanie zaawansowane”, aby otworzyć okno dialogowe „Znajdź i zamień”.
3. Umieść kursor w polu tekstowym „Znajdź co” i wpisz „^?” tam.
4. Następnie kliknij przycisk „Znajdź w” i wybierz „Pola tekstowe w dokumencie głównym”.
5. Teraz możesz zobaczyć, że wszystkie teksty w polach tekstowych są zaznaczone. W przypadku, gdy zapomnisz ciąg znaków do umieszczenia w polu „Znajdź co”, możesz kliknąć przycisk „Więcej”, aby otworzyć więcej opcji w tym polu, a następnie kliknąć „Specjalne”. Następnie wybierz „Dowolny znak”.
6. Po zaznaczeniu wszystkich tekstów wystarczy je sformatować zgodnie z wymaganiami.

Metoda 2: Zbiorcza zmiana formatu tekstu we wszystkich polach tekstowych w jednym dokumencie

1. Aby rozpocząć, naciśnij „Alt+F11” w programie Word, aby uruchomić edytor VBA.
2. Następnie kliknij „Normalne”.
3. Następnie kliknij zakładkę „Wstaw” i wybierz „Moduł”.
4. I kliknij dwukrotnie nowy moduł i wklej tam makro ryczące:

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 koniec kliknij „Uruchom”.

To makro ustawia wszystkie teksty w ramkach tekstowych czcionką „Arial” na 16 punktów. W razie potrzeby możesz zmienić te ustawienia.

Metoda 3: Wsadowa zmiana formatu tekstu we wszystkich polach tekstowych w wielu dokumentach

Teraz, gdy mówimy o przetwarzaniu wsadowym, nie możemy wyeliminować potrzeby wykonywania tego między wieloma plikami.

1. Najpierw należy umieścić wszystkie dokumenty docelowe w tym samym katalogu.
2. Następnie zainstaluj i uruchom makro, tak jak w metodzie 2. Tym razem zamień te kody na następujące:

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. Podczas uruchamiania makra pojawi się okno wprowadzania danych, takie jak poniżej:
4. Wprowadź adres folderu w polu tekstowym i kliknij „OK”. Nie zapomnij dodać „\” na końcu ścieżki. Następnie poczekaj, aż program Word wykona swoje zadanie.

Przygotuj się, póki możesz

Rozumiemy, że trudno nawet pomyśleć o uszkodzeniu pliku. Jednak nigdy nie możemy przeoczyć tej możliwości, która, szczerze mówiąc, jest stosunkowo wysoka. W każdym razie podjęcie środków zapobiegawczych jest mniej kłopotliwe niż skakanie po plik poprawka doc narzędziem.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawić program Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com