Макрос создания бланков Word не применяет форматирование последовательно - PullRequest
2 голосов
/ 29 августа 2011

Я использую Microsoft Word 2010, и каждый макрос, который я пытаюсь создать для бланка, не работает.Форматирование моего текста не отображается при запуске макроса!Размер меняется, но жирный шрифт не применяется.Странно то, что каждый раз, когда я запускаю макрос в том же документе или в другом документе, он никогда не показывает одно и то же.

Я бы хотел, чтобы макет бланка получился таким (строка должна быть в 16, вторая строка в 10 и последние две строки в размере 12):

Turner and Sons Accouting Pty Ltd

ABN: 22 333 111 555

22 Kings St, Сидней 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 голосов
/ 27 января 2014

Является ли это просто "жирный шрифт", который является несовместимым, если это так из-за вашей строки "Selection.Font.Bold = wdToggle", вместо этого измените ее на "Selection.Font.Bold = True"

Затем вы можете добавить «Selection.Font.Bold = False» в конец, чтобы вы возобновили стандартный шрифт.

Адам

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...