WORD宏(批量添加照片)
word中怎样同时编辑多个图片
word中怎样同时编辑多个图片在编辑word时，经常遇到文件要用到许多图片，且图片尺寸、版式、颜色与线条等格式是一样的，如果一个一个的编辑非常麻烦，而要编制一个宏来实现软件自动套用格式，许多人又不会，店铺找到一个比较简单的方法，与大家分享下。
Word同时编辑多个图片的方法步骤一：在word中，开启“选中多个对象”功能按钮;目的是，在所有图片粘贴到word后，可以直接全部选中图片，而不会选到其它的文本或线框等。
开启方法是，在word菜单栏上右击，把“绘图”工具栏前面的钩选中，打开“绘图”工具栏;再在“绘图”工具栏最右边的箭头，即“工具栏选项”处点一下，出现“删除或添加按钮”，光标移动到上面时，分别出现“绘图”、“重新设置工具栏”;在“重新设置工具栏”上面找到“选中多个对象”按钮，将它前面的钩选中，这个按钮就会出现在绘图工具栏上。
步骤二：将所有要编辑为统一格式的图片全部粘贴到新建的PowerPoint中(建议，在这个操作之前，把PowerPoint空白页中的默认文本框先删除掉，要不会影响后面的操作)。
步骤三：在新建的PowerPoint中，使用ctrl+a全部选中图片，右击光标“复制”所有图片。
步骤四：在打开的word中，右击光标“粘贴”所有图片。
此时，会发现，所有图片都在一个word自动添加的文本框中。
步骤五：按住光标左键不放，将所有选中的图片拖出文本框;再将这个word自动添加的文本框删除掉。
此时，会发现，所有图片的版式都变成“浮于文字上方”了。
步骤六：点击“选中多个对象”功能按钮，在出现的对话框中，点“全选”，选中所有图片(如果不是空白word，对话框中可能会有线框、文本框等项目，需去掉这些项目前的钩)，点确定后，就选中了所有图片;在图片上右击光标，点“设置图片格式”，可以按照你的要求统一设置图片的尺寸、版式、颜色与线条等格式了。
之后，就可以把这些图片，做为图片编辑库，逐一复制、剪贴或移动到wrod需要放置的地方去。
word宏
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageind.ClearFormatting
Selection.find.Replacement.ClearFormatting
With Selection.find
.Text = find '查找的内容
.Replacement.Text = change '替换的内容
4、 输入的替换成你要的内容
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'下面是程序代码，复制到Word的VBA里
'此子程序放在Word对象里
Option Explicit
Sub change()
Dim s As String
Dim wb As Object
.SearchSubFolders = True
.FileName = "*.doc"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
With MyDialog
.Filters.Clear '清除所有文件筛选器中的项目
.Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
如何在word表格中批量插入单格单张多张照片分享
• 将需插入的照片建在同一文件夹内，以Microsoft Office20** （office自带）软件打开，在缩略图状态下，将所有照片调整 尺寸一致并保存； • 新建一空白word； • 在word中点击“插入”-“图片”，选中需插入的图片，点击 插入； • 一格只有一张照片：选中第2张照片，按回车键；再选中第3张 照片，按回车键。。。直到最后一张； • 或一格中有两张照片：选中第3张照片，按回车键；再选中第5 张照片，按回车键，以此类推； • 选中所有照片，点击“插入”-“表格”-“文本转换为表格”， 并确认； • 选中所有表格，复制粘贴到原有表格中； • 选中照片，按回车键，即可进行文字编辑。
新建照片文件夹，并统一 所有照片的大小
新建word，点击“插入”， 以插入选中的图片
从第2张照片起，选中并按回 车键。。。直到最后一张
选中所有插入的照片
点击“插入”-“表格”“文本转换为表格”
确定后，形成单格单图
复制后，粘贴入原有表格选中照片，按回车键，即 可进 Nhomakorabea文字编辑
如果需一格中2张照片，则选中第3 张后按回车；选中第5 张后按回车， 以此类推
点击“插入”-“表格”-“文本转换 为表格”确定后，形成单格双图
谢谢！
word表格批量插入图片
竭诚为您提供优质文档/双击可除word表格批量插入图片篇一：word20xx中批量快速插入图片技巧word20xx中批量快速插入图片技巧我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。
这里以word20xx为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司logo图片等）。
首先将相关的图片插入到word文档的窗口中，然后按下“ctrl+c”组合键将它们复制到剪贴板中备用。
这一步至关重要，否则下面的操作将无法正常完成。
接着单击office按钮打开“word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。
此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。
需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。
按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。
以后，当我们在word文档中输入1、2这样的数字时，按下回车键后，相关的图片就会自动出现在word文档中，大大提高了工作效率。
20xx-07-27来源：it168篇二：word与excel连接邮件合并批量插入照片word与excel数据连接邮件合并批量照片自动插入方法一、建立“照片名”的excel数据文件1.建立文件夹：在d盘根目录下建立名为：yjhebing的文件夹,在这个文件夹里面在建立一个名为：zhaopianku的文件夹，所有照片放在zhaopianku的文件夹(word表格批量插入图片)里面图-1：zhaopianku文件夹2.开始——运行——输入cmd,按回车键，打开dos命令框。
Word宏的使用技巧
Word宏的使用技巧Word宏是一种功能强大的自动化工具，可以帮助用户提高工作效率，节省时间。
本文将介绍一些常见的Word宏使用技巧，帮助读者更好地利用宏功能进行文档处理。
一、什么是Word宏Word宏是一种记录和执行一系列操作的脚本，可以自动处理Word 文档中的各种任务，如格式设置、批量替换、自动编号等。
通过使用宏，用户可以简化重复性工作，提高工作效率。
二、宏的录制在Word中，可通过宏录制功能将一系列操作记录下来，形成一个宏。
录制宏的步骤如下：1. 打开Word，点击“开发工具”选项卡，点击“宏录制器”按钮。
2. 弹出“宏录制”对话框，输入宏的名称和存储位置，点击“确定”开始录制。
3. 按下快捷键或鼠标操作执行一系列操作，如格式设置、插入图片等。
4. 完成操作后，点击“停止录制”按钮，宏录制结束。
三、应用宏录制好的宏可以通过以下方式应用到其他文档中：1. 点击“开发工具”选项卡，选择“宏”按钮。
2. 在“宏”对话框中选择所需宏的名称，点击“运行”按钮。
3. 宏将自动执行录制的操作，完成相应的任务。
四、编辑宏除了录制宏，还可以对已有宏进行编辑，以满足个性化需求。
编辑宏的步骤如下：1. 点击“开发工具”选项卡，选择“宏”按钮。
2. 在“宏”对话框中选择所需宏的名称，点击“编辑”按钮。
3. 弹出宏编辑器窗口，对宏的VBA代码进行修改，如添加、删除或修改命令。
4. 完成修改后，点击“保存”按钮保存宏。
五、设置宏快捷键为了方便使用宏，可以设置宏的快捷键。
设置快捷键的步骤如下：1. 点击“开发工具”选项卡，选择“宏”按钮。
2. 在“宏”对话框中选择所需宏的名称，点击“选项”按钮。
3. 弹出“宏选项”对话框，可以选择所需的“快捷键”。
4. 点击“确定”按钮完成设置。
六、常用的宏功能1. 批量替换：利用宏的查找和替换功能，可以快速在文档中进行批量替换操作，节省时间和精力。
2. 自动编号：通过宏可以自动生成编号，简化文档中复杂的编号工作，提高工作效率。
如何将图片批量导入word中并附加文件名
Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "F:\"If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)'按比例调整相片尺寸WidthNum = mypic.Widthc = 10 '在此处修改相片宽,单位厘米mypic.Width = c * 28.35mypic.Height = (c * 28.35 / WidthNum) * mypic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末 Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末 Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForNextBasename = Left(tmpstring, Len(tmpstring) - 4)End Function以上亲测可用！！！！如何将图片批量导入word中并附加文件名(2013-12-04 10:44:35)转载▼分类：电脑技术标签：word批量导入照片文件名新建一个空白的word文档。
WORD怎么一次加入多个图片
在Word中插入一张图片对于一般人来说都不是难事，但是同时插入多张的图片的话，相信很多的朋友就开始懵了吧。
没关系，不懂的话，就和小编一起来学习一下吧!
Word
其实一次插入多个图片非常简单，下面就一起来看看如何插入多个图片吧!
①打开Word文档，依次打开菜单栏上的插入--》图片--》来自文件;
②在弹出插入图片对话框中选择存放图片的位置，此时按住 Ctrl 键，你就可以用鼠标选择多张图片了，当然你也可以按 Shift 键，然后单击选择多个图片，最后插入即可。
(如果路径下全部是需插入的图片，你可以直接按快捷键 Ctrl+A 全选，全部插入。
)
真的很简单是不是，方法其实也是和插入一张图片一样，只是在选择图片的时候同时选择需要的多张。
现在大家是不是恍然大悟了，还是不信的话，就操作起来，自己试一试吧。
如何在Word中实现批量插入形
如何在Word中实现批量插入形如何在 Word 中实现批量插入图形在日常的办公和文档处理中，我们经常需要在 Word 文档中插入图形来丰富内容、增强表达效果。
当需要插入大量图形时，如果逐个手动操作，不仅费时费力，还容易出错。
下面，我将为您详细介绍如何在 Word 中实现批量插入图形，让您的工作效率大大提高。
首先，我们要准备好需要插入的图形文件。
这些图形文件可以是图片（如 JPEG、PNG 等格式），也可以是自定义的图形（如 SVG 格式等）。
将它们统一存放在一个文件夹中，以便后续操作时能够方便地找到。
接下来，打开 Word 文档。
在“插入”选项卡中，找到“对象”按钮，点击下拉菜单中的“文件中的文字”。
这会弹出一个文件选择对话框，我们在其中找到存放图形文件的文件夹。
但是，这里需要注意的是，直接全选所有图形文件并插入可能会导致格式混乱或者无法达到我们预期的效果。
所以，我们需要先对图形文件进行一定的排序和筛选。
如果图形文件有明确的命名规则，比如按照编号或者主题命名，我们可以按照名称进行排序，方便后续的批量操作。
另外，如果某些图形不符合我们的需求，或者格式不正确，在这一步可以将其排除，只选择需要插入的图形文件。
在选择好要插入的图形文件后，点击“插入”按钮。
此时，Word 会将这些图形依次插入到文档中。
但默认情况下，它们可能会以一种不太理想的方式排列，比如都堆积在文档的开头。
为了让图形能够按照我们期望的方式分布在文档中，我们可以利用Word 的“查找和替换”功能。
先将光标定位在文档开头，然后按下“Ctrl＋H”组合键，打开“查找和替换”对话框。
在“查找内容”中输入“＾g”（表示图形对象），“替换为”中输入我们希望的格式设置，比如“＾p^g”（表示在每个图形前插入一个段落符）。
这样，图形就会每个都单独占据一段，分布更加清晰。
如果我们希望图形能够按照特定的顺序或者规则排列，比如每隔几页插入一个图形，或者根据文档中的某些文字内容来确定图形的插入位置，这就需要用到 Word 的宏功能。
原创：Word域的妙用-批量插入图片和批量打印
原创：Word域的妙用-批量插入图片和批量打印前言犹如公式之于excel，域，可说是word的至高境界。
域是word中的变量，域代码由标识符{}、类型、指令、开关等组成。
域能做什么？当你为输入公式的艰涩而痛恨公式编辑器的时候，当你要自动插入时间、图片、文本的时候，当你要数学运算的时候，当你要通过邮件合并实现批量打印的时候……，JUST NO PROBLEM，域能做到这一切！域的快捷键：Ctrl+F9→手动插入域标识符{}；F9→更新域结果；Shift+F9→切换当前域代码/域结果；Alt+F9→切换所有域代码/域结果；Ctrl+Shift+F9→域转为文本。
让我们开始奇妙的域之旅吧。
目录㈠创建公式 (1)1.输入分数：Ctrl+F9→输入eq \f(分子,分母) (1)2.输入根式：Ctrl+F9→输入eq \r(根次,根数) (2)3.输入数组：Ctrl+F9→输入eq 数组{ \a(a,b) (2)4.输入方程组：Ctrl+F9→输入eq 方程组{ \a(\f(1,x)+5=y,\r(x)-y=1 (2)5.文本加方框：Ctrl+F9→输入eq (文本) (2)6.文本重叠：Ctrl+F9→输入eq \o(张三,李四) (2)㈡自动插入文本、图片（如批量打印准考证、证书等） (2)1.插入文本：在word中，视图→工具栏→邮件合并→打开数据源→选择含数据的excel (2)2.插入图片：插入→域→选择域名IncludePicture→输入文件名（可任意，以备下一步替 (2)㈢批量打印 (3)1. 准备Excel数据源 (3)2. 建立Word文档 (3)3.邮件合并：合并到新文档，保存文件 (3)4.打印 (3)㈠创建公式1.输入分数：Ctrl+F9→输入eq \f(分子,分母)知识积累1：eq表示域类型是公式；\f是表示分数的域开关，格式是（分子，分母）2.输入根式：Ctrl+F9→输入eq \r(根次,根数)知识积累2：\r是表示根式的域开关，根次为2时，可省略3.输入数组：Ctrl+F9→输入eq 数组{ \a(a,b)知识积累3：数组域开关前面的“数组{”属于文本，与代码无关4.输入方程组：Ctrl+F9→输入eq 方程组{ \a(\f(1,x)+5=y,\r(x)-y=15.文本加方框：Ctrl+F9→输入eq (文本)知识积累4：域开关后还可加次开关\to,\bo,\le,\ri，表示只加方框的某一边6.文本重叠：Ctrl+F9→输入eq \o(张三,李四)㈡自动插入文本、图片（如批量打印准考证、证书等）1.插入文本：在word中，视图→工具栏→邮件合并→打开数据源→选择含数据的excel文件→选择含数据的工作表；在相应位置点击插入域→选择含文本信息的字段名。
Word中批量快速插入图片技巧步骤
Word中批量快速插入图片技巧步骤
Word 2007中批量快速插入图片技巧步骤
我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。
这里以Word 2007为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司LOGO图片等）。
首先将相关的图片插入到Word文档的窗口中，然后按下“Ctrl+C”组合键将它们复制到剪贴板中备用。
这一步至关重要，否则下面的操作将无法正常完成。
接着单击Office按钮打开“Word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。
此时我们会发现原来右下角的.“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。
需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。
按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。
以后，当我们在Word文档中输入1、2……这样的数字时，按下回车键后，相关的图片就会自动出现在Word文档中，大大提高了工作效率。
【Word 2007中批量快速插入图片技巧步骤】。
在Word中批量插入图片
在Word中批量插入图片
在我们日常的Word操作中，免不了要插入一批名称有规律的图片。
那么怎样实现呢？我们可以用Excel的填充功能来实现。
准备工作把图片放入一个文件夹test中，下图为待插入的图片。
打开Frontpage 2003软件，插入两张图片。
如下图所示：
复制以下内容（注意：其中“width="192" height="120"”，为图片的宽和高，去掉。
并且不能有回车）：
“</p><p align="center"><img border="0" src="file:///D:/test/002.jpg">”
将以上内容粘贴到Excel的单元格中，然后下拉填充。
如下图所示：
再将，以上内容贴回Frontpage中。
贴好后，为以下内容：
预览可以看到，页面上有所有的图片。
将页面上的内容复制到Word中即可。
以下为完成后的效果。
如何在word表格中批量插入单格单张多张照片分享
点击“插入”-“表格”-“文本转换 为表格”确定后，形成单格双图
谢谢！
直到最后一张选中所有插入的照片选中所有插入的照片点击插入点击插入表格表格文本转换为表格文本转换为表格确定后形成单格单图确定后形成单格单图复制后粘贴入原有表格复制后粘贴入原有表格选中照片按回车键即选中照片按回车键即可进行文字编辑可进行文字编辑如果需一格中如果需一格中22张照片则选中第张照片则选中第33张后按回车
方法
• 将需插入的照片建在同一文件夹内，以Microsoft Office20** （office自带）软件打开，在缩略图状态下，将所有照片调整 尺寸一致并保存； • 新建一空白word； • 在word中点击“插入”-“图片”，选中需插入的图片，点击 插入； • 一格只有一张照片：选中第2张照片，按回车键；再选中第3张 照片，按回车键。。。直到最后一张； • 或一格中有两张照片：选中第3张照片，按回车键；再选中第5 张照片，按回车键，以此类推； • 选中所有照片，点击“插入”-“表格”-“文本转换为表格”， 并确认； • 选中所有表格，复制粘贴到原有表格中； • 选中照片，按回车键，即可进行文字编辑。
新建照片文件夹，并统一 所有照片的大小
新建word，点击“插入”， 以插入选中的图片
从第2张照片起，选中并按回 车键。。。直到最后一张
选中所有插入的照片
点击“插，形成单格单图
复制后，粘贴入原有表格
选中照片，按回车键，即 可进行文字编辑
如果需一格中2张照片，则选中第3 张后按回车；选中第5 张后按回车， 以此类推
如何在WORD中进行批量文件处理
如何在WORD中进行批量文件处理
大家都知道，微软的Word是一款功能强大的文字处理软件，但是在处理大量文件时，可能会让人感到头疼。
不过，别担心！在本文中，我将分享一些在Word中进行批量文件处理的技巧，让你事半功倍。
1.使用批量替换功能
要在多个文档中快速替换文本内容，可以利用Word中的批量替换功能。
只需打开Word，按下Ctrl+H组合键，然后输入要替换的内容和新内容，
点击“全部替换”即可完成批量替换。
2.批量插入图片
如果需要在多个文档中插入相同的图片，可以通过将所有图片保存在同一文件夹中，然后使用Word的“插入”功能来批量插入图片。
这样可以节省大量时间，避免逐个插入的繁琐操作。
3.利用宏进行自动化操作
Word的宏功能可以帮助你录制和执行一系列操作，从而实现自动化处理。
通过录制宏，你可以在多个文档中快速执行相同的任务，如格式设置、内容插入等，提高工作效率。
4.使用通配符进行搜索
在Word的搜索功能中，你可以使用通配符来查找符合特定模式的内容。
通过结合通配符和搜索功能，可以快速定位并处理多个文档中的内容，避免逐个查找的繁琐过程。
5.批量保存文档
为了高效处理大量文档，记得使用Word的批量保存功能。
通过批量保存，你可以同时保存多个文档，节省时间并确保文档的安全性。
通过上述技巧，相信你已经掌握了在Word中进行批量文件处理的方法。
记得多加练习，熟练掌握这些技巧，提高工作效率的也能让工作变得更加轻松快捷！
希望这些技巧对你有所帮助，让你能够更加高效地处理大量文件。
努力学习，不断提升自己的技能，相信你一定能在工作中脱颖而出！。
word宏自动插图片并带上名字
插入图片自动放在表格中并获取图片的名字（宏VBA代码）如下格式：风景-01风景-02 风景-03………实现上述格式的宏代码程序如下：Sub 每行插入表格n个图()On Error Resume NextApplication.ScreenUpdating = FalseDim D As FileDialog, a, P As InlineShape, t As TableIf rmation(wdWithInTable) = True Then MsgBox "请将光标置于表格之外！": Exit SubWith Application.FileDialog(msoFileDialogFilePicker).Title = "请选择..."If .Show = -1 Thenn = InputBox("请输入表格的列数：", "列数", 3)M = .SelectedItems.CountDebug.Print "共有" & M & "个图片"; Mh = IIf(M / n = Int(M / n), 2 * M / n, 2 * (Int(M / n) + 1))Set t = ActiveDocument.Tables.Add(Selection.Range, h, n)t.Borders.Enable = Truet.Borders.OutsideLineStyle = wdLineStyleSingle '设置表格的外边框的类型For Each a In .SelectedItemsB = Split(a, "\")(UBound(Split(a, "\")))C = Split(B, ".")(0)Set P = Selection.InlineShapes.AddPicture(FileName:=a, SaveWithDocument:=True)With P '设置图片的大小w = .Width.Width = Int(410 / n).Height = .Width * .Height / wEnd With '设置图片大小结束i = i + 1Selection.MoveLeft wdCharacter, 1Selection.MoveDown wdLine, 1Selection.TypeText CSelection.Cells(1).SelectSelection.ParagraphFormat.Alignment = wdAlignParagraphCenter '决定了首行居中Selection.HomeKeySelection.MoveDown wdLine, -1Selection.MoveRight wdCharacter, 2Debug.Print i, nIf i = Val(n) ThenSelection.MoveRight wdCharacter, 1Selection.Cells(1).SelectSelection.EndKeySelection.MoveDown wdLine, 1i = 0End IfNextEnd IfEnd WithApplication.ScreenUpdating = True End Sub如下格式：风景-16风景-01实现上述格式的宏代码程序如下：Sub 简单无表格式1列插图()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "F:\"If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)'按比例调整相片尺寸WidthNum = mypic.Widthc = 10 '在此处修改相片宽,单位厘米mypic.Width = c * 28.35mypic.Height = (c * 28.35 / WidthNum) * mypic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "\" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4) End Function。
如何将图片批量导入word中并附加文件名(源代码)
【目标任务】：现有多张图片，需插入一个Word文件中，要求图片大小一致，并显示图片文件的名称。
如果手动操作，非常费时费力，且效果不好，难以做到每张图片大小一致。
快速实现此功能的方法如下：【操作方法】：新建一个空白的word文档。
工具——宏——vb编辑器——打开this document ——把下面代码粘入编辑窗口——保存打开这个word文档——工具——宏——执行下面的不用我说了，最后记得通配符批量替换照片就可以一行显示多张了。
Sub InsertPic()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = C001If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName=fn, SaveWithDocument=True)'按比例调整相片尺寸WidthNum = mypic.Widthc = 15 '在此处修改相片宽,单位厘米mypic.Width = c 28.35mypic.Height = (c 28.35 WidthNum) mypic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn) '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末Selection.TypeParagraph '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = NothingEnd SubFunction Basename(FullPath) '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = Or _Mid(FullPath, y, 1) = Or _Mid(FullPath, y, 1) = Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4) End Function。