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