问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

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字体,中文字体不要动。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
美国在多少个国家有驻军? 美国在哪些国家有驻军? 美国在哪些国家派有驻军? 美国在其本土以外的驻军有多少 美国都在哪些国家有驻军 空调制热的正确调法 守捉郎与侠客行 《长安十二时辰》乱弹之五 小孩子给母亲节的祝福 孩子送给妈妈的母亲节祝福语句子2024 中国篮球a级教练都是谁 access为什么一定要使用docmd? 显卡3060ADOC L和不带L的区别? 七彩虹3060tiadoc是单8pin还是双8pin? VBA中程序语句Set PsDoc = word.documents.Open(&quot;d:&#92;My Documents&#92;&quot; & Adoc) 的含义 七彩虹RTX3070TiADOC跟WOC有什么区别? VB中ado与adoc是一种控件吗 七彩虹2080adoc和2080ad有什么区别 Adoc控件是什么 后缀名是adoc的文件用什么打开呢? 如图所示:adoc是什么格式啊? 后缀.adoc是word文档吗 vivo手机玩王者怎么退出实名制? vivo实名认证为什么清除实名,还要写原实名认证,自己的认证不了? vivo手机实名认证无法解除了是吗? 第五人格怎么取消实名认证vivo手机? vivo账号实名了,但不是自己的信息这么解除实名认证啊? vivo手机怎么解除和平精英未成年人检测系统 vivo手机的游戏怎么解除实名认证? 如何设置电脑指定时间关机 怎么让电脑会在一定的时间里关机? 有机酸代谢异常是什么意思? vb用户定义类型未定义 意大利的官方语言是什么? 心态平和的网名大全 适合女生的微信网名有哪些? 请各为帮我解释几个字,起名用的, “灏”的意思“轩”的意思,急用。 取名铭灏是什么意思? 马海毛指的是什么毛? 马海毛是什么动物身上的毛? 马海毛是什么样的毛? 马海毛用英语怎么说 马海毛衣的毛毛该怎样处理 汽车人出风口会进蟑螂吗? 如何投诉客运汽车内有蟑螂? 车里没水会有蟑螂吗 蟑螂是怎么爬到车内的 汽车空调内循环蟑螂会进来吗 车内有蟑螂如何处理? 汽车里面有蟑螂怎么办? 一套完整规范的CAD施工图需要多长时间?