word如何把字标变成5号

1.如何把同一目录下的所有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