| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]VBA word问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70172) |
| -- 作者：pcxjxjhkw -- 发布时间：2015/6/16 20:14:00 -- [求助]VBA word问题 问题1：rng = nDoc.Paragraphs(1).Range \'\'第一段 Dim fn As font fn = New Font("黑体", 22) \'设置文本对象的字体 rng.font = fn 请教老师，如何修改上述代码。 问题2：如何将打印机设置的纸张名称能word页面设置的纸张名称相通。 打印机：A４ .word页面设置的纸张：PaperSize = MSExcel.XlPaperSize.xlPaperA4 \'纸张大小 MSExcel.XlPaperSize.xlPaperA4 ？ A４ 谢谢
[此贴子已经被作者于2015/6/16 20:17:05编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/6/16 20:17:00 -- 有什么问题。 |
| -- 作者：pcxjxjhkw -- 发布时间：2015/6/16 20:18:00 -- 问题１报错，问题２还未来得及测试 我想：问题２，.PaperSize = A4 肯定报错
|
| -- 作者：大红袍 -- 发布时间：2015/6/16 20:23:00 -- 1、直接写
rng.Font.Size = 36 rng.Font.Name = "宋体"
2、PaperSize 直接设置数字，也就是纸张的数字，比如 8、9、10等等 |
| -- 作者：pcxjxjhkw -- 发布时间：2015/6/16 20:27:00 -- 老师：问题1最纠结的问题是：设置字体效果，我录制宏看了下，要设置很多呀。更重要的是狐表内置的字体设置框输出的字体效果是个数字呀。 |
| -- 作者：大红袍 -- 发布时间：2015/6/16 20:29:00 -- vba里面也是数字啊。
加入msgbox，运行宏，看对应的值啊 |
| -- 作者：pcxjxjhkw -- 发布时间：2015/6/16 20:47:00 -- MsgBox (Selection.Font) 报错！
|
| -- 作者：大红袍 -- 发布时间：2015/6/16 20:49:00 -- 无语，你直接msgbox属性啊，MsgBox (Selection.Font.Name) |