用vb在Word文档中插入和导出图片对象.doc

《用vb在Word文档中插入和导出图片对象.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、2、在Word文档中插入和导出图片对象[vb] viewplaincopy1.'先引用Microsoft Word 11.0 Object Library  2.Option Explicit  3.  4.Dim WordApp As Word.Application '创建Word应用程序  5.  6.Private Sub Command1_Click()  7.    On Error GoTo Errhandler  8.    CommonDialog1.Filter = "Word(*.Doc

2、)

3、*.Doc

4、AllFile(*.*)

5、*.*"  9.    CommonDialog1.FilterIndex = 1  10.    CommonDialog1.ShowOpen  11.    Set WordApp = New Word.Application '实例化  12.    WordApp.Documents.Open CommonDialog1.FileName '打开Word文件  13.    WordApp.Visible = True '显示 Office Word 界面  

6、14.    '或者Application.Visible = True  15.    WordApp.DisplayAlerts = False '不提示保存对话框  16.    WordApp.Selection.EndKey Unit:=wdStory  '将光标移到文档末尾，在文本后面插入图片对象  17.    Selection.TypeText Text:="我的图片" '图片的标题名称  18.      19.    '插入图片对象  20.    Selection.InlineSha

7、pes.AddPicture FileName:="C:CommandPicture.jpg", LinkToFile:=False, SaveWithDocument:=True  21.    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend  22.    Selection.InlineShapes(1).ConvertToShape.Select  23.    Selection.ShapeRange.Fill.Vi

8、sible = msoFalse  24.    Selection.ShapeRange.Fill.Transparency = 0#  25.    Selection.ShapeRange.Line.Weight = 0.75  26.    Selection.ShapeRange.Line.DashStyle = msoLineSolid  27.    Selection.ShapeRange.Line.Style = msoLineSingle  28.    Selection.ShapeRa

9、nge.Line.Transparency = 0#  29.    Selection.ShapeRange.Line.Visible = msoFalse  30.    Selection.ShapeRange.LockAspectRatio = msoTrue  31.    Selection.ShapeRange.Height = 361.4  32.    Selection.ShapeRange.Width = 481.6  33.    Selection.ShapeRange.Pictur

10、eFormat.Brightness = 0.5  34.    Selection.ShapeRange.PictureFormat.Contrast = 0.5  35.    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic  36.    Selection.ShapeRange.PictureFormat.CropLeft = 0#  37.    Selection.ShapeRange.PictureFormat

11、.CropRight = 0#  38.    Selection.ShapeRange.PictureFormat.CropTop = 0#  39.    Selection.ShapeRange.PictureFormat.CropBottom = 0#  40.    Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeHo