如何將圖像和文本插入到Word文檔中

Question

我在VB.NET Visual Studio 2010中編寫應用程序。我的目標是將許多圖像從硬盤驅動器上的選定位置插入Word文檔，但每個圖像應與每個圖像分開其他由一行文字"picture no 1,2..."等。我已經編寫了可以選擇一些圖片並將它們插入到doc文件中的程序，但圖像不是通過文本行分隔的。我不知道該怎麼做，所以我要求你的幫助。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
     Handles Button1.Click 
    Dim oword As New Microsoft.Office.Interop.Word.Application() 
    Dim odoc As Word.Document 
    oword = CreateObject("Word.Application") 
    oword.Visible = True 
    odoc = oword.Documents.Add 
    Dim ofd As New OpenFileDialog() 
    ofd.Filter = "Images (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF" 
    ofd.Title = "Choose your images...." 
    ofd.Multiselect = True 
    If ofd.ShowDialog() = DialogResult.OK Then 
     For Each filename As String In ofd.FileNames 
      Dim oPara2, oPara3 As Word.Paragraph 
      oPara2 = odoc.Content.Paragraphs.Add 
      Dim map As InlineShape = odoc.InlineShapes.AddPicture _ 
       (filename, Type.Missing, Type.Missing,Type.Missing) 
      map.Height = 350 
      map.Width = 350 
      oPara3 = odoc.Content.Paragraphs.Add 
      oPara3.Range.Font.Name = "Arial" 
      oPara3.Range.Font.Size = 14 
      oPara3.Range.Text = "Picture no " 
     Next 
    End If 
End Sub 

Answer 1

問題1：您正在實例化Word不正確。在你向我們展示代碼示例的頂部使用此，擺脫了創建對象的：

Dim oword As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application() 

問題2：當你需要一個Word文檔中的位置的事情，最好使用範圍對象。想象一個範圍就像一個選擇，除非它在屏幕上不可見，並且您可以擁有任意數量的Range對象（儘管只有一個選擇是可能的）。

有很多方法可以實現你的目標;沿着這些線是我的個人喜好：

Dim oPara2 As Word.Paragraph, oRng as Word.Range 
oPara2 = odoc.Content.Paragraphs.Add() 
oRng = oPara2.Range 
oRng.Collapse(Word.WdCollapseDirection.wdCollapseStart) 
Dim map As InlineShape = odoc.InlineShapes.AddPicture _ 
      (filename, Type.Missing, Type.Missing, oRng) 
map.Height = 350 
map.Width = 350 
oRng = map.Range 
oRng.InsertAfter(vbCr) 
oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd) 
oRng.Text = "Picture no " & vbCr 
oRng.Font.Name = "Arial" 
oRng.Font.Size = 14 
oRng.Collapse(Word.WdCollapseDirection.wdCollapseEnd) 
NEXT