vba在文本文件中，找到指定的行后，在该行前面插入内容(差一步，错误为'ERROR 要求对象)
前面一个网友的问题，花了很久时间 ，完成了一大部分， ，但就差这么一点！
错误为 'ERROR 要求对象 赋值问题，大家可以调一下
那位高手补充一下
---------
eg:
比如我有一文本文档：
aaaaaaaaaaaaaa
bbbbbbbbbb
ccccccccc
ddddddddd
eeeeeee
fffffff
ggggggggg
iiiiiiiiiiiiiiiii
zzzzzzzzzz
现在我需要的是：1，找到该文件iiiiiiiiiiiiiiii所在的行（i在第8行），然后在该行前面（第7行）插入内容hhhhhhhhhh。请问在vba中如何实现？
-------
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 myRange = objWord.Content
myRange.Find.ClearFormatting
myRange.Find.Execute findText:="iii", Forward:=True
If myRange.Find.Found = True Then
'myRange.InsertBefore "hhhhhhh" 在前面插入可以成功
Debug.Print myRange.Style
Set mySelection = myRange.Select 'ERROR 要求对象 ,
mySelection.InsertRowsAbove ' 插入一行
mySelection.typetext Text:="hhhhhhh"
End If
objWord.Close
objWordApp.Quit
End Sub
[解决办法]
参考下面在Word中手动操作
查找iiiiiiiiiiiiiiiii，光标移到本行开头，再移到上一行末尾，插入文本hhhhhhhhh。
录制的宏对应代码：
Selection.Find.ClearFormatting
With Selection.Find
.Text = "iiiiiiiiiiiiiiiii"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=2
Selection.TypeText Text:="hhhhhhhhh"
[解决办法]
你想象的“插入”是不存在的，实际上系统是重写了一个多一行的文件。如果是文本文件，没有必要动用 Word 对象：
Dim strLine As String
Open App.Path & "\1.txt" For Input As #1
Open App.Path & "\2.txt" For Output As #2
Do Until EOF(1)
Line Input #1, strLine
If strLine = "iiiiiiiiiiiiiiiii" Then Print #2, "hhhhhhh"
Print #2, strLine
Loop
Close #2
Close #1
Kill App.Path & "\1.txt"
Name App.Path & "\2.txt" As App.Path & "\1.txt"
[解决办法]
Sub test()' Dim objWordApp As Object' Set objWordApp = CreateObject("Word.Application") Dim objWordApp As New Word.Application Dim objWord As Word.Document Dim myRange As Word.Range Dim mySelection As Word.Selection Set objWord = objWordApp.Documents.Open("d:\测试文件.doc") Set myRange = objWord.Content myRange.Select Set mySelection = objWord.ActiveWindow.Selection mySelection.Find.ClearFormatting mySelection.Find.Execute findText:="iiiiiiiiiiiiiiiii", Forward:=True If mySelection.Find.Found = True Then With mySelection ' .Collapse Direction:=wdCollapseEnd .InsertParagraphBefore .InsertBefore "hhhhhhh" End With objWord.Save End If objWord.Close objWordApp.QuitEnd Sub