vba - Word 2007 VBA 插入文本

Question

我想插入带有自定义格式的文本，然后将字体样式改回运行代码之前的样式。

Dim myText As String
Dim oldFont As Object
'Save old font    
Set oldFont = Selection.Font 

'Insert text with custom font
myText = "CUSTOM STRING"
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 26
Selection.Font.Bold = True
Selection.TypeText (myText)

'Revert font back to original
Set Selection.Font = oldFont

谁能解释一种方法来做我正在寻找的东西？

编辑:我应该更具体。如果我正在输入文本，我输入的特定格式会显示在“主页”选项卡上(例如 Comic Sans Ms、Size 22、Bold)。当我插入带有代码的文本时，这会更改我输入的格式，因此如果我继续输入，它将使用新字体类型，而不是 Comic Sans MS。我正在尝试这样做，如果我在通过 VBA 代码插入文本后继续输入，它将保留我的旧格式。

Answer 1

一种简单的解决方案是存储您要更改的所有属性，并在最后重置它们:

Dim myText As String
Dim oldFont As String
Dim oldSize As Integer
Dim oldBold As Boolean

'Save old font
oldFont = Selection.Font.Name
oldSize = Selection.Font.Size
oldBold = Selection.Font.Bold

'Insert text with custom font
myText = "CUSTOM STRING"
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 26
Selection.Font.Bold = True
Selection.TypeText (myText)

'Revert font back to original
Selection.Font.Name = oldFont
Selection.Font.Bold = oldBold
Selection.Font.Size = oldSize