如何在Word文档的所有文本框中更改字体和字体大小?
本文讨论的是在当前文档或指定文件夹中的文档中更改文本框中的字体和字体大小。 请尝试本文中的VBA方法。
在当前文档的文本框中更改字体和字体大小
对于将在当前文档中更改字体和字体大小的文本框,请应用下面的VBA代码来解决该问题。
1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块,然后将以下代码复制到“模块”窗口中。
VBA代码:更改当前文档中所有文本框中的字体和字体大小
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
备注:在代码中,“宋体“和”20”是我指定的字体和字号。 您可以根据自己的需要进行更改。
3。 按 F5 键来运行代码。 然后,文本框中的所有文本的字体和字体大小将更改为指定的字体和字体大小。 看截图:
更改文件夹中所有文档的所有文本框中的字体和字体大小
若要在多个Word文档中批量更改文本框的字体和字体大小,您需要应用以下VBA代码。
1.请收集所有包含文本框的目标文档,您将在同一文件夹下更改字体和字体大小。
2.在打开的Word文档中,按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。
3.在 Microsoft Visual Basic应用程序 窗口中,单击 插页 > 模块,然后将以下代码复制到“模块”窗口中。
VBA代码:更改多个文档的文本框中的字体和字体大小
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。 按 F5 键来运行代码。 在开幕 浏览 窗口中,选择文件夹(包含您将在文本框中更改字体和字体大小的文档),然后单击 OK 按钮。
然后,所选文件夹中文档的所有文本框的字体和字体大小将更改为指定的字体和字体大小。
推荐的Word生产力工具
Kutools For Word - Word 的 100 多种高级功能,节省您 50% 的时间
- 复杂和重复的操作可以在几秒钟内完成一次处理。
- 跨文件夹一次将多个图像插入Word文档。
- 将文件夹中的多个Word文件合并并合并为所需顺序。
- 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
- 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...