使用自动化在Word中设置样式

Question

我有以下VB脚本应该打印：123456789以下列方式（前3位数 - 正常样式，下3位 - 强，最后3位 - 正常）：

Set word = CreateObject("word.application")
word.visible = true

Set docs = word.documents
Set doc = docs.add()

Set sel = word.selection
Set oldStyle = sel.style
Set newStyle = doc.Styles("Strong")

sel.typeText("123")

sel.Style = newStyle
sel.typeText("456")

sel.style = oldStyle
sel.typeText("789")

然而，结果是：前3位正常，其余为粗体。我做错了什么？

Answer 1

在此部分：Set oldStyle = sel.style，您可以创建样式的参考（指针）。稍后，您将样式更改为新样式。引用oldstyle将返回指针，也是新样式。