批量插入图片并命名
在一个文件件内有一百多张照片，我想批量插入WORD并且使得WORD中的照片下方有文字说明（说明内容是对应的照片的文件名），我已经设置好了WORD的页面正好每页能装2张照片（含文字说明），全选照片拖入WORD后能实现批量插入，但需要单个在底部写，请教大家有没有把照片批量插入并用照片的文件名作为WORD中照片底部文字说明的办法？
Sub 插入图片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "C:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True) mypic.Width = 400 '根据需要设置
mypic.Height = 300
If Selection.Start = ActiveDocument.Content.End - 1 Then '如光标在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Selection.Text = Basename(fn) '函数取得文件名
Selection.EndKey
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
以上代码打开文件夹，选择一个或多个图片插入，插入100多张图片比较慢，基本可以实现楼主想法，最好是在空白word文件中测试
函数取得文件名代码是网上找的，稍加改动
经测试
将
mypic.Width = 400 '根据需要设置
mypic.Height = 300
替换成下面代码即可按比例调整
'按比例调整相片尺寸
WidthNum = mypic.Width
c = 3 '在此处修改相片宽,单位厘米
mypic.Width = c * 28.35
mypic.Height = (c * 28.35 / WidthNum) * mypic.Height
PROE保存副本批量重命名的方法
PROE保存副本批量重命名的方法 相信对PROE稍微有些实战经验的人来说，对于文件（包括零件、组件、工程图）的重命名或许都曾感到头痛。因为牵一发动全身，往往采用最为原始的办法。即：要修改一个零件的文件名，要将所有用到这一零件的工程图、组件，全部打开，再对零件执行文件——重命名操作。对于一两个零件来讲，倒不觉得困难。但是，试想一下，当你面对一台设备一套图纸数十个或者数百个零件的时候，要求全部按一定的规则重新进行文件命名，这时估计再有耐心的人，按上面的方法去做，也会恼火了！其效率也是可想而知的。 其实PROE面对这种情况，有它自己的解决方案，方便快捷！通过组件中的保存副本，可将零件、组件、工程图一次性实现重新命名，而且不失去其关联性。尤其适用于顶级组件的操作。下面，以PROE3.0m120为例以实例进行讲解，其余版本大同小异。 1、方法概述 其实方法操作起来相当简单，先讲讲大概的思路。在组件保存副本时，输入新名称后系统会弹出对话框，要求是否要重新命名组件内的零件、子组件名称。此时选择全部零组件，全部重命名。此时，PROE可将这一重命名的操作保存成文件，文件内容即是原文件名与新文件名的一一对应关系。利于这一特性，我们对形成的这一文件中新文件名进行修改后保存，再重新导入到保存副本的窗口中即完成了重命名操作。 2、具体操作 2.1 如图所示模型树，是一个项级组件（最高一级或称总装），里面包含了组件和零件若干个,当然这里面有些零件是有工程图的。我们的目的是要将这一组件内的所有子组件和零件 进行重命名操作。
2.2 点保存副本图标（或文件——保存副本），在弹出窗口中选择好要保存的路径（建议在 此窗口新建一个文件夹，方便管理），输入新的文件名，确定。如图所示
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
给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的状态栏会显示停止录制宏的图标“■”，鼠标指针也多了个录音带图标。
图片批量命名
图片批量命名方法 1、打开电脑“开始”，选择“运行”，如下图： 2、点击“运行”后出现如下对话框： 3、在运行中输入cmd，点击确定， 4、出现下面对话框，输入需批量命名文件夹所在磁盘（如e：）后回车：
5、然后输入dir（空格）+文件夹所在目录（如E:\10.12入职员工毕业证）+/oe/b/w>>文件名.txt（此文件名指此命令会生成的文本文档），回车。如下图： 6、回车后找到“文件名.txt”文件（因输入的盘符是e盘，故会保存在e盘中），然后将文件内容复制到excel，利用excel自带的函数将各图片的命名设置成可批量修改的文件名格式“ren（空格）+图片原始命名+（空格）+图片新的命名+.jpg”，其中，图片新的命名为“__员工编号__XX员工XX证”。（身份证为“ren（空格）+图片原始命名+（空格）__员工编号__XX员工身份证__正面/反面+.jpg）。以下分情况分别详细介绍： ①身份证正面：在单元格里输入公式="ren"&"（空格）"&图片原
始名称&"（空格）"&"__"&员工编号&"__"&A员工姓名&"身份证"&"__"&"正面"&".jpg" ②身份证反面：在单元格里输入公式="ren"&"（空格）"&图片原 始名称&"（空格）"&"__"&员工编号&"__"&A员工姓名&"身份证"&"__"&"反面"&".jpg" ③其他证照：在单元格里输入公式="ren"&"（空格）"&图片原始 名称&"（空格）"&"__"&员工编号&"__"&A员工姓名&"XX证 "&".jpg" 其中，符合""为英文格式下的""。 注意：“XX证”以“资质证书管理信息表”上为准。若此证书未包含在“资质证书管理信息表”中，则以图片上的证书名称为准（不能采用简写或缩写的形式）。 7、命名修改完毕后，将正确命名复制到另一个文本文档中，命名后保存在图片所在文件夹，最后将扩展名改为“.bat”格式。 8、生成bat文件后，双击此文件即可发现图片名称已修改成我们所需要的名称。 综合管理部信息中心 2012年10月15日
巧用EXCEL为照片批量改名
巧用EXCEL为照片批量改名 随着办公无纸化、信息网络化的兴起，学生的学籍管理也与时俱进，在籍学生全部都要用电子相片来制作学籍电子档案。学生照片用数码相机很快就可搞定，可照完后却发现文件名的设定可是个问题。我校数码相机型号为尼康E7600相机，照出的相片自动以DSCN0001．JPG为首文件名来依次命名。可是要存入学籍管理软件的电子相片文件名要求以学生的入学学籍为相应文件名。要是全部逐一改名的话，那可麻烦大了。经过几番测试，笔者发现将EXCEL软件中的自动填充功能和REN命令，以及．BAT批处理命令结合起来，可以轻而易举地实现这一改名需要。 第1分钟：准备照片。 事前按照学籍顺序将学生排好序列，然后逐一拍照，完成后将相片文件拷到电脑上备用，如存放在“D：\photo”文件夹内。 第2-3分钟：巧用EXCEL填充柄，批量建立改名命令行。 第一步：打开EXCEL软件。在A列中输入照片名“DSCN0001．JPG”，然后用填充柄向下拖动，一直到合适的数字为止。然后，在B列中以学生的学号等信息输入“13118120100001．JPG”并用填充柄向下拖动直到合适的位置停止。 第二步：在C列中输入以下内容“="REN "&A1&" "&B1&""”（注意：外侧双引号不用输入，内部双引号必需是在英文状态下输入）后按下回车键，即可出现相应结果。 小贴士：这里的REN其实就是DOS中的重命名命令，本例中这句命令的意思是将A列中的名字重命名为B列中对应的名字，这条命令在EXCEL中无法使用，仅用来以备后用。 第三步：向下拖动该单元格的填充柄，直至对应左侧的内容。最终效果如图所示。最后将C列中的全部内容选中并进行复制。 ●这是利用EXCEL填充句柄批量生成的重命名命令。
批量给照片命名步骤
第一步，准备工作 1、导出你的学生的名字和身份证号比如：book1备用（姓名在A列，身份证号在B列）。（一是后面要用，二是可以按此顺序照相） 2、按你想要的顺序照好照片，并保存的相应的文件夹中。 第二步：提取照片的名字。 把以下代码复制 @echo off dir /a-d /b >./照片名.txt 在照片文件夹中，新建文本文档，并打开，把上面代码粘进去。保存 把新建文本文档.txt的扩展名改成bat，即把.txt改成.bat。保存。 双击该bat文件，这时你会看到生成了一个照片名.txt的文件，打开它，你会看到照片的名字就按顺序提取出来了。 第三步，复制照片名进电子表。 直接在照片名.txt文件中复制到book1C列即可。 第四步，在book1中运用查找替换功能把.jpg换掉。只有文件名。比如：100-7471.jpg换成了100-7471 第五步，照片想命的名字的命名。 在D2单元格里输入=B2&".JPG" 并下拉让所有的学生身份证号加上.jpg在D列显示。这时这一列的结果会是这样子的：420682************.JPG 第六步，编辑批处理命令 在E列输入（="ren "&C2&".jpg "& D2）复制括号内的不含括号。和第五步一样，所有学生批处理命令都做好。这时的结果会是这样子的，ren 100_7471.jpg 420682************.JPG 现在离成功只有一步之遥了！～ 最后一步： 把E列里的数据复制到一个新的文本文档，随便命个名字，其扩展名为.bat. 比如文档.bat 现在双击这个新的扩展名的bat的文件试试！～ 看到奇迹了吗？
怎样把照片批量重命名成学生姓名
怎样把照片批量重命名成学生姓名? 学生姓名来源于excel，照片是序列和excel的姓名相对应，用什么方法快速处理 回答: 可以使用系统自带的批量命名程序，也可以用ACDSee 和Adobe Bridge，他们都有一个批量重命名的功能，都可以选择非图片文件一次批量重命名。对电脑熟悉的话你可以用下面这个： 先在打开含有报考信息的Excel文档，假设学号在第A列，姓名在第B列，身份证号在第C列等等，则在第一条学生信息后的空白单元格中输入“="ren "&A2&".jpg "&C2&".jpg"”（不包括外引号，注意，这里的A2是指第A列的第二行，因为第一行一般是字段名：学号、姓名等，如果没有字段那么这里的公式里就应该是A1、B1，有两行字段那么就应该是A3、B3），回车会得到一个类似“ren 200600001.jpg XXXXXXXXXXXXX.jpg”的DOS命令。 2.点击该单元格右下角的填充柄，将公式应用到所有学生，复制此列所的数据。 3.新建一个记事本，粘贴复制的内容，得到的就是文件重命名的DOS命令。 4.将该文件保存到学生照片文件夹下（学生照片文件夹是复制后的，这样不会破坏原有数据），将扩展名".txt"
改为".bat"，这时只要双击该文件，就会自动将我们所需要的以学号命名的图片重命名为以身份证号命名的图片文件了。 5.接下来单击右键更改文件的排序方式，一般最前面或者最后面的文件就是我们所需要的图片了。 这个的好处是可以将照片以身份证号或者学号重命名，学生的话一般都有学号的吧。 系统自带的批量命名程序就是指：把execl的学生姓名和编号两栏导出成txt格式,然后打开txt,在每行前面用替换功能加上"rename ",然后在编号和名字后边都加上.jpg,然后保存成bat,放在照片的文件夹,执行bat。然后就OK了。希望你成功 可以用批处理实现 把execl的学生姓名和编号两栏导出成txt格式,然后打开txt,在每行前面用替换功能加上"rename ",然后在编号和名字后边都加上.jpg,然后保存成bat,放在照片的文件夹,执 行bat. 标签：excel重命名学号dos命令身份证号分类：学籍管理2010-04-20 20:07 学生照片根据EXCEL中的学生学号或其它信息重命名批量重命名 学生姓名来源于excel，照片是序列和excel的姓名相对应。1，进入到需要重命名文件的文件夹中，新建一个txt文件，内容为dir *.jpg /b>ren.bat(假如你要重命名的是图片的话，
35款免费批量重命名软件
35款免费批量重命名软件.txt大悲无泪，大悟无言，大笑无声。我们手里的金钱是保持自由的一种工具。女人在约会前，一定先去美容院；男人约会前，一定先去银行。35款免费批量重命名软件 批量，我爱批量。当发现做一件事情，原本用工具或软件进行批量处理也能达到相同效果，可却花了数倍的时间去处理的时候，会很讨厌自己的愚蠢。当你在电脑上做某个操作时，如果觉得可能会有批量操作的工具，那你宁可花上一天的时间去找出这么一个适合的工具，而不是进行枯燥的重复性工作。 平常我们最常用的批量处理有批量处理图片大小和批量重命名文件。我们已经发布过15款图片批量处理软件下载，下面则是35款批量重命名软件，包含文件重命名和一些MP3 ID3值批量处理的软件。35款或许有点太多，但记住，你值得花时间去找出一款最适合你的。那将让你以后的类似工作事半功倍。 黄金屋-文件批量编号软件 用于mp3,3gp,mp4等资源的自动编号或者去除编号。以利于导出歌本和通过编号查找资源。操作说明：分四步A：设置路径点按钮【1.增加文件路径】则上面的数据框会插入一行。请点每行右面的小按钮。 Rename Master 批量改名工具，可以根据 MP3 文件的 Tag Info 改名，还可以同时更改文件属性 Bulk Rename Utility 最好的文件更名工具！完全免费，界面友好，共分为13项操作内容。你可以批量给文件或文件夹重命名，随时更名随时预览。你可以批量给文件或文件夹名称添加前缀或后缀，添加日期，自动编号，批量删除指定字符 Pfrank 成批重新命名文件，能使用固定的表达式，其中预先确定重新命名指令或者组合。被预先确定的重新命名指令允许字母和计数的插入，记载日期，父文件夹命名 Aoao Batch Rename 一很适用的免费软件批量更新文件名，运行速度快，占用资源少，而且是绿色软件。比如从数码相机取出400张张片，用本软件改名字，10秒不到就可以完成（操作时间除外） 文件批量改名 一款功能强大的文件改名工具。可以把所有的文件快速方便的重命名；支持所有格式；支持改名预览；支持文件属性更改；支持文件时间修改；支持多文件夹同时处理；支持音乐、图像改名前预览等功能。 Mp3标签修改器 可以根据您歌曲的歌曲名等属性进行重命名： 从网上下载的Mp3往往文件名无法准确识别是什么歌曲，需要打开才知道，用Mp3标签修改器，可以帮助您批量按您想要的规则命名，容易识别！
利用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、粘贴学生信息、输入公式并向下填充 在D2单元格输入公式（复制下面的公式并粘贴到D2单元格中）： ="![](@d:\学生照片\"&C2&".jpg@)