㈠ 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 '清除对象
㈡ 怎样用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……
㈢ VB中的图像如何运用windows的剪贴板粘贴到WORD
在VB中运用Windows剪贴板将图像粘贴至Word，首先需按下"alt + PRINTSCREEN"键截取当前活动窗口。与楼上的方法不同，这里采用的是捕捉活动窗口的一部分而非整个屏幕。接着，打开附件中的画图程序，利用其中的选定工具，通常是一个矩形形状的工具，选中你想要使用的图像区域。完成选区后，可以通过复制或粘贴功能，将选中的图像内容转移至Word文档中。
在复制过程中，确保已经选中了图像区域。使用Ctrl + C组合键执行复制操作。然后，切换到Word文档中，通过点击右键选择“粘贴”选项，或使用快捷键Ctrl + V来将图像粘贴至文档内。在粘贴过程中，确保Word文档处于活动状态，以确保图像正确地插入并显示在文档中。
在使用过程中，可能需要调整图像大小或位置以适应文档布局。可以通过点击插入的图像，然后使用鼠标拖动来调整图像的大小，或点击图像周围的小正方形按钮调整图像位置。此外，还可以使用“图片工具”中的各种选项来进一步编辑图像，如旋转、裁剪或添加文本等。
使用Windows剪贴板将图像粘贴至Word的流程简单高效，能够快速将图像整合至文档中。通过上述步骤，可以轻松地在VB环境下将图像运用至Word文档中，以满足不同需求。此方法适用于多种场景，如文档插图、报告制作等。