Работа с объектами документа слова

Question

мне нужно поместить три объекта на моем .doc в таком порядке:

• One Picutre;
• Some Text;
• One Table;

недавно я узнал, как поместить изображение, где я хочу (верх документа).
Но теперь таблица попадает в середину текста, как я могу задать текст с чем-то вроде Position Absolute, а затем Table ниже text?!

Мои данный код:

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 

Вот пример результата: Example http://i39.tinypic.com/29njpqw.jpg

Notice that: В моем коде, я напечатал позицию за моим столом Start:=20, End:=20 и это в 20-й позиции символа ... Но я хотел бы разместить его под текстом ... Какой лучший способ сделать это?

Answer 1

Выделите текст, произнесите количество слов в выделенном тексте, а затем используйте счетчик символов, чтобы расположить таблицу. Сырой, но эффективный.