兄弟 ，为了你这个问题 ，我弄了很久了。已解决
详情见
http://topic.csdn.net/u/20110402/17/9849caf5-3923-4644-ac1d-69abdf62862f.html?1358710546
----------
Sub test()
Dim objWordApp As Object
Dim objWord As Object
Dim myRange As Object
Dim mySelection As Object
Set objWordApp = CreateObject("Word.Application")
Set objWord = objWordApp.Documents.Open("d:\测试文件.doc")
'遍历新生成的文档，定位到"iiiiiiiiiiiiiiiii"，在其前面加入 hhhhhhh
Set mySelection = objWord.ActiveWindow.Selection '这个是问题解决的关键点
'Set myRange = objWord.Content ' 一开始是以rang为搜索，不对的
mySelection.Find.ClearFormatting
mySelection.Find.Execute findText:="iiiiiiiiiiiiiiiii", Forward:=True
If mySelection.Find.Found = True Then
' 下面注释的 也可实现效果
' With mySelection
' .Collapse Direction:=wdCollapseStart
' .TypeParagraph
' .MoveUp Unit:=wdLine, Count:=1 '输入点向上移动一行
' .TypeText Text:="hhhhhhh" '内容
' End With
With mySelection
.InsertParagraphBefore
.InsertBefore "hhhhhhh"
End With
objWord.Save
End If
objWord.Close
objWordApp.Quit
End Sub
