+ -
当前位置:首页 → 问答吧 → 一个word VBA的问题,请高人看看!

一个word VBA的问题,请高人看看!

时间:2011-03-19

来源:互联网

想用下面的代码,在文档的最后加上 “说明:” 及 “备注:”,并加粗。但是“说明”加粗始终不管用,不知道是什么问题。请高人指点一下

附件

Doc1.rar(6.63 KB)

2011-3-19 21:45, 下载次数: 2

作者: andrewyang   发布时间: 2011-03-19

可试试如下代码:
With Selection
    .EndKey wdStory
    .TypeParagraph
    .Font.Bold = True
    .Font.Size = 10
    .TypeText Text:="说明:"
End With

或者
With Selection
    .EndKey wdStory
    .TypeParagraph
    .Text = "说明:"
    .Font.Bold = True
    .Font.Size = 10
End With

作者: sylun   发布时间: 2011-03-20