vba提取word表格中的图片

㈠ 如何用VBA把Excel中的数据和文件夹中的图片放入到Word文档中

把Excel中的数据和文件夹中的图片放入到Word文档中方法：

1、打开EXCEL文件，复制单元格数据区域。

㈡ VBA中怎么把Excel的图片复制到word文件中

完全可以在word中全选，复制到excel中，
再在excel中整理其中的表格

㈢ 利用VBA如何将批量图片导入WORD的指定表格格式里

将excel表格中的数据批量插入到word中的操作方法：
1、单击插入----对象按钮；
2、弹出插入对话框对话框，选择由文件创建对话框，单击浏览按钮；
3、弹出浏览对话框，选择需要插入有Excel文件；
4、单击插入按钮即可。
注：
（1）若选中链接到文件，源文件修改，Word中的表格也随之改变；
（2）若选中显示为图片，则以图标的形式插入到Word，双击可以打开其源文件。

㈣ 如何利用excel vba提取word中表格的部分内容，复制粘贴到excel

试试下面的代码：

Sub宏1()
DimwordappAsObject
Dimmydoc
Dimmypath$,myname$
DimwdRngAsObject
Dimpos1%,pos2%'定义找到的字段的首位位置
Application.DisplayAlerts=False
Setwordapp=CreateObject("word.application")
mypath=ThisWorkbook.Path&""
myname=Dir(mypath&"*.doc*")
Setmydoc=wordapp.Documents.Open(mypath&myname)
SetwdRng=mydoc.Range
wdRng.Find.Execute("（一）")
pos1=wdRng.Start
SetwdRng=mydoc.Range
wdRng.Find.Execute("五、")
pos2=wdRng.Start
mydoc.Range(pos1,pos2).Copy'选中找到的两个字段中间的内容
mydoc.CloseFalse
wordapp.Quit
Worksheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating=True
Application.DisplayAlerts=True
EndSub

㈤ 如何用vba取得一个word文件中的所有的图片

提供网上示例代码供参考（此代码的思路是遍历 word 文档中的 Shapes ，缩放到原始图片尺寸，再转粘贴到 Excel 中，借用 Excel 的 ChartObjects 提供的导出功能实现图片原样导出）：

Subtest()
Rem工具--引用--勾选MicrosoftExcelx.xObjectLibrary..
DimmyshapeAsObject,ExcelAppAsNewExcel.Application
DimExcelAsWorkbook,i%,z%
SetExcel=ExcelApp.Workbooks.Add
.InlineShapes
Ifmyshape.Type=3Then
i=i+1
myshape.Select
Setmyshape=myshape.ConvertToShape
Rem以下代码将图片以原始比例展示
Withmyshape
.ScaleHeight1,True,msoScaleFromMiddle
.ScaleWidth1,True,msoScaleFromMiddle
EndWith
Selection.Copy
WithExcel.ActiveSheet.ChartObjects.Add(0,0,myshape.Width,myshape.Height).Chart
.Paste
.ExportActiveDocument.Path&""&i&".png"
.Parent.Delete
EndWith
EndIf
Next
Excel.CloseFalse
ExcelApp.Quit
EndSub

㈥ 求助：如何通过VBA批量选中word文档里的嵌入型图片或表格

提供示例代码供参考：

SubBatEditPic()
DimShapesCountAsInteger
DimiAsInteger
ShapesCount=ActiveDocument.InlineShapes.Count
Fori=1ToShapesCount
WithActiveDocument.InlineShapes(i)
'修改图片边框
With.Borders(wdBorderTop)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
EndWith
With.Borders(wdBorderBottom)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
EndWith
With.Borders(wdBorderLeft)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
EndWith
With.Borders(wdBorderRight)
.LineStyle=wdLineStyleSingle
.LineWidth=wdLineWidth050pt
EndWith
EndWith
Nexti
EndSub

㈦ 如何用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" '添加“可选文字”

㈧ 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" '添加“可选文字”

㈨ 怎么用VBA把WORD里的所有图片另存成文件

1. 在Word中选择菜单【文件】【另存为】，选择网页