1、 2、在 Word 文档中插入和导出图片对象vb view plaincopy1. 先引用 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)|*.Doc|AllFile(*.*)|*.*“ 9. CommonDialog1.Filter
2、Index = 1 10. CommonDialog1.ShowOpen 11. Set WordApp = New Word.Application 实例化 12. WordApp.Documents.Open CommonDialog1.FileName 打开 Word 文件 13. WordApp.Visible = True 显示 Office Word 界面 14. 或者 Application.Visible = True 15. WordApp.DisplayAlerts = False 不提示保存对话框 16. WordApp.Selection.EndKey Unit:=wd
3、Story 将光标移到文档末尾，在文本后面插入图片对象 17. Selection.TypeText Text:=“我的图片“ 图片的标题名称 18. 19. 插入图片对象 20. Selection.InlineShapes.AddPicture FileName:=“C:CommandPicture.jpg“, LinkToFile:=False,SaveWithDocument:=True 21. Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 22. Selection.InlineShapes(1).C
4、onvertToShape.Select 23. Selection.ShapeRange.Fill.Visible = 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.ShapeRange.Line.T
5、ransparency = 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.PictureFormat.Brightness = 0.5 34. Selection.ShapeRange.PictureFormat.Contrast
6、= 0.5 35. Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic 36. Selection.ShapeRange.PictureFormat.CropLeft = 0# 37. Selection.ShapeRange.PictureFormat.CropRight = 0# 38. Selection.ShapeRange.PictureFormat.CropTop = 0# 39. Selection.ShapeRange.PictureFormat.CropBottom = 0# 40. Selec
7、tion.ShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn 41. Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionPage 42. Selection.ShapeRange.Left = wdShapeCenter 43. Selection.ShapeRange.Top = wdShapeCenter 44. Selection.ShapeRange.LockAnchor = False 45
8、. Selection.ShapeRange.WrapFormat.AllowOverlap = True 46. Selection.ShapeRange.WrapFormat.Side = wdWrapBoth 47. Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) 48. Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) 49. Selection.ShapeRange.WrapFormat.Distanc
9、eLeft = CentimetersToPoints(0.32) 50. Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) 51. Selection.ShapeRange.WrapFormat.Type = 3 52. Selection.ShapeRange.ZOrder msoSendBehindText 设置图片为衬托于文字下方 53. 54. 判断文档中是否存在图片对象 55. If ActiveDocument.Shapes.Count + ActiveDocument.Inline
10、Shapes.Count 0 Then 56. 取得图片的 2 种方法 57. 58. 第 1 种方法：用下面命令将文件另存为网页格式的文件，文件夹“MyWord.files”将保存 Word 文档中所有的图片 59. 这种方法对所有的 Word 版本均适用 60. ActiveDocument.SaveAs “c:MyWord.htm“, wdFormatHTML 保存为网页格式 61. 62. 第 2 种方法：引用 ADO 对象库，将所有的图片保存在数据库中，然后可以一张一张地显示出来 63. 64. 另外： 65. 如果 Word 文档是 docx 格式的，那可以按这个办法解决： 66.
11、 .docx 格式的文件本质上是一个 ZIP 压缩文件，.docx 格式文件的主要内容是保存为 XML 格式的，但文件并非直接保存于磁盘。 67. 它是保存在一个 ZIP 文件中，然后取扩展名为.docx。我们只需要用解压软件比如： WinZIP、WinRAR 或者 7ZIP 等软件进行解压就可以了。 68. 方法有两种，一种是将.docx 后缀名修改为.zip 后缀名；另一个方法就是打开 WinZIP 然后，选择此文档即可。 69. 图片资源文件都被保存在 wordmedia 文件夹中。 70. 71. Else 72. Debug.Print “Word 文档中不存在图片对象！“ 73. End If 74. 75. Errhandler: 76. Exit Sub 77. End Sub 78. 79. Private Sub Form_Unload(Cancel As Integer) 80. On Error Resume Next 81. WordApp.Quit 82. Set WordApp = Nothing 83. End Sub
