Jak zmienić czcionkę i rozmiar czcionki we wszystkich polach tekstowych w dokumencie programu Word?

W tym artykule mowa o zmianie czcionki i rozmiaru czcionki w polach tekstowych w bieżącym dokumencie lub dokumentach w określonym folderze. Wypróbuj metodę VBA w artykule.

Zmień czcionkę i rozmiar czcionki w polach tekstowych w bieżącym dokumencie

Zmień czcionkę i rozmiar czcionki w polach tekstowych wszystkich dokumentów w folderze

Zmień czcionkę i rozmiar czcionki w polach tekstowych w bieżącym dokumencie

W przypadku pól tekstowych zmienisz czcionkę i rozmiar czcionki w bieżącym dokumencie, zastosuj poniższy kod VBA, aby rozwiązać problem.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj następujący kod do okna Module.

Kod VBA: zmień czcionkę i rozmiar czcionki we wszystkich polach tekstowych w bieżącym dokumencie

Sub FormatTextsInTextBoxes()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDoc As Document
    Set xDoc = ActiveDocument
    On Error Resume Next
    For Each xShape In xDoc.Shapes
        xShape.Select
        If xShape.GroupItems Is Nothing Then
            With xShape.TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
            GoTo LblExit
        End If
        For I = 1 To xShape.GroupItems.Count
            With xShape.GroupItems(I).TextFrame.TextRange.Font
                .Name = "Arial"
                .Size = 20
            End With
        Next
LblExit:
    Next
End Sub

Note: W kodzie „Arial"I"20”To określona czcionka i rozmiar czcionki w moim przypadku. Możesz je zmienić według własnych potrzeb.

3. wciśnij F5 klucz do uruchomienia kodu. Następnie czcionka i rozmiar czcionki wszystkich tekstów w polach tekstowych są zmieniane na określoną czcionkę i rozmiar czcionki. Zobacz zrzut ekranu:

Zmień czcionkę i rozmiar czcionki we wszystkich polach tekstowych wszystkich dokumentów w folderze

Aby zbiorczo zmienić czcionkę i rozmiar czcionki pól tekstowych w wielu dokumentach Word, musisz zastosować poniższy kod VBA.

1. Zbierz wszystkie dokumenty docelowe, które zawierają pola tekstowe, zmienisz czcionkę i rozmiar czcionki w tym samym folderze.

2. W otwierającym dokumencie programu Word naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj następujący kod do okna Module.

Kod VBA: zmień czcionkę i rozmiar czcionki w polach tekstowych wielu dokumentów

Sub FormatTextsInTextBoxesInMultiDoc()
'Updated by ExtendOffice 20181128
    Dim I As Long
    Dim xShape As Shape
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileStr As String
    On Error Resume Next
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolder = xDlg.SelectedItems(1) + "\"
        xFileStr = Dir(xFolder & "*.doc", vbNormal)
        While xFileStr <> ""
            Documents.Open xFolder & xFileStr
            For Each xShape In ActiveDocument.Shapes
                xShape.Select
                If xShape.GroupItems Is Nothing Then
                    With xShape.TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                    GoTo LblExit
                End If
                For I = 1 To xShape.GroupItems.Count
                    With xShape.GroupItems(I).TextFrame.TextRange.Font
                        .Name = "Arial"
                        .Size = 20
                    End With
                Next
LblExit:
            Next
            ActiveDocument.Save
            ActiveDocument.Close
            xFileStr = Dir()
       Wend
    End If
End Sub

4. wciśnij F5 klucz do uruchomienia kodu. W otwarciu Przeglądaj wybierz folder (zawiera dokumenty, w których zmienisz czcionkę i rozmiar czcionki w polach tekstowych) i kliknij OK przycisk.

Następnie czcionka wszystkich pól tekstowych i rozmiar czcionki dokumentów w wybranym folderze są zmieniane na określoną czcionkę i rozmiar czcionki.

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość  /  Przepisz tekst  /  Podsumowanie dokumentów  /  Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie...

✏ Edycja treści: Znajdź i zamień partii w wielu plikach  /  Zmień rozmiar wszystkich zdjęć  /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst...

🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie  /  Podziały sekcji  /  Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...

➕ Kreatywne wstawki: Wstawić Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  / Odkryj więcej w Wstaw grupę...

🔍 Precyzyjne wybory: Punktowy konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...

⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji...

???? Chcesz wypróbować te funkcje? Kutools dla Word oferuje Bezpłatna wersja próbna 60-day, bez ograniczeń! 🚀

Darmowe pobieranie     Czytaj więcej     Kup teraz