Jak zmienić czcionkę i rozmiar czcionki we wszystkich polach tekstowych w dokumencie programu Word?
W tym artykule mowa jest o zmianie czcionki i rozmiaru czcionki w polach tekstowych w bieżącym dokumencie lub dokumentach w określonym folderze. Proszę wypróbować 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 polach 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 poniższy 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
Uwagi: W kodzie, "Arial"I"20"To określona czcionka i rozmiar czcionki w moim przypadku. Możesz je zmienić na podstawie własnych potrzeb.
3. wciśnij F5 klucz do uruchomienia kodu. Następnie czcionki wszystkich tekstów i rozmiar czcionki w polach tekstowych zostaną zmienione na określoną czcionkę i rozmiar czcionki. Zobacz zrzut ekranu:
Zmień czcionkę i rozmiar czcionki we wszystkich polach tekstowych wszystkich dokumentów w folderze
W celu zmienienia czcionki i rozmiaru czcionki w wielu dokumentach programu Word należy zastosować poniższy kod VBA.
1. Zbierz wszystkie dokumenty docelowe zawierające pola tekstowe, aby zmienić czcionkę i rozmiar czcionki w tym samym folderze.
2. W otwartym dokumencie programu Word naciśnij klawisz 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 poniższy 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 Paść się okno, wybierz folder (zawiera dokumenty, które zmienią czcionkę i rozmiar czcionki w polach tekstowych) i kliknij przycisk OK przycisk.
Następnie wszystkie pola tekstowe "czcionka i rozmiar czcionki dokumentów w wybranym folderze zostaną zmienione na określoną czcionkę i rozmiar czcionki.
Kutools dla Word
Więcej niż zaawansowane funkcje 100 dla Word 2003, 2007, 2010, 2013, 2016 i 2019
Więcej funkcji | Darmowe pobieranie | Tylko $ 39.00 dla setek funkcji
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Be the first to comment.