Przejdź do głównej zawartości

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!

Zapoznaj się z wyróżnionymi funkcjami poniżej lub kliknij tutaj, aby poznać pełną moc Kutools for Word.

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/XLSX)  /  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 czyszczenieWymieć Dodatkowe przestrzenie  /  Podziały sekcji  /   Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  /  Aby uzyskać więcej narzędzi do usuwania, przejdź do naszej grupy usuwania

Kreatywne wstawki: wstawka 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 naszej grupie wkładek

🔍 Precyzyjne wybory: Wskaż konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  /  Nawiguj z łatwością, korzystając z naszej grupy Select

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 ...

Przekształć swoje zadania Worda za pomocą Kutools. 👉 Pobierz teraz z 30-dniową wersją próbną .

 
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is an awesome post.Really very informative and creative contents. These concept is a good way to enhance the knowledge.I like it and help me to development very well.Thank you for this brief explanation and very nice information.Well, got a good knowledge.

Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations