Vbscript 使用自动化设置Word中的样式

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

---

但是，结果是：前3位数字正常，其余数字粗体。我做错了什么？

在这一部分：

设置oldStyle=sel.style

您创建了一个指向该样式的引用（指针）。稍后，将样式更改为新样式。引用oldstyle将返回指针，新样式也是如此。

在这一部分：

设置oldstyle=sel。style

您将创建对样式的引用（指针）。稍后，将样式更改为新样式。引用旧样式将返回指针，新样式也是如此

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")