Vb6 与word文档的对象一起运行

我需要按以下顺序在我的

.doc

上放置三个对象：

• 一个Picutre

• 一些文本

• 一个表

我最近学习了如何将图像放置在我想要的位置（文档顶部）。
但是现在，表正处于正文的中间，我怎么可以用“<代码>位置绝对< /代码>之类的文本设置文本，然后在<代码>文本< /代码>下面的<代码>表>代码>？p> 我的当前代码：

Private Sub Command1_Click()
Dim Word_App            As Word.Application
Dim Word_Doc            As Word.Document
Dim Word_Table          As Word.Table
Dim Word_Range          As Word.Range
Dim iCount              As Integer

'Insert the image
Word_App.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Word_App.Selection.InlineShapes.AddPicture FileName:="C:\p\53.jpg", SaveWithDocument:=True
Word_App.Selection.TypeParagraph

With Word_App
   'Here I place some text
End With

'Insert Table
Set Word_Table = Word_Doc.Tables.Add(Range:=Word_Doc.Range(Start:=20, End:=20), NumRows:=3, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed)

Word_Doc.SaveAs FileName:="C:\p\TestandoPicture"
Set Word_Table = Nothing
Set Word_App = Nothing
Set Word_Doc = Nothing
End Sub

以下是一个结果示例：

---

注意：

在我的代码中，我键入了表格的位置

开始：=20，结束：=20

，它位于字符的第20个位置。。。但是我想把它放在文本下面。。。这样做的最佳方法是什么？

突出显示文本，对突出显示的文本进行字数统计，然后使用其中的字符数来定位表格。粗糙但有效