当前位置：
文档之家› 利用excel VBA批量修改文件名以及自动插图到word
利用excel VBA批量修改文件名以及自动插图到word
前段时间，因编写报告，需要把成果图片修改名字后，将图以及相应的名字插入word文档中。一次报告，至少200张图，花了数个小时才弄完工作，同时难免出现差错。之后就一直寻找捷径，基于excel vba以前有一点基础，现将整理出来的代码分享给大家。可以去下载我编好的excel 小程序，里面有详细代码，地址在最下方。欢迎直接试用下，给个反馈建议.
1.查找文件夹中符合图片格式的文件，返回其名字
Dim fs, f, f1, fc, s
Dim arr As String
Set fs = CreateObject("Scripting.FileSystemObject")
Address = ThisWorkbook.FullName
Address = Left(Address, InStrRev(Address, "\", Len(Address))) '获得当前工作表所在文件夹路径
Set f = fs.GetFolder(Address)
Set fc = f.Files
i = 2
For Each f1 In fc '遍历文件
If FileIspicture(https://www.doczj.com/doc/be12483736.html,) Then ' 引用了自定义函数FileIspicture判断是否为需要查找的文件格式
phname = https://www.doczj.com/doc/be12483736.html, '获取文件名
houzhui = Right(phname, Len(phname) - InStrRev(phname, ".", Len(phname)) + 1) Sheet1.Cells(i, 1) = Left(phname, InStrRev(phname, ".", Len(phname)) - 1)
Sheet1.Cells(i, 2) = houzhui
i = i + 1
End If
Next
2.修改文件名称
Sub changename()
Dim Address As String
Address = ThisWorkbook.FullName
Address = Left(Address, InStrRev(Address, "\", Len(Address)))
n = Sheet1.Cells(Rows.Count, 1).End(xlUp).row
For i = 2 To n '修改名称
pname = Sheet1.Cells(i, 1) & Sheet1.Cells(i, 2)
textname = Sheet1.Cells(i, 3)
houzhui = Right(pname, Len(pname) - InStrRev(pname, ".", Len(pname)) + 1) '获取后缀Name Address &pname As Address &textname&houzhui
Next i
MsgBox "名称已改"
End Sub
3.批量插图到word
Dim appWD As Word.Application
Dim Address As String
myName = "picture.doc" '新建的word名称
Address = ThisWorkbook.FullName
Address = Left(Address, InStrRev(Address, "\", Len(Address)))
mydoc = Address &myName
On Error Resume Next '错误处理
Kill (mydoc)
On Error GoTo 0
On Error Resume Next
Set appWD = GetObject(, "Word.Application")
appWD.Documents.CloseSaveChanges:=wdDoNotSaveChanges
appWD.Quit
Set appWD = CreateObject("Word.Application") '连接word
appWD.Documents.Add
appWD.ActiveDocument.SaveAs filename:=mydoc
appWD.Visible = True
n = Sheet1.Cells(Rows.Count, 1).End(xlUp).row '获取工作表有效部分的最大行数
For i = 2 To n '插入图片
pname = Sheet1.Cells(i, 1) & Sheet1.Cells(i, 2)
textname = Sheet1.Cells(i, 3)
appWD.Selection.InlineShapes.AddPicture filename:=Address &pname, LinkToFile:= _ False, SaveWithDocument:=True
appWD.Selection.TypeParagraph
appWD.Selection.TypeText Text:=textname
appWD.Selection.TypeParagraph
houzhui = Right(pname, Len(pname) - InStrRev(pname, ".", Len(pname)) + 1)
Next i
'居中，修改字体大小为10，字体加粗
appWD.Selection.WholeStory
appWD.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter appWD.Selection.Font.Size = 10
https://www.doczj.com/doc/be12483736.html, = "宋体"
appWD.Selection.Font.Bold = wdToggle
4.修改图片大小，使每页正好两张图
Dim picwidth
Dim picheight
For i = 1 To appWD.ActiveDocument.InlineShapes.Count 'InlineShapes类型图片H = appWD.ActiveDocument.InlineShapes(i).Height
W = appWD.ActiveDocument.InlineShapes(i).Width
HIV = W / H
H = 325
W = HIV * H
If W >= 415 Then
W = 415
H = W / HIV
End If
appWD.ActiveDocument.InlineShapes(i).Height = H
appWD.ActiveDocument.InlineShapes(i).Width = W
Next i
PictureToWord CSDN下载地址这个需要1积分
PictureToWord RaySource下载地址这个免费
(完整版)Word中的图片批量统一大小及同比例缩放
Word宏：Word中的图片批量统一大小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400'设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽度 300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400'设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度 300px Next n End Sub [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] 使用方法和[Word宏:Word中英文标点符号互换-VBA源码实现（图）] 中介绍的一样，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。
【免费】用bat批量修改文件名的参考集
用bat批量获取和修改文件名的方法 1.批量提取 新建文本文档在文本文档里输入： dir *.* /a /b /s >A.txt 保存为提取名字.bat 文件名字被提取到当前文件夹的 A.txt里面了！也可以提取某类型的文件比如*.mp3 或者a*.mp3 2.批量重命名 新建文本文档在文本文档里输入： @for /f %%a in (A.txt) do @( if exist %%a for /f %%b in (B.txt) do ( rename %%a %%b)) 保存为批量改名.bat A.txt 是原来的文件名 B.txt 是修改后的文件名 一行对应一个名字不能有空格同时注意文件属性 A.txt : NBA直播录像1.3gp NBA直播录像2.3gp NBA直播录像3.3gp NBA直播录像4.3gp B.txt : NBA直播录像第一场.3gp NBA直播录像第二场.3gp NBA直播录像第三场.3gp NBA直播录像第四场.3gp 有兴趣加入技术交流QQ群：58755232 6月9日补充： 参数： -1 每列仅显示一个文件或目录名称。 -a或--all 下所有文件和目录。 -A或--almost-all 显示所有文件和目录，但不显示现行目录和上层目录。 -b或--escape 显示脱离字符。 -B或--ignore-backups 忽略备份文件和目录。 -c 以更改时间排序，显示文件和目录。 -C 以又上至下，从左到右的直行方式显示文件和目录名称。 -d或--directory 显示目录名称而非其内容。 -D或--dired 用Emacs的模式产生文件和目录列表。 -f 此参数的效果和同时指定"aU"参数相同，并关闭"lst"参数的效果。 -F或--classify 在执行文件，目录，Socket，符号连接，管道名称后面，各自加上"*","/","=","@","|"号。 -g 次参数将忽略不予处理。 -G或--no-group 不显示群组名称。 -h或--human-readable 用"K","M","G"来显示文件和目录的大小。
Word_邮件合并如何批量打印带照片
Word 邮件合并如何批量打印带照片 准备工作：准备一份考生信息数据库，可以是Word 创建的数据源，也可以像Excel 工作簿、 Access 数据库、Query 文件、Foxpro 文件，都可以作为邮件合并的数据源。只要有这些文件存在，邮件合并时就不需要再创建新的数据源，直接打开这些数据源使用即可。 需要注意的是：在使用Excel 工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。这样可以使不同的数据共享，避免重复劳动，提高办公效率。我最常用的是Excel 簿，里面包含了编号、准考证号、考生姓名及其他相关信息的字段，要批量打印照片的话，还需要加一个照片的路径和文件名的字段（如果照片的文件名正好是考生的准考证号或姓名的话，可免），假设照片放在e:\photo 文件夹里，每位考生的照片文件名和准考证号相对应（如果用姓名的话可能会碰到同名同姓的问题）。数据准备工作的正确与否，关系到以后打印出来的证件正确与否，所以必须要仔细校对正确。 接下来的工作就是要设计邮件合并的模板了，步骤如下： 1．启动word 程序，从菜单栏中选择“工具\邮件合并”，将出现“邮件合并帮助器”对话框； 2．在“邮件合并帮助器” 对话框中的第一步“主文档”中单击“创建” 下拉按钮，选择“套用信函” （如果想在一张纸上打印多份的话，选择“分类”），再在出现的对话框中点击“活动窗口（A）” 按钮。 3．在“邮件合并帮助器”对话框中点击“获取数据（G）”下拉按钮，选择“打开数据源(O)…”，在出现打开文件对话框中打开刚保存的Excel 电子表格，点击“确定”并在弹出的对话框中点击“编辑主文档（M）”，这时你会发现在工具栏中多了一栏邮件合并工具栏4．然后画好表格填好项目，进行排版、设置纸张，再把光标置于要插入相应项目的位置，点击“邮件合并”工具栏的“插入合并域”下拉菜单（下拉菜单中的相应选项与Excel 数据表格中的标题行是一一对应的），然后单击下拉菜单中的相应选项，直至插入所有只包含文字的域。 5．下面是实现批量打印照片的关键一步，就是照片域的实现： 先把光标定位在要插入照片的地方，按Ctrl+F9 插入一个域，输入“IncludePicture "e:\\photo\\”（不包含外侧双引号），再按
批量修改mp3文件名标题
批量修改mp3的文件名、标题、艺术家、专辑 方法一: 根据文件名修改标题、艺术家 用千千静听批量修改音乐信息--根据文件名修改文件标签 mp3的标签是指标题、艺术家、专辑、流派、备注、音轨、年代 修改前，建议先把一箩筐的MP3分一下类，比如把相同歌手的歌曲放在同一个文件夹内。其好处看到后面你自然知晓。 现在，打开千千静听。在千千静听（英文名TT Player，以下简称TT）的默认皮肤下，按一下很大的“＋”号（添加曲目），然后选择“文件夹”（添加某文件夹中的所有音乐曲目），找到任意歌手所在目录，并添加入TT列表中。接着，在列表处按CTRL+A（全选的意思，也可以手动选择所有歌曲），并点击鼠标右键——看到了吧，有个“批量文件属性”按钮，点进去！ 下面就是修改音乐信息了。首先是标题，在标题一栏单击鼠标，将闪烁的光标定位于此栏，你只需要点击修改文件名处右边的“从文件名猜测标签”，如果mp3的文件名就是标题，那就在里面输入“%(Title)”即可。%(Title)是歌曲标题的意思，如果mp3的文件名格式不同，你也可以选择其他代码以达到不同的结果，就在输入“%(Title)”地方的下面TT已经做出说明，相信稍懂电脑的人都明白什么意思，小弟不再废话。下面一个可以修改的选项是“艺术家”，只需要修改成这些歌曲的歌手名字即可。这就是为什么一开始要分类存放不同歌手的音乐文件，懂没？接着是专辑，这个选项其实用处不大，你喜欢的话可以修改成你的名字。比如我的所有音乐“专辑”都是“ET收集”，呵呵。剩下的“音轨”、“年代”、“流派”、“备注”基本上都用处不大，供音乐发烧友做修改。修改完后，直接点击TT的“保存到文件”即可！ 方法二：根据文件标签修改文件名 用灵者更名软件--根据标题、艺术家、专辑修改文件名 将需要根据文件标签修改文件名的mp3放在一个文件夹中， 灵者更名左侧视图栏中选择需修改的文件夹，中间的视图会显示出需修改的mp3，在下面的文件名设置里给修改主名打钩选择，在右侧栏视图中共有四个大模块：文件改名、内容编辑、综合任务、更多扩展。单击文件改名模块下的标签--mp3音频，在标签表达式里面输入“#歌名”，单击下面的执行，即可大功告成! 标签表达式可以有更多的表示方式，自己可以根据需要设计修改文件名，与千千静听的是大同小异。
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命令框。输入d:按回车建 再输入：cdyjhebing按回车键，再输入:cdzhaopianku
如何在EXCEL表格中批量插入对应图片
如何在EXCEL表格中批量插入对应图片学生照片用身份证号命名后，核对是个麻烦事儿，有了这个表格就直观多了。 制作过程如下： 1、粘贴学生信息、输入公式并向下填充 在D2单元格输入公式（复制下面的公式并粘贴到D2单元格中）： ="![](@d:\学生照片\"&C2&".jpg@)
" 公式含意：在该单元格中插入来自d盘:\学生照片文件夹中\C2单元格中数值（身份证号命名的）.jpg图片向下填充 2、在D盘根目录中新建一个名为：学生照片的文件夹，并把全校按身份证号码命名的学生图片复制其中。 这些图片最好批量转尺寸为120×150。太小看不清，太大查看起来不便。 3、打开剪贴板 4、选择公式区域（最好分几次进行，每次不超过200格），并复制到剪贴板（见下图窗口右边）。 （因在公式的状态下，很多操作是不能正常进行的，这一步的目的就是留数据除公式。）
5、点击剪贴板中刚复制的数据，把这些数据又粘贴回来（见下图鼠标箭头）。 6、把公式列中的@替换为"（半角单引号）
7、再选择公式区并将数据复制进剪贴板（不要把第一行学生图片这格选进去） 8、将复制到剪贴板的公式重新粘贴回来（见图中鼠标箭头）。 9、调整行高 行高设为：100－120，视图片大小而定。
10、完成表格进行核对 学生名和照片对应表就做好了，如有张冠李戴，及时更改。 学籍照片处理方法 见：全国中小学学籍平台学生照片处理方法图文详解（按住Ctrl 键用鼠标点击上面的红字打开对应网页） 照片命名成身份证号 见：照片批量命名成身份证号的方法图文详解 （按住Ctrl 键用鼠标点击上面的红字打开对应网页）
批量修改多个Word资料文档内容
同时批量修改多个word文档步骤1把要批量修改的文档都放在同一个文件夹中 同时批量修改多个word文档步骤2在修改前，先确定多个word文档文件要被修改的内容如小小要修改的内容是多个word文档中的“西平县”，
同时批量修改多个word文档步骤3双击“word文档批量处理大师” 同时批量修改多个word文档步骤4点击“选择目录” 同时批量修改多个word文档步骤5在弹出的窗口中选择点击要批量修改的多个word文档文件所在的文件夹，然后点击“确定”按钮
同时批量修改多个word文档步骤6此时，系统会自动添加该文件中的所有文档文件 同时批量修改多个word文档步骤7点击“保存列表”
同时批量修改多个word文档步骤8在弹出窗口输入框随便输入一个名字，然后点击“保存”按钮 同时批量修改多个word文档步骤9在word文档批量处理选项中点击选择“1、内容批量替换”
同时批量修改多个word文档步骤10在右边弹出'批量替换文档内容'框体中，在”把文字：“标签下输入要被修改的内容，如“西平县”，在“替换为：”标签下输入要改成的内容，如“我在这”。然后点击“添加为待处理任务”按钮 同时批量修改多个word文档步骤11如果，要被批量修改的内容还有其他的，则先点击“添加到列表”按钮，然后再在”把文字：“标签下输入下一个要被修改的内容，如“啊”，在“替换为：”标签下输入下一个要改成的内容，如“哈“，然后点击“添加到列表”按钮。如此反复把所有要修改的文档内容全部添加到列表后再点击“添加为待处理任务”按钮
同时批量修改多个word文档步骤12在弹出窗口点击”确定“按钮 同时批量修改多个word文档步骤13在弹出窗口点击”是“按钮 同时批量修改多个word文档步骤14在弹出窗口点击”确定“按钮
excel中如何批量修改文件名
如何批量修改文件名 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 我们在使用电脑和网络进行写经验时，经常要从网上下载一些图片进行配图，而网络上的文件名千奇百怪，我们需要将图片文件按顺序编号。因此就需要批量修改文件名，下面就和大家一起分享这个经验。 工具/原料 ?具备一定电脑操作和电子表格xls基础 ?电脑（xp操作系统）、安装有xls 方法/步骤 1.在c盘建立一个文件夹，将下载的图片放置于该文件夹中，如下图所示。
2.鼠标左键点击，开始-》运行-》在对话框中输入字母“cmd”，进入dos模式，如下图所示。 3.在dos模式输入命令行“cd c:\pic”然后回车，再输入命令行“dir /b>rename.xls"，如下图所示，可 将文件夹中的文件名在rename.xls文件中列出。 小贴士：有的时候，你的计算机正处于中文输入状态，为确保命令行能够打出来，你可以切换成英文大写状态。
4.随后用xls打开c:\pic文件夹中的rename.xls，你会发现文件名以全部罗列在A列中（你也可以 用鼠标来调整文件名的顺序），你可以在B1列中输入1.jpg作为第一个文件文件名。 5.鼠标选中B1单元格，并在B1列的右下方，使鼠标光标变为+号时，拖动使所有jpg文件的右侧 B列中都有文件名。再将A8单元格中没有用的文件名删除，如下图示。
6.鼠标选中C1单元格，并在编辑框中输入公式="ren "&A1&" "&B1，如下图所示。 7.继续用鼠标拖动C1单元格右下方的句柄，使剩余的C2-C7单元格填充如下图所示。
8.然后，鼠标选中C列，鼠标右键复制，如下图示。 9.在记事本中，粘贴刚才的命令行，如下图示。
给Word快速插入常用图片技巧
给Word快速插入常用图片技巧 系统下载打开Word2007，先插入一张公司标志图片，并调整好适当尺寸。再选中插入的图片，单击Office 按钮，选择“Word选项”。在“Word选项”窗口中选择“校对”，单击“自动更正选项”按钮。在“自动更正”窗口的“替换”输入框中输入“公标1”，单击“添加”按钮后（如图1），确定返回。以后不管在哪个文档中你只要输入“公标1”后再继续输入，“公标1”就会自动变成公司标志的图片。 图1 在此，“替换为”一项后面不用输入，Word默认会把选中内容当成替换为内容，只是当选中的是图片时“替换为”中会显示成空白，但其实已经有图片在里面了。此外，自动更正可以设置的对象不仅限于图片，还包括文字的格式和表格。你甚至可以同时选中包括图片、表格、文字等多种对象的内容进行设置。此招最大的缺点就是只能对“文字环绕”格式为“嵌入型”的图片有效，也只能插入“嵌入型”的图片。 文档部件，用鼠标插入图片 在Word2007中也可把常用图片保存成文档部件，即可通过鼠标单击选择快速插入常用图片。其优点是比较直观，操作上更顺手，而且对图片没有任何格式限制。 在Word文档选中一张图片（例：公司标志图），切换到“插入”选项卡，单击“文档部件”，选择“将所选内容保存到文档部件库”。在“新建构件基块”窗口中输入“名称”，比如“公标1”（如图2），确定后完成设置。以后编辑时，只要单击“插入”选项卡的“文档部件”即可在下拉列表中找到添加的公司标志图，单击选择即可插入。
图2 设置后关闭Word会提示是否保存到Building Blocks.dotx文档，此时一定要选择“是”。这招对图片、表格、文字等对象也同样有效。其缺点是不适合用键盘输入，而且当添加太多文档部件后比较难找到需要图片，反而不容易输入了。 录制宏，用快捷键插入图片 通过录制宏可以用快捷键插入常用图片，也可以把图片直接添加到快速工具栏上通过鼠标单击插入，兼具前两招的效果。由于可在工具栏上显示插入图片按钮，用鼠标插入图片时要比文档部件更方便，对图片格式也没有任何限制。适于插入少数特别常用的图片，比如公章、签名等等。另一优点是对原图进行修改后，下次插入的就是修改后的新图，无需重复设置，因此也适于插入经常修改的图片。 打开Word2007，切换到“视图”选项卡，单击“宏”选择“录制宏”。在“录制宏”对话框输入宏名为“公标1”，单击下面的“键盘”按钮。在弹出“自定义键盘”窗口中按下你要设置的快捷键“Alt+Ctrl+B”（如图3），单击“指定”按钮添加到“当前快捷键”列表中，“关闭”窗口返回Word。此时Word的状态栏会显示停止录制宏的图标“■”，鼠标指针也多了个录音带图标。
批量修改文件名的简单方法
批量修改文件名的简单方法 整体思路：我们要有一个原文件名和新文件名的对应关系，然后结合重命名命令ren 使用批处理 bat文件解决。 找一个实际案例为例稍稍详细的说明一下：假如我们要将原为员工号为名字的照片文件修改为身份证号为名字的照片文件。 第一步，我们应该从财务或者人事那里要到人员的信息对照表，实在没有，我们可以做一个，用excel来制作，如下图的A、B列，然后使用excel公式生成C列 ="ren "&A2&".jpg "&B2&".jpg" 此处使用了excel的一个字符链接公式，不明白的可以直接复制来用，若想一探究竟可以详细的参考excel的相关知识，需要留意的是每一个 & 符号前后需要有字符（需要用英文状态下的双引号，如"ren "）或者单元格名称（不需要引号，如A2）。 第二步，将C列所有生成的内容（不含表头单元格），复制，点击“开始”-“程序”-“附件”-“记事本”，粘贴，另存为bat文件（保存类型选择“所有文件”，然后在文件名处输入批量修改.bat）。
第三步，将生成的bat文件放到需要修改文件名的文件夹里，双击即可。 上面的例子是针对没有规则的文件名，如果原始文件名和新生成的文件名都有一定的规则，你就可以使用excel的功能将其拖拽生成或者使用公式和函数生成新的文件名。
如果上例中文件名已经带有后缀，那就更好办了，直接在A列的前面增加一列，全部输入 ren 然后不要什么公式生成，直接将三列数据复制到记事本，保存为bat文件，将bat文件复制到图片文件夹，双击即可。 通过这个例子我们知道核心就是 bat 批处理和 ren 重命名命令。学会了这个你就不怕以后再命名大批量的文件了，毕竟从网上下载的那些修改文件名的程序不能解决你的所有问题，特别是如果你的文件名是没有规则的名字。
用宏批量调整word中图片版式大小方向
Sub 图片方向()..................................................... Sub 图片对齐() Application.ScreenUpdating = False '关闭屏幕更新 Dim n On Error Resume Next ActiveDocument.Shapes(n).Select orizontalPosition = _ wdRelativeHorizontalPositionMargin wdRelativeVerticalPositionMargin Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub Sub 图片大小() On Error Resume Next Dim mywidth Dim myheight Application.ScreenUpdating = False '关闭屏幕更新 mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35 myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35 '------------------------------------------------------------------ '调整嵌入式图形 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes If mywidth = "0" Then
利用excelVBA批量修改文件名以及自动插图到word
前段时间，因编写报告，需要把成果图片修改名字后，将图以及相应的名字插入word文档中。一次报告，至少200张图，花了数个小时才弄完工作，同时难免出现差错。之后就一直寻找捷径，基于excel vba以前有一点基础，现将整理出来的代码分享给大家。可以去下载我编好的excel 小程序，里面有详细代码，地址在最下方。欢迎直接试用下，给个反馈建议. 1.查找文件夹中符合图片格式的文件，返回其名字 Dim fs, f, f1, fc, s Dim arr As String Set fs = CreateObject("") Address = Address = Left(Address, InStrRev(Address, "\", Len(Address))) '获得当前工作表所在文件夹路径 Set f = (Address) Set fc = i = 2 For Each f1 In fc '遍历文件 If FileIspicture Then ' 引用了自定义函数 FileIspicture 判断是否为需要查找的文件格式
phname = '获取文件名 houzhui = Right(phname, Len(phname) - InStrRev(phname, ".", Len(phname)) + 1) (i, 1) = Left(phname, InStrRev(phname, ".", Len(phname)) - 1) (i, 2) = houzhui i = i + 1 End If Next 2.修改文件名称 Sub changename() Dim Address As String Address = Address = Left(Address, InStrRev(Address, "\", Len(Address))) n = , 1).End(xlUp).row For i = 2 To n '修改名称 pname = (i, 1) & (i, 2) textname = (i, 3) houzhui = Right(pname, Len(pname) - InStrRev(pname, ".", Len(pname)) + 1) '获取后缀 Name Address & pname As Address & textname & houzhui Next i
在Excel中批量插入固定大小的图片
在Excel中如何快速地批量插入固定大小的图片？步骤如下： 一．编辑图片 1.新建一个文件夹，把要插入到Excel的全部图片放进去。 2.用PS，ACDSEE等工具，尽量把图片设置为正方形，或者统一方向的长方形（比如都是宽短高长）最好 是大小一致，比例相当。 3.把图片的文件名改为有意义的文件名，比如产品编号，人物名字，建筑物名称等。 二．批量获取文件名 这一步不是必须的，但当你面对几十个，甚至几百个，几千个图片的时候，这一步就很有用了，大大省去在Excel中输入图片文件名的时间。步骤： 1.用ACDSEE打开其中一个图片，然后在图片上双击，进入文件管理模式，如图： 2.点击“工具”-“数据库”-“导出”-“生成文件列表”。
3.这时会弹出一个文本文件“Folder-Contents”，可以看到图片文件名，大小，格式等等的信息都在里面了。 把列表前面的文字都删除（------ 及前面的文件，空格都删除），变成如下图：
4.点击“文件”-“另存为”，把文件保存到方便找到的目录（比如本例中E:\Temp\目录下）。 5.启动Excel，新建空白工作簿，然后在“文件”- “打开”- “浏览”找到Folder-Content存放的目录，选择打开文 件类型为“文本文件”（必须，不让看不到这个文本文件）： 6.选中Folder-Content.txt，打开，这时会弹出一个“文本导入向导”，直接点击“完成“：
7.这时会自动生成一个Excel文档，列A就是全部图片的文件名了，然后把这个文档另存为“型号.xls”:
三．批量插入固定大小的图片 1.打开需要插入图片的Excel文档，比如本例的产品信息表，把在“型号.xls”中的图片文件名全部复制，粘 贴到产品信息表的“型号”列： 2.从上图可以看出，图片文件名是从表格A2开始的，所以，在图片列D2中输入：
word文档批量修改图片的方法
[手把手]word批量导入、修改图片大小和压缩图片 工作中，我们不时会需要将大量图片插入word，并对其设置统一的尺寸大小。下面请跟随我，学习批量导入、修改图片尺寸和压缩图片的方法，让你告别重复工作。 工具/原料
?Microsoft Word 2007 一、批量导入图片 1. 1 将所有需要导入的图片放入同一文件夹，修改文件名，使其排列顺序符合我们要求。 2. 2 打开word，依次点击：插入→图片
3. 3 在弹出的窗口，“查找范围”框里找到需要插入图片所在文件夹， 方法一：选中第1张图片，按住键盘Shift键，再选中最后一张图片。 方法二：选中任意一张照片，同时按键盘“Ctrl”键和字母“A”键，全选点击“插入” 4. 4 效果如图
END 批量修改图片尺寸 1. 1 接上面的例子。 方法一：在word软件界面中依次点击：开发工具→宏 方法二：同时按键盘“Alt”键和“F8”键（后面简称Alt+F8）弹出宏创建窗口
2. 2 在宏名栏里任意输入一个宏的名字，本例中我们使用“setpicsize”点击创建
3. 3 弹出“Microsoft Visual Basic”窗口，复制下面的代码到代码窗口里替换掉原有内容： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To 'InlineShapes 类型图片 (n).Height = 5 * '设置图片高度为5cm （1cm等于） (n).Width = 4 * '设置图片宽度4cm Next n End Sub '其中图片本例中图片尺寸为5cm和4cm 4. 4 点击“Microsoft Visual Basic”窗口工具栏里的“运行”按钮（类似播放器里的播放按钮）或者按键盘“F5”键 等待一会儿……（等待时间取决于你插入图片的多少和你电脑的运算速度）……
EXCEL表格如何批量导入图片
EXCEL表格如何批量导入图片 1、准备好图片放入一个文件夹（图片名字需与表格的名称一致，为*.jpg） 2、右击图片属性，图片路径，红框处，复制出来： G:\图片\ 3、回到表格，拷贝红框的文字，复制-粘贴到*.txt文档，转为纯文字格式，txt 文档另存为11（名字任意）。
表格里的图片名称（图片名字需与表格的名称一致，为*.jpg），我习惯用货号命名图片，如下图：
4、做好导入图片公式的txt格式文档。 ①把“商品编码”删掉。
②表格要求导入的图片不多的话，可以直接用复制-粘贴，图片名称前后是一样的。如果是上百个，上千个图片需要导入，那就要借助word的力量。 word每行行首、行末添加相同的指定字符 行首：替换^p为^pA（A为你要插入的字符）行末：替换^p为A^p（A为你要插入的字符） 图片名称前的文字：
③把txt的货号复制到word文档，替换行首，行末 第一行的行首没有替换到，把最后一行的剪切上去即可，手动调整后（注意每一行的图片名称不能调换顺序）替换行末： 点击全部替换。
④替换好后发现引号是全角引号，必须要转为英文状态下的半角引号。 ⑤复制文档1容，粘贴到11.txt文档巧用EXCEL批量修改文件名
巧用EXCEL批量修改文件名 平时经常会遇到为大批文件统一重新命名的问题，现将本人在实践中总结的一套“巧用Excel批量修改文件名”的方法介绍给大家。 为了方便说明问题，我们用一个简单的实例来介绍如何巧用Excel批量修改文件名。 例如有一些照片文件存放在一个文件夹下，它们的文件名分别是1.JPG，2.JPG，4.JPG……(编号并不一定连续)。这是本人去武汉游玩所拍摄的照片，为了便于管理，想为它们重新起个有意义的名字，如：武汉1.ipg，武汉2.ipg.jpg，武汉3.ipg……。 现在，让我们一起来看看如何轻松地完成这个批量修改文件名的任务吧。 第一步：请将所有要批量改名的文件存放在同一个文件夹下。 第二步：按WIN+R快捷键，在弹出的“运行”对话框中输入“CMD”，打开一个命令行窗口。并利用CD命令将当前目录指定为第一步中的文件夹。 技巧提示：可以在命令行窗口中先敲入“cd ”(cd后留一个空格)，然后在资源管理器中打开要指定的文件夹，将资源管理器地址栏中的文字选中后拖动到命令行窗口中，以加快输入文件夹路径的操作。 第三步：进入指定的目录后，在命令行中输入“dir／b>gm．Txt”。其中"dir／b'表示只列出文件名，不显示其他任何信息。“>”号是输入输出转符号，即将dir／b的输出由默认的屏幕转到gm．txt文件中。
技巧提示：可以使用“dir／o”命令进行排序输出，具体使用方法请在命令行中输入“dir／?”，查看具体的帮助信息。 第四步：现在该主角上场了。启动Excel软件，进行如下操作： 1．在当前工作表的A列第一行上输入“rer ”(rer后留一个空格)； 2．打开第三步中创建的gm．txt文件，删除内容为"gm．txt”的一行后，按Ctrl+A键全选，再按Ctrl+C键复制； 3．回到Excel中，在B列第一行的单元格上单击鼠标右键，在弹出的菜单中选择“粘贴”菜单项，将步骤2中复制的内容粘贴到B列； 4．在C列第一行输入一个空格； 5．在D列第一行输入第一个文件要修改成的文件名“武汉001.jpg”； 6．利用自动填充序列的方法依次填充D列、C列和A列，其中D列为依次增加1的等差序列填充，C列和A列为复制填充，填充长度当然是和B列一致。(如图) 技巧提示：在生成D列中的文件名时，可以使用Excel中的函数产生各种特殊的文件名称序列，也可以灵活使用文本函数通过原文件名或其他字符串组合生成新的文件名。这里不说了，请在实际使用的过程中摸索吧。 第五步：在Excel中选中A-D列所有包含数据的行，按Ctrl+C 键复制。 第六步：在资源管理器中双击打开gm．txt文件，按Ctrl+A 选中全部内容后，按Del键将其删除。再按Ctrl+V键粘贴第五步中所复制的内容，保存并关闭gm．txt文件。
Word宏：Word中的图片批量统一大小及同比例缩放(图)
?Word宏：Word中的图片批量统一大 小及同比例缩放（图） 有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。下面的方法就是告诉我们如何来实现很多的图片统一大小。 实现代码： Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next'忽略错误 For n = 1To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).Height = 400'设置图片高度 为400px ActiveDocument.InlineShapes(n).Width = 300'设置图片宽 度300px Next n For n = 1To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400'设置图片高度为400px ActiveDocument.Shapes(n).Width = 300'设置图片宽度300px Next n End Sub 使用方法，把代码复制到Visual Biscal编辑器中，再回到Word界面，运行“宏”命令。 操作步骤如下： 1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal 编辑器。
2）插入normal工程“模块”。
3）在“模块”中粘贴上面的代码。
4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。 看一下结果，是不是你想要的统一图片大小。
如何在EXCEL表格中批量插入对应图片-更新
如何在EXCEL表格中批量插入对应图片-最新更新
————————————————————————————————作者：————————————————————————————————日期：
如何在EXCEL表格中批量插入对应图片学生照片用身份证号命名后，核对是个麻烦事儿，有了这个表格就直观多了。 制作过程如下： 1、粘贴学生信息、输入公式并向下填充 在D2单元格输入公式（复制下面的公式并粘贴到D2单元格中）： ="
" 公式含意：在该单元格中插入来自d盘:\学生照片文件夹中\C2单元格中数值（身份证号命名的）.jpg图片向下填充 2、在D盘根目录中新建一个名为：学生照片的文件夹，并把全校按身份证号码命名的学生图片复制其中。 这些图片最好批量转尺寸为120×150。太小看不清，太大查看起来不便。 3、打开剪贴板 4、选择公式区域（最好分几次进行，每次不超过200格），并复制到剪贴板（见下图窗口右边）。 （因在公式的状态下，很多操作是不能正常进行的，这一步的目的就是留数据除公式。）
5、点击剪贴板中刚复制的数据，把这些数据又粘贴回来（见下图鼠标箭头）。 6、把公式列中的@替换为"（半角单引号）
7、再选择公式区并将数据复制进剪贴板 8、选择“Unicode文本”粘贴 ①.复制（学生照片列数据）→粘贴（到记事本） ②.复制（刚才粘贴到记事本中的数据）→（回到Excel工作表学生照片列）右键→选择性粘贴 ③.选“Unicode文本”粘贴回Excel工作表→确定 （如果数据不到记事本中过一下，“选择性粘贴”窗口中就不会出现“Unicode文本”粘贴选项，这一步很重要)
word中批量修改图片大小的两个方法
word中批量修改图片大小的两个方法 各位读友大家好，此文档由网络收集而来，欢迎您下载，谢谢word中批量修改图片大小的两个方法 对于把ppt的内容拷贝到word中： 对ppt的一页进行复制，然后粘贴到word中 如果要的是ppt运行过程中的内容，在qq运行的情况下，按Ctrl+Alt+A截屏，按勾，然后可以直接粘贴到word中(生成的图片已经在剪贴板中了) 1.图片只需要符合文档大小即可 方法：插入图片，word自动处理图片大小。 看一下下方的文件名 按Ctrl+A(全选)，图片的顺序按照电脑文件的顺序排列的
每一次按Ctrl+点击图片，被点击的图片放在首位 效果： 2.图片需要修改为具体的大小 把图片复制，直接在word中粘贴，图片以原始大小显示 按视图 按宏，查看宏，输入setpicsize，按创建 复制并粘贴以下程序并按调试+编译，看看程序有没有错误 Sub setpicsize() Dim i Dim Height, Weight Height = 300 Weight = 200
On Error Resume Next ‘忽略错误 For i = 1 To ‘InlineShapes类型图片 (i).Height = Height ‘设置图片高度为Height_px (i).Width = Weight ‘设置图片宽度Weight_px Next i For i = 1 To ‘Shapes类型图片 (i).Height = Height ‘设置图片高度为Height_px (i).Width = Weight ‘设置图片宽度Weight_px Next i End Sub 如果没有错误，保存(Ctrl+S)并退出(Alt+F4) 然后按宏，查看宏，选择名字为setpicsize的宏，并按运行，稍等片刻即可完成
Word 2007中批量快速插入图片技巧
Word 2007中批量快速插入图片技巧 我们知道，对于某些特定的字符，可以通过“自动更正”的方法实现快速替换，其实图片也是可以自动更正的，这在需要经常调用某些图片时相当实用，这样就不需要每次逐个手工插入了。这里以Word 2007为例进行说明，让你在输入“1”、“2”这些数字时，能够自动替换为相关的图片（例如频繁出现的公司LOGO图片等）。 首先将相关的图片插入到Word文档的窗口中，然后按下“Ctrl+C”组合键将它们复制到剪贴板中备用。这一步至关重要，否则下面的操作将无法正常完成。 接着单击Office按钮打开“Word选项”对话框，然后切换到“校对”选项卡，在这里你会发现一个“自动更正选项”的按钮，单击后即可打开如图所示的对话框，在“替换”后面的文本框中输入图片名称“1”。此时我们会发现原来右下角的“添加”按钮已经可以正常使用，接下来直接单击“添加”按钮，添加图片就可以了。 需要提醒的是，如果前面的步骤没有进行的话，那么即使在“替换”下面的文本框中输入了相关的字符，也会看到“添加”按钮仍然呈现不可用的灰色状态。
按照类似的步骤，你可以继续添加常用的图片到其他自动更正的项目，以后插入相关图片时就方 便多了（虽然“替换为”文本框中没有任何反应，而且确认后“替换为”一列也只是显示为“*”号，但这只是显示的问题）。 以后，当我们在Word文档中输入1、2……这样的数字时，按下回车键后，相关的图片就会自动出现在Word文档中，大大提高了工作效率。 word批量修改图片大小 1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！ 2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存 Sub setpicsize() '设置图片大小 Dim n'图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px Next n End Sub 3、返回word，工具－宏－宏（或者直接按Alt+F8），再次进入宏的界面，选择刚才编辑好的宏，并单击“运行”按钮，就可以了！（图片多时，可能会花一些时间） word批量修改图片大小——按比例缩放篇 这部分要说的是把word中的所有图片按比例缩放！ 具体操作同上，只是代码部分稍做修改，代码如下： Sub setpicsize() '设置图片大小
电子表格批量插入图片
电子表格批量插入图片 准备工作： 1.整理好所插入的图片： 具体批量插入图片操作： 步骤一： 写入图片路径，做到单元格中图片名称和插入的位置相对应。具体进行如下操作： 1.在图片插入位置写入图片定位公式：
="
" （注意：需要在内容输入位置输入公式（不要在单元格内直接输入公式），公式输入结束后按回车结束公式输入操作。 注意公式的标点符号为英文格式。 将公式写入到图片插入位置单元格后会看到实际表现出来的内容并不是我们所写入的，而是这个=“”之内的内容。） 2.完成第一个位置定位之后，下拉单元格，通过下拉自动填充完成整列的图片定位公式的写入。 步骤一例子： =""步骤二： 步骤二例子： 选中所有公式，复制。ctrl+C+C 在复制状态下，删除b列复制的内容。（如果你不需要再原有位置显示图片，可以不删除，这里删除只是为了给要引用进来的图片腾地方） 删除后，在剪切板中点击之前复制出来的内容。使用选择性粘贴，并选择"unicode文本"方式。之后图片就会出现在每一个所对应的图片插入位置列中。 ps： 1、图片在批量插入后，对存放图片的物理文件夹中再增加图片时，excel里即使有相应的引用也不会自动更新，除非手动刷新，重插。 2、在插入图片前，最好先调整好表格的宽度和行高。太小的话，插入的图片会堆积在一起，数量大时，很难排版。 3、本操作是在excel2003中进行的，2010等版本没有测试。
