下面的這段VBA代碼，在Word環(huán)境下使用，其功能是，在第三段的后面，插入一張圖片。同時，設(shè)置圖片的為緊密型。

　　ActiveDocument.Paragraphs(1).Range.Select
　　If (ActiveDocument.Paragraphs.Count > 3) Then
 　　       Dim MyRange As Range
  　　      Set MyRange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(3).Range.End, _End:=ActiveDocument.Paragraphs(3).Range.End)
    　　    MyRange.Select
　　End If
　　'在文檔中插入圖片并設(shè)置圖片為緊密型
　　Dim MyPic As InlineShape
　　Set MyPic = Selection.InlineShapes.AddPicture(ActiveDocument.Path & "\Pic\1.gif")
　　MyPic.LockAspectRatio = msoFalse
　　MyPic.Width = 100
　　MyPic.Height = 30
　　MyPic.ConvertToShape '轉(zhuǎn)換圖片，為環(huán)繞方式做準(zhǔn)備
　　ActiveDocument.Shapes.Item(1).WrapFormat.Type = wdWrapThrough '設(shè)置圖片為緊密型
　　Set MyPic = Nothing

　　注意，上面的代碼，藍(lán)色的那兩部分，就是實現(xiàn)將圖片插入到指定位置的關(guān)鍵代碼。其中，先設(shè)置一個選擇范圍，即MyRange，該選擇范圍是從第三段的末尾到第三段的末尾，實際上就相當(dāng)于將光標(biāo)定位在第三段的段落標(biāo)記那里了。最后，通過Selection在選中的范圍插入圖片，這樣就實現(xiàn)目的了。效果圖如下圖。