如何在一个已经存在的WORD模板中,指定位置插入内容?

Question

我想用VB操作word的一个已经建立好的模板文件.
并通过VB在模板指定位置插入相应的内容.相当于通过VB录入一些内容.自动加到WORD模板中相应的位置?请问这种操作用VB如何实现?我对WORD的打开及插入一些内容已经可以操作了.但是在指定位置如何插入,就不知道从何入手了?以下是我写的操作WORD的代码:private sub Test()
 '声明对象
  Dim oApp     As Word.Application
  Dim oDoc     As Word.Document
    
  '打开需要的文件
  Set oApp = CreateObject("Word.Application")
  oApp.Visible = False
  Set oDoc = oApp.Documents.Open("C:\Test.doc")  '这样操作后,则整个WORD内容被覆盖了.
  oDoc.Content.Text = "This is a test!"
    
  oDoc.Close True
  oApp.Quit False
  
  Set oDoc = Nothing
  Set oApp = Nothing  MsgBox "ok"End sub

Answer 1

我的做法是这样的，如果是在指定文字之后：
先查找指定文字：
With .Application.Selection.Find
  .Forward = True
  .ClearFormatting
  .MatchWholeWord = True
  .MatchCase = False
  .Execute findtext:="指定文字"
End With'如果查找得到
If .Application.Selection.Find.Found = True Then
  '取消对查找字符的选定，将插入点设置在查找字符后
  .Application.Selection.EndOf unit:=wdCharacter
  '如果是插入文本、表格或其他东西，我不记得怎么弄，懒得找了
  '如果是插入图像
  Dim thePicture As Word.InlineShape
  Set thePicture = .Application.Selection.InlineShapes.AddPicture( _
    FileName:="xxx.jpg", LinkToFile:=False, SaveWithDocument:=True)
End If