Word信头生成宏不一致地应用格式

时间:2011-08-29 03:55:29

标签: vba ms-word word-vba text-formatting

我正在使用Microsoft Word 2010,我尝试为信头创建的每个宏都不起作用。运行宏时,我的文本格式不显示!大小更改,但粗体不适用。奇怪的是每次我在同一个文档或不同的文档中运行宏时,它都不会显示相同的内容。

我希望信头宏像这样(顶行应该是16,第二行是10,最后两行是12):

  

Turner and Sons Accouting Pty Ltd

     

ABN:22 333 111 555

     

22 Kings St,Sydney 2000

     

电话:(02)9675 4444传真:(02)9675 4443

该文字的代码是:

Sub Letterhead()
'

' Letterhead Macro
'

'
Selection.TypeText Text:="Turner and Sons Accounting Pty Ltd"
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.Font.Size = 10
Selection.TypeText Text:="ABN: 22 333 111 555"
Selection.TypeParagraph
Selection.Font.Size = 12
Selection.TypeText Text:="22 Kings St, Sydney 2000"
Selection.TypeParagraph
Selection.TypeText Text:="Phone: (02) 9675 4444 Fax: (02) 9675 4443"
End Sub

1 个答案:

答案 0 :(得分:0)

是否只是“粗体”是不一致的,如果是这样是由于你的“Selection.Font.Bold = wdToggle”行,将其改为“Selection.Font.Bold = True”

然后你可以在结尾添加“Selection.Font.Bold = False”,这样你就可以用标准字体恢复了。

亚当