word文档批量转图片VBA

⑴ 如何用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的指定表格格式里

将excel表格中的数据批量插入到word中的操作方法：
1、单击插入----对象按钮；

2、弹出插入对话框对话框，选择由文件创建对话框，单击浏览按钮；

3、弹出浏览对话框，选择需要插入有Excel文件；

4、单击插入按钮即可。

注：
（1）若选中链接到文件，源文件修改，Word中的表格也随之改变；
（2）若选中显示为图片，则以图标的形式插入到Word，双击可以打开其源文件。

⑶ word怎么批量导入pdf文件里面的图片

Word文档批量导入PDF文件里面的图片，那么首先需要将PDF转换成Word文档，这个可以使用WPS或是转换软件，进行批量转换，然后再用VBA进行批量处理，将图片导入一个Word文档中。

⑷ 大神，图片按照规律批量导入Word指定位置，如何用VBA实现

看我的头像，找到我的主页，联系上我。
网络很垄断，很霸道，我的任何回答，它就都直接屏蔽删除！

⑸ word里批量旋转嵌入式图片

Word2007及以上版本才能对外部图片进行旋转操作。要想批量旋转，只能采用Word2007及以上版本，以及用VBA来实现就可以了。 不过，这个VBA代码得到的结果，只能满足批量旋转图片的目的，但旋转之后，图片的位置会发生变动，而且只对所有的嵌入式图片有效。按Alt+F11，打开VBA编辑器，将如下代码直接粘贴进来，然后按F5运行即可。
Sub Rotate()
Do Until ActiveDocument.InlineShapes.Count = 0
ActiveDocument.InlineShapes(1).Select
ActiveDocument.InlineShapes(1).ConvertToShape
Selection.ShapeRange.IncrementRotation 180# '这里的180#代码旋转的度数，0~359.9
Loop
end sub

采纳本方法之前，先备份文档，以免转换后图片位置发生变动导致整篇文档的页面布局发生变化难以恢复。

⑹ vba批量替换word中图片

可以用下面的代码试一下：（注意，操作前，需要做好备份）
’把图片统一成一种格式。（也可以统一转成浮动的格式，代码稍做修改即可）
For Each ishape In ActiveDocument.Shapes
ishape.ConvertToInlineShape
Next ishape
For i = 1 To ActiveDocument.InlineShapes.Count - 1
ActiveDocument.InlineShapes(i).Select
Selection.InlineShapes.AddPicture "c\" & i & ".jpg", linktofile:=False, savewithdocument:=True
Next

⑺ 寻找WORD VBA高手解决WORD批量插入图片程序的问题

Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey

这两句移一下位置，其它不变。

Sub 批量插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "D:\111"
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '这两句移到这里
Selection.EndKey
Set mypic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True)
'按比例调整相片尺寸
WidthNum = mypic.Width
c = 18 '在此处修改相片宽,单位厘米
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
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中并在图片上方附加文件名的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会进入无响应状态。图片越多，无响应的时间越长。

⑼ 2003版word怎么批量编辑图片

word如何排版批量图片
在word中，默认插入的嵌入式图片是不能批量统一设置，只有将默认修改为四周型后，才可以批量修改图片版式或大小，具体操作方法如下：1、打开WORD，在”工具“菜单下选择”选项“命令；2、在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”；3、在“插入”菜单中选择“图片”/“来自文件”；4、在“插入图片“对话框中选择要插入的图片；5、在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”；6、使用“选中多个对象”，将所有插入的图片全部选中；7、双击任意一图片，在弹出的对话框中，就可以统一批量设置了，完成。
有什么办法能在word里批量设置插入图片大小？
操作步骤：1、单击office---->Word选项，如图所示；2、弹出Word选项对话框，单击高级---->剪切、复制和粘贴---->将图片插入/粘贴为后面的输入框，在弹出的选项中选择四周型，如图所示；（注：因默认为嵌入型，不能同时选中多个图片）3、按住Ctrl键，单击图片，选中需要设成大小的多张图片；4、单击图片工具格式选项卡右下角如图所示的标记；5、弹出大小对话框，选择大小选项卡，去掉锁定纵横比和相对原始图片大小复选框中的对勾，在高度、宽度输入框中输入所需要的数值即可，如图所示；
如何在word中批量修改图片大小Word中怎么批量修改图片固定大？
如何在word中批量修改图片大小 Word中怎么批量修改图片固定大小。
相信很多人都使用过电脑中的word文档功能，因为这对于很多人来说都会经常用到的，非常的具有实用性。
解决：按alt F11。
然后在project右键
word2003中怎样批量调整图片大小
一，在word中按alt+f11组合键，进入VBA模式二，在左边的工程资源管理器中找到你的word文档，在其上右键/添加/模块三，把下面代码复制，粘贴进去.四，更改数值， 改一下宽度和高度数值（10），点运行（类似播放按钮.）或f5，即可设置文档中全部图片Sub Macro()Mywidth=10'10为图片宽度（厘米）Myheigth=10'10为图片高度（厘米）For Each iShape In ActiveDocument.InlineShapesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub由于是批量的处理同样的事情，因此要用到宏。
是这样的，如果你的图片显示的是嵌入式的。
也就是不能旋转的那种格式，钻切换大小会很容易，方法要使用宏命令。
宏主要用来处理有规律的重复的工作，相当于批处理。
想好了就能编辑出来。
工具宏录制新宏然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。
开始录制宏。
把你能够重复的操作执行一下，以计算机能识别的重复为准。
然后工具宏停止录制。
这样宏就录制出来了。
你ctrl L执行就行了。
连续按，则连续执行。
如果不完全正确，还要修改或重新录制宏。
对你来说：使用的循环是：查找，图形然后调整大小，然后鼠标移到图形右侧。
然后再执行循环。
这个命令是：ctrl F，点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。
关掉查找界面，回到word编辑界面。
直接去单击 格式菜单里面的 图片，设置大小为你认可的比例。
确定。
然后将光标用键盘移出 图片（右移以下）。
执行宏即可。