A. vb.net 如何在word文檔的指定位置插入圖片
會用VBA嗎，先在word裡面插入圖片錄制宏，然後將錄制的VBA代碼修改成.net代碼就可以了
B. vb中如何在word文檔中插入圖形文件
Dim MyWord As Object
Dim NewDoc As Object
Set MyWord = CreateObject("Word.Application") '創建一個word對象
M = App.Path & "\123.doc"
Set NewDoc = MyWord.Documents.Open(M)
Clipboard.Clear '清除剪貼板
Clipboard.SetData Picture1.Picture 'vbCFBitmap 圖片框中圖片裝入剪貼板
MyWord.Selection.TypeText "123" & "." & vbCr '換行
MyWord.Selection.Paste '將剪貼板中的圖像復制到Word文檔中
MyWord.Selection.TypeText (vbCrLf) '換行
NewDoc.Content.InsertAfter "123" & "." & vbCr
Set NewDoc = Nothing
Set MyWord = Nothing '清除對象
C. 在Word中表格內批量插入文字與圖片的vb程序
新建一個文檔，文檔中插入圖片採用附件中的拖拽插入方法（可以保證插入的圖片順序），然後用替換功能將所有圖片後面添加一個回車符【ctrl+h調出替換對話框
查找內容輸入：(?)
替換為輸入：\1^p
高級或更多選擇「使用通配符」，點擊全部替換】
然後ctrl+a選中所有圖片，點擊插入→表格→表格，即可將所有圖片放到一個表格的一列中，然後復制這個表格，並選擇你現在問的中需要插入圖片的列（最好復制的圖片列和選中的需要插入圖片的列的行數相同），然後粘貼即可。
D. 怎樣用VB打開word文件，並插入一個圖片到該word文件
遲了一步，但不過還是貼點東西過來，要不然剛才花那麼多時間白研究了
先在工程引用microsoft word
Option Explicit
Dim WithEvents WordApp As Word.Application
Dim WithEvents WordDoc As Word.Document
Private Sub Command1_Click()
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.Documents.Add
WordApp.ActiveDocument.Shapes.AddPicture "C:\WINNT\CIBA1B.bmp"
如果要保存成你定下的名字就用WordApp.ActiveDocument.Saveas……
E. 如何在VB中建立word文檔，並寫入文字和圖片
首先說明，你這樣是寫TXT，不是DOC，雖然Word可以打開，但根本就不是Word文件。當然不能存儲圖片了。請參考我以下的代碼。建一個Command1。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim ap As Word.Application, doc As Document
Private Sub Form_Load() '這個過程不必做修改，是建立一個新的Word文檔
Set ap = CreateObject("word.application")
ap.Visible = True
Set doc = ap.Documents.Add
End Sub
Private Sub Command1_Click()
doc.Content.InsertAfter Text:="請輸入你要輸入的內容" '插入文字，請使用這種格式
doc.Shapes.AddPicture FileName:="D:\a.jpg" '插入圖片，請使用這種格式，路徑自己寫
End Sub
其他問題再找我。
F. VB如何將picturebox中生成的圖片插入到word報告的指定位置
doc.Shapes.AddPicture App.Path & "\位移.jpg", False, True, 0, 120, 450, 200
後面的數字分別代表圖片在word中的位置的左、高，以及圖片自身的長度和高度
G. 怎樣通過VB程序把圖片插入到用OPEN打開的WORD文件中
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyFileName As String = "xtreme.bmp"
Dim MyImage As Image = Image.FromFile(MyFileName)
Dim MyLeft As Object = 10
Dim MyTop As Object = 50
Dim MyWidth As Object = MyImage.Width
Dim MyHeight As Object = MyImage.Height
Me.Shapes.AddPicture(MyFileName, System.Reflection.Missing.Value, _
System.Reflection.Missing.Value, MyLeft, MyTop, MyWidth, _
MyHeight, System.Reflection.Missing.Value)
End Sub