我觉得你是对Word.Document属性方法理解错误,使用了add方法后是在指定行插入,未使用add方法则是对指定行修改,下述代码科看到用“啊啊啊”、“不不不”、“擦擦擦”替换第四行数据
Dim wddoc As Word.Document
Dim wd As New Word.Application
Dim px As Word.Paragraph
wd.Documents.Add
Set wddoc = wd.ActiveDocument
Set px = wddoc.Paragraphs.Add
px.Range.Text = "第一行" & vbCrLf & "第二行" & vbCrLf & "第三行" & vbCrLf
Set px = wddoc.Paragraphs.Add
px.Range.Text = "第四行" & vbCrLf & "第五行" & vbCrLf & "第六行" & vbCrLf
Set px = wddoc.Paragraphs(4)
px.Range.Text = "啊啊啊" & vbCrLf & "不不不" & vbCrLf & "擦擦擦" & vbCrLf '用该数据取代第4行数据
wd.Visible = True
Dim wddoc As Word.Document
Dim wd As New Word.Application
Dim px As Word.Paragraph
wd.Documents.Add
Set wddoc = wd.ActiveDocument
Set px = wddoc.Paragraphs.Add
px.Range.Text = "第一行" & vbCrLf & "第二行" & vbCrLf & "第三行" & vbCrLf
Set px = wddoc.Paragraphs.Add
px.Range.Text = "第四行" & vbCrLf & "第五行" & vbCrLf & "第六行" & vbCrLf
Set px = wddoc.Paragraphs(4)
px.Range.Text = "啊啊啊" & vbCrLf & "不不不" & vbCrLf & "擦擦擦" & vbCrLf '用该数据取代第4行数据
wd.Visible = True
能编个毛线衣吗?