0

.docこの順序で3 つのオブジェクトを配置する必要があります。

  • 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

結果の例を次に示します。 例

Notice that:私のコードでは、テーブルの位置を入力しましたStart:=20, End:=20が、文字の 20 番目の位置にあります...しかし、テキストの下に配置したいのですが...これを行う最良の方法はどれですか?

4

1 に答える 1

0

テキストを強調表示し、強調表示されたテキストの単語数を数え、その文字数を使用して表を配置します。粗雑だが効果的。

于 2013-09-18T15:36:38.377 に答える