Полагаю, вы могли бы использовать тот же код, который указан в вашей ссылке, но затем добавить строку, чтобы напечатать полученное слово doc. Я не знаком с синтаксисом слова, но это должно сработать (или хотя бы начать).
Заменить:
wd.Visible = True
wdocSource.Close SaveChanges:=False
С:
wd.Visible = True
wdocSource.print
wdocSource.Close SaveChanges:=False