Word应用程序中的vbs自定义字体

Question

>我正在做将在Outlook中添加自定义签名的脚本。我找不到如何将自定义字体添加到objWord.Selection例如：

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

可能吗？

Answer 1

下面是有关如何设置字体大小，样式和类型的示例。请注意，您可以从 word 文档中更改所选文本的字体(您可以使用 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，了解如何为范围法添加参数