word批量插入图片自动排版的代码

Ⅰ 怎样往word文件上批量添加图片（要每页一张的）

预先设置图片格式为嵌入型，全选图片，复制粘贴进文档。利用宏代码，批量统一图片大小。

Ⅱ 想在word页面中，批量插入图片，使得每页有4张图片均匀分布在页面中，该怎么做呢

这是统一设置word文档中的图片样式，你的问题我不会，但是希望这个例子会对你有点提示。

使用宏：
一,在word中按alt+f11组合键,进入VBA模式
二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块
三,把下面代码复制,粘贴进去.
四,更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片
Sub Macro()
Mywidth=10'10为图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

Ⅲ 在word文档中插入多张图片如何让图片自动排版

1.以一个空白的Word文档为例，打开后，我们可以先点击“插入”，看到有个选择“形状”。

7.这时候，可以随意移动这些形状、图片、文本的位置，而且此文档在重新打开后，不影响已经固定下来的排版样式。

Ⅳ 如何在Word表格中，批量自动插入图片

我试了试，在word里似乎无法实现，不过在微软公司的另一个软件里能实现，不过依然没有你说的那样简单。我用的是publisher。在publisher里，插入一个表格（几乎跟在word里一样）然后执行“插入——图像点位符”插入图像占位符，并调整它使它适合表格式小。然后复制它，放到另一个表格里，然后选择这两个复制……这样制作出八个图像点位符，制作好之后点击图像点位符就能够导入图像了。这样比直接插入的好处是：所有的图像自动适合表格大小，而不用再手动调整。如果你用过Adobeindesign，你知道它是可以满足你的要求的，不过这个软件很大，使用起来也不是很方便。

Ⅳ 在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会进入无响应状态。图片越多，无响应的时间越长。

Ⅵ 在word中自动插入图片 vba，这是一段代码

你的第1段代码可以插入图片啊，有什么问题？
第2段的话，把倒数第2行的with移到上一行end 的后面。
倒数第6行的 ,,Flase 改成,Flash,(逗号移到flash后面)
VBA不是很熟，希望能帮到你。

Ⅶ word批量插入图片及批量修改大小

1、这里以WPS版本的Word为例。打开Word，在插入图片之前，先做一个设置，进入【WPS文字】-【选项】-【编辑】-【将图片插入为四周型】。

Ⅷ 在word文档中插入多张图片如何让图片自动排版

1、打开word文档，在工具栏中点击“插入”选择“形状”中的“方形”。

Ⅸ word如何排版批量图片

具体方法如下：

1、点击WORD左上角的“工具”按钮，在下拉菜单中点击“选项”；