word VBA 図 文 挿入

オブジェクトの概念がまったく分かってないが、activedocumentに図と文を挿入するマクロの例

Option Explicit '変数定義は明示的に！そうするためのOption
Sub 文と図の挿入()

'オブジェクトの定義
'Dim objWord As Object
'Dim objDoc As Object
'Dim objSelection As Object
Dim objShape As Object

'Set objWord = CreateObject("Word.Application")
'objWord.Visible = True
'Set objDoc = objWord.Documents.Add()
'Set objDoc = ActiveDocument
'Set objSelection = objWord.Selection

'objSelection.TypeText "Here is a sentence preceding the picture."
'objSelection.TypeParagraph
'カーソル位置に文章を挿入する
Selection.TypeText "Here is a sentence preceding the picture." 'カーソル位置に""で囲んだ文章を挿入（画像添付前位置）
Selection.TypeParagraph '改行の挿入
Set objShape = Selection.InlineShapes.AddPicture("C:\Documents and Settings\pojiro\My Documents\My Pictures\mintty.bmp") 'に画像をInlineShapesとして挿入
Selection.TypeParagraph
Selection.TypeText "Here is a sentence following the picture." ''カーソル位置に""で囲んだ文章を挿入（画像添付後位置）
Selection.TypeParagraph '改行の挿入
End Sub

参考にしたサイト
Microsoft|TechNet←上のマクロはこのサイトの丸写し
エクセルVBA小技集←コードを読んで勉強するにはここ