⑴ 怎样用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中如何在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 '清除对象
⑶ 在Word中表格内批量插入文字与图片的vb程序
新建一个文档,文档中插入图片采用附件中的拖拽插入方法(可以保证插入的图片顺序),然后用替换功能将所有图片后面添加一个回车符【ctrl+h调出替换对话框
查找内容输入:(?)
替换为输入:\1^p
高级或更多选择“使用通配符”,点击全部替换】
然后ctrl+a选中所有图片,点击插入→表格→表格,即可将所有图片放到一个表格的一列中,然后复制这个表格,并选择你现在问的中需要插入图片的列(最好复制的图片列和选中的需要插入图片的列的行数相同),然后粘贴即可。
⑷ 怎样通过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
⑸ VB6.0 如何将图形文件插入word
方法就可以了
⑹ 如何在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
其他问题再找我。
⑺ VB如何将picturebox中生成的图片插入到word报告的指定位置
doc.Shapes.AddPicture App.Path & "\位移.jpg", False, True, 0, 120, 450, 200
后面的数字分别代表图片在word中的位置的左、高,以及图片自身的长度和高度
⑻ 为什么vb.net向WORD表格中插入图片位置不正确
这是因为你的图片放置方式不是嵌入型,而是其他方式
WORD里如果希望跟处理文字一样对其进行各种属性处理,只能是嵌入型才可以
右键单击图片属性 环绕方式改成 嵌入型就可以了
⑼ vb.net 如何在word文档的指定位置插入图片
会用VBA吗,先在word里面插入图片录制宏,然后将录制的VBA代码修改成.net代码就可以了
⑽ 怎么截vb图到word中急!急!急!急!急哦!!!!1
在vb里按“Alt”+“PrtscrSysRq”键,活动的窗口图像就被拷贝到剪贴板里了,打开ps或是windows里的“画图”,新建一个空白画面,按“Ctrl”+“V”键,将剪贴板里的图粘贴进去,存成jpg或bmp格式文件。回到word里插入图片——来自文件即可。