VBS пользовательский шрифт в приложении Word - PullRequest
Новая
       47

VBS пользовательский шрифт в приложении Word

0 голосов
/ 07 июня 2018

Я делаю скрипт, который добавит пользовательскую подпись в Outlook.Я не могу найти, как добавить пользовательский шрифт в objWord.Selection, например: 

Set objWord = CreateObject("Word.Application")
objWord.Selection.fontPath "C://...../customFont.ttf"
objSelection.TypeText "some text example"

возможно ли это?

1 Ответ

0 голосов
/ 07 июня 2018

Вот пример того, как установить размер, стиль и тип шрифта.Обратите внимание, что вы можете изменить шрифт для выбранного текста из слова документа.(Вы можете выбрать текст с помощью Range ().) 

Set objWord = CreateObject("Word.Application")
objWord.Visible = False

Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection  
Set objRange = objDoc.Range()

objRange.Font.Name = "Arial"
objRange.Font.Size = 12
objRange.Font.Bold= True

См. Документацию по другим свойствам объекта шрифта:

https://msdn.microsoft.com/en-us/vba/word-vba/articles/font-object-word

https://msdn.microsoft.com/en-us/vba/excel-vba/articles/font-object-excel

Примечания:

  • Set objSelection = objWord.Selection создает объект выбора в начале документа - он используется для вставки текста, он не нужен для выбора шрифта.
  • Set objRange = objDoc.Range() выделяет весь документ.См. https://msdn.microsoft.com/en-us/vba/word-vba/articles/document-range-method-word для добавления параметров для метода Range
...