VBA word中插入文字和艺术字

1. 如何插入文字

在当前光标处（活动文档末尾）插入文字

Sub InsertTextAtEndOfDocument()
    ActiveDocument.Content.InsertAfter Text:=" The end."
End Sub

在所选内容前插入文字：

Sub AddTextBeforeSelection()
    Selection.InsertBefore Text:="new text "
End Sub

http://blog.csdn.net/chenqiai0/article/details/52108125

2. 如何插入艺术字

由于文字不容易选择位置