MS word字体修改用法

发布网友发布时间：2022-04-26 05:18

共2个回答

热心网友时间：2022-06-21 02:38

唉，我VB都忘了，现在在玩儿VBA，不过语法应该差不多的。
你可以改编一下。
用法：
打开VBA编辑器，复制下面的代码，运行。把你的word文档全放到D:\test下，要么就改代码。
Sub lengfengfly()
Dim Adoc As String, PsDoc As Document, CurPath As String
'On Error Resume Next
ChDrive "D"
ChDir "D:\test"
Adoc = Dir("*.doc")
Application.ScreenUpdating = False
Do While Adoc <> ""
CurPath = CurDir("D")
Set PsDoc = Documents.Open(Adoc)
PsDoc.Activate
Selection.WholeStory
Selection.Font.Name = "黑体"
PsDoc.Save
PsDoc.Close True
ChDrive "D"
ChDir "D:\test"
Adoc = Dir()
Loop
Application.ScreenUpdating = True
End Sub
声明：部分代码是从“守柔”那里复制过来的！
以答代问：
为什么PsDoc.Save后，我的当前路径改变成了我的文档？
所以我不得不重设当前路径。哪位高手可以指点一二吗？

热心网友时间：2022-06-21 02:38

选中全文，【格式】/【字体】/【字体】标签中改变西文字体为需要的Century字体，中文字体不要动。