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 doc更改所选文本的字体。 （您可以使用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()选择整个文档。 有关添加Range方法
的参数，请参阅https://msdn.microsoft.com/en-us/vba/word-vba/articles/document-range-method-word