vba获取word
- 作者: 浪够了麽
- 来源: 51数据库
- 2020-06-05
1. 如何用VBA中获取word文档中的图片
于图片来说，，分为二种的，，
第一种：是Shape对象（Word中自带的“自选图形”）
第二种：是InlineShape对象（嵌入式图片，也就是所谓的通过点击菜单栏中的“插入”->“图片”->“来自文件”）
-------------------
如何判断word文档中是否存在一张图片呢？这个问题。
我来解答：判断word文档中是否存在一张图片，可以通过看一看word文档中的inlineshape对象的数量来判断。
举例：
Dim doc As Document '当前打开的文档对象Document
Dim MyApp As Word.Application 'Word应用程序对象
Dim MyFileName As String '当前打开的文件名
MyFileName="c;\aaa.doc" '此处可以改成你的文件名字
Set MyApp = CreateObject("Word.Application")
Set doc = MyApp.Documents.Open(MyFileName)
If doc.InlineShapes.Count <> 0 then
msgbox "有嵌入式图片存在！"
Else
msgbox "没有嵌入式图片存在！"
End if
-------------------------------------------------------
如果你非要想知道，用户到底是不是插入了你要求的图片的话，你要必须要再他进行插入图片操作时进行控制，也就是说，你必须把用户所插入的图片的（绝对地址）或者（图片名字）添加到用户所插入图片的“可选文字”中记录下来。
MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)
FileName String 类型，必需。指定要创建对象的文件名。如果忽略本参数，则使用当前文件夹。
LinkToFile Variant 类型，可选。如果此属性设置为 True，则将 OLE 对象与创建该对象的文件链接。如果设置为 False，则令该 OLE 对象成为该文件的独立副本。默认值为 False。
SaveWithDocument Variant 类型，可选。如果此属性为 True，则将链接的图片与文档一起保存。默认值为 False。
Range Variant 类型，可选。指定一个区域，OLE 对象放置在该区域的文字中。如果该区域未折叠，那么图片将覆盖该区域。如果忽略此参数，则自动放置图片。
ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRange
ActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可选文字”
2. 如何用vba取得一个word文件中的所有的图片
提供网上示例代码供参考（此代码的思路是遍历 word 文档中的 Shapes ，缩放到原始图片尺寸，再转粘贴到 Excel 中，借用 Excel 的 ChartObjects 提供的导出功能实现图片原样导出）： Sub test() Rem 工具--引用--勾选 Microsoft Excel x.x Object Library.. Dim myshape As Object, ExcelApp As New Excel.Application Dim Excel As Workbook, i%, z% Set Excel = ExcelApp.Workbooks.Add For Each myshape In ActiveDocument.InlineShapes If myshape.Type = 3 Then i = i + 1 myshape.Select Set myshape = myshape.ConvertToShape Rem 以下代码将图片以原始比例展示 With myshape .ScaleHeight 1, True, msoScaleFromMiddle .ScaleWidth 1, True, msoScaleFromMiddle End With Selection.Copy With Excel.ActiveSheet.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart .Paste .Export ActiveDocument.Path & "" & i & ".png" .Parent.Delete End With End If Next Excel.Close False ExcelApp.QuitEnd Sub。
3. 如何用vba取得一个word文件中的所有的图片
提供网上示例代码供参考（此代码的思路是遍历 word 文档中的 Shapes ，缩放到原始图片尺寸，再转粘贴到 Excel 中，借用 Excel 的 ChartObjects 提供的导出功能实现图片原样导出）：
Sub test()
Rem 工具--引用--勾选 Microsoft Excel x.x Object Library..
Dim myshape As Object, ExcelApp As New Excel.Application
Dim Excel As Workbook, i%, z%
Set Excel = ExcelApp.Workbooks.Add
For Each myshape In ActiveDocument.InlineShapes
If myshape.Type = 3 Then
i = i + 1
myshape.Select
Set myshape = myshape.ConvertToShape
Rem 以下代码将图片以原始比例展示
With myshape
.ScaleHeight 1, True, msoScaleFromMiddle
.ScaleWidth 1, True, msoScaleFromMiddle
End With
Selection.Copy
With Excel.ActiveSheet.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
.Paste
.Export ActiveDocument.Path & "" & i & ".png"
.Parent.Delete
End With
End If
Next
Excel.Close False
ExcelApp.Quit
End Sub
4. 怎么用VBA获得word图片的像素值
参考：Sub 嵌入型图片的像素（）
On Error Resume Next
With Selection.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findtext:="^g", MatchWildcards:=False, Wrap:=wdFindStop
MsgBox "该图片的像素为：" & Selection.InlineShapes(1).Width _
& " * " & Selection.InlineShapes(1).Height
End With
End Sub
5. word vba 插入图片
最简单办法是录制宏，然后从菜单从硬盘指定一个图片文件插入，然后修改大小，结束录制代码会包括图片路径。
然后通过循环重复这一过程 大致代码 Dim i%, Files() As StringFiles = Array("c:\1.jpg", "c:\2.jpg") '。.定义你的图片文件路径For i = 0 To UBound(Files) '复制你的宏代码到这里，并修改文件名为Files(i) '视情况每插入一图片后回车 开始新的段落 Selection.TypeParagraphNext。
6. 怎么用vba在word表格中插入图片
'*****************************************************************'* DESCRIPTION：'* 将指定路径、图片名和图片格式的图片插入到指定行列的表格中。
'* INPUTS:'* imagePath - 图片文件路径'* imageName - 图片文件名'* imageformat - 图片格式'* indexRow - 图片插入所在行'* indexColumn - 图片插入所在列'* OUTPUTS:'* none'* RETURNS：'* 成功插入返回 TRUE，失败返回 FALSE'*****************************************************************Private Function InsertImage(ByVal imagePath As String, _ ByVal imageName As String, _ ByVal imageformat As String, _ ByVal indexRow As Integer, _ ByVal indexColumn As Integer) As Boolean Dim filePath As String Dim imageCount As Integer ' 表格中的图片数 Dim fso As Object ' 文件系统对象 Set fso = CreateObject("Scripting.FileSystemObject") ' 创建文件系统对象 filePath = imagePath & "\" & imageName & "." & imageformat If (Not fso.FileExists(filePath)) Then InsertImage = False Exit Function Else imageCount = Selection.Tables(1).Cell(Row:=indexRow, Column:=indexColumn).Range.InlineShapes.Count ' 如果表格中本身就有图片就7a64e59b9ee7ad9431333363353864不插入图片 If (imageCount = 0) Then Selection.Tables(1).Cell(Row:=indexRow, Column:=indexColumn).Range.InlineShapes.AddPicture filePath End If End If InsertImage = TrueEnd Function。
7. word vba 插入图片
Sub 批量插入图片（）
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E：\工作文件" ‘这里输入你要插入图片的目标文件夹
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例调整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此处修改相片宽，单位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
执行此代码后，弹出的选择对话框， 全选目标文件夹下的所有图片文件之后，点击确定。然后静静的等待电脑完成处理工作，次数word会进入无响应状态。图片越多，无响应的时间越长。
8. vba如何设置word图片格式
一、旋转图片
Dim blnIsInlineShape As Boolean
If Selection.Type = wdSelectionInlineShape Then
blnIsInlineShape = True
Selection.InlineShapes(1).ConvertToShape
End If
Dim intTurn As Integer
intTurn = InputBox（"请输入图形要旋转的角度值" & vbCrLf &； "正数表示顺时针，负数表示逆时针。"， "图形旋转"， 30）
Selection.ShapeRange.IncrementRotation intTurn
End Sub
二、将文档中的每张图片的版式转换为嵌入式图形
For Each s In Documents("MyDoc.doc").Shapes
If s.Type = msoPicture Then
s.ConvertToInlineShape
End If
Next s
三、设置图片的高度宽度
Mywidth=10'10为图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
四、得到图片的像素
Sub 获取嵌入型图片的像素（）
On Error Resume Next
With Selection.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findtext:="^g", MatchWildcards:=False, Wrap:=wdFindStop
MsgBox "该图片的像素为：" & Selection.InlineShapes(1).Width _
& " * " & Selection.InlineShapes(1).Height
End With
End Sub
五、复制图片到word文档中
Dim objWordApp As Word.Application
Dim objWord As Word.Document
Range(Cells(3, 2), Cells(11, 11)).Select
Selection.CopyPicture
Set objWordApp = CreateObject("Word.Application")
Set objWord = objWordApp.Documents.Add
objWord.Application.Visible = True
objWord.Application.Selection.Paste
Set objWord = Nothing
Set objWordApp = Nothing
