Question

vb中如何在word文档中插入图形文件

已经做好的word文档，要在它的最后用vb插入一个图形文件，代码
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)
newDoc.Content.InsertAfter "123" & "." & vbCr

Clipboard.Clear '清除剪贴板
Clipboard.SetData form.picture1.Picture 'vbCFBitmap 图片框中图片装入剪贴板
MyWord.Selection.Paste '将剪贴板中的图像复制到Word文档中
MyWord.Selection.TypeText (vbCrLf) '换行
newDoc.Content.InsertAfter "123" & "." & vbCr
Set NewDoc = Nothing
Set MyWord = Nothing '清除对象

这样做的结果是图片放在了原来word文档的开始，怎样才能把图片放到两个”123“的中间，或者放到word文档的最后，急求高手指导

Answer 1

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 '清除对象