Установить стиль в 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 вернет указатель, а также новый стиль.