word全部字体如何改5号

1.怎么在word中批量改变所有五号文字的大小?

再菜单栏点开“编辑”----“替换”，弹出“查找与替换”对话框。

假设替换为8号

将鼠标放在“查找内容”旁边的文本框中，空点令光标闪烁（注意不要在框中输入任何字符）。在对话框最下一行找到“更多”，点开，对话框会放大，再在最下面一行点击“格式”----“字体”，又弹出字体对话框。在字体对话框右边找到“字号”，在下边的框中选择5，如果没有5，你可以在框中自己输入。

点击“确定”回到“查找与替换”对话框。

将鼠标放在“替换为”旁边的文本框中，空点令光标闪烁（注意不要在框中输入任何字符）。重复上面的过程，在对话框最下一行点“更多”----“格式”----“字体”，又弹出字体对话框。找到“字号”，在下边的框中选择8，如果没有8，你可以在框中自己输入。

然后“确定”----“全部替换”，即可。

特别注意：两步骤中光标一定要定位好。

2.如何把同一目录下的所有WORD字体改成5号字体

这个用VBA来处理比较容易。

比如你说的全部改成五号字体，可以这样： Sub Hi_tygs() Dim myDialog As FileDialog, myDoc As Document, info As String Application.ScreenUpdating = False Set myDialog = Application.FileDialog() With myDialog .Filters.Clear .Filters.Add "所有 WORD 文件"， "*.doc", 1 .AllowMultiSelect = True If .Show <> -1 Then Exit Sub For Each oDoc In .SelectedItems info = "" Set myDoc = Word.Documents.Open(FileName:=oDoc, Visible:=False) myDoc.Range.Font.Size = 10.5 myDoc.Close True Next End With Application.ScreenUpdating = True End Sub QQ:8230 0763。