搜档网
当前位置:搜档网 › 批量插入照片及文件名到WORD(宏)

批量插入照片及文件名到WORD(宏)

批量插入照片及文件名到WORD(宏)

本程序可实现批量把指定文件夹的JPG照片及文件名插入到WORD文档中,极大提高工作效率。

方法:运行宏autoopen,选择图片所在文件夹,点运行则照片自动插入到文档中。照片大小可在代码中调整。

代码未加密,可自行修改。

zhoudianhong@https://www.sodocs.net/doc/094735305.html,

(完整版)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"来显示文件和目录的大小。

完整版通过EXCEL宏和SAPScript进行批量业务处理

通过EXCEL 宏和SAP Script 进行批量业务处理 SAP 提供了很多批量导入的工具,但问题是一般情况下不会赋予普通用户这些权限,因此 我结合EXCEL VBA 和SAP Script 功能整理出一个简易的批量业务处理方式,供大家参考 使用SAP Script Recording 功能录制SAP 操作,生成代码块 1.激活 SAP Script Recording 2.选择存放路径和script 代码块文件名称 3?点击「开始录制SAP 操作,建议以”/N ” +务代码,以保存为结尾。生成如下程序 代码文件, 可以用文本编辑器打开 Limank l£d£ Goto 百ysttirr Ho-p e - e eee Q I AK 霍I 忙巧餡臨?丨?— Sa 猶 D-Qckj^g GonTanFT Layout glex 日 DeckfiQ Cantanef sou 口 M ME Gfineira:* G 它口「忙 CTBatfl shoutcj^t,,. Acthrate SuiXT 5CfpC FlfrCCirdlM and 田3卢目 dk … ^AP ^ui hCHbiw neb Dfliftulr 5? 生rd Coey 口⑻?dter Set * 口uiEk Cut ?".d Pn3t? 宜群6*聽鞅 SA£ GUI 卜i 哦q ^ Dtepiav before revemi [ffl Wm£r?r 1st £ DO ?口盯础门星N urri&fir [T 匚Bmpany c^d? TMg-l FlfiUl Yiii Joie 5p^izifca :i? hs fix R CVTE P&strig Revertal 陆』 kscm 1 ol 1 PrHFtng 令 P L tin j Puicid Ch^ck rnensoum ?nt 9fiec*K3ir?n5 raacaH c oda CtocumarK DawAt T 扌城 Rfl D^xti-g Oste

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

批量修改多个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

solidworks模型自定义属性的批量处理的宏代码

Attribute VB_Name = "利用子件处理属性1" '利用子件进行自定义属性的批量处理的VBA代码 '比较完善的第一版完成时间2012.11.05,作者:张中锋 '适用于深圳东风有限公司solidworks老模型属性更改满足金蝶公司PLM系统要求实例'测试通过环境:2012.11.05 windows XP SP3 ;solidworks 2010 SP02(32bit) '''''''''''''''' '''''''''''''''' '''''''''''''''' ' '版本更新日志 '1.0 2012.10.29 ①对属性中,存在空白情况处理时数据异常进行修复;②对于已经存在的自定义属性值,保护其值不被处理 '已知的bug记录 Public swModel2 As SldWorks.ModelDoc2 Public PARTNAME_Value_temp As String Public MATERIAL_Value2_temp As String Public swApp As SldWorks.SldWorks Sub main() Dim swModel As SldWorks.ModelDoc2 Dim swModelDocExt As SldWorks.ModelDocExtension Dim swSelMgr As SldWorks.SelectionMgr Dim swBOMAnnotation As SldWorks.BomTableAnnotation Dim swBOMFeature As SldWorks.BomFeature Dim swBomTable As Variant Dim boolstatus As Boolean Dim BomType As Long Dim Configuration As String Dim TemplateName As String Dim i, j, n, k As Integer Dim swBOM_name As String Dim component As Component2 Dim value_temp As Integer

利用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

批量处理和单个处理word图片大小和比例的宏

设定单个图片大小的宏: Sub 宏5() Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横 比锁定 Dim h!, w! h = Selection.InlineShapes(1).Height w = Selection.InlineShapes(1).Width Selection.InlineShapes(1).Height = 627 '设置图片高度为627px Selection.InlineShapes(1).Width = 407 '设置图片宽度407px End Sub 设定单个图片比例的宏: Sub 宏3() Selection.InlineShapes(1).LockAspectRatio = msoFalse '解除纵横 比锁定 Dim h!, w! h = Selection.InlineShapes(1).Height w = Selection.InlineShapes(1).Width Selection.InlineShapes(1).Height = h * 1.25 '设置图片高度比例为125% Selection.InlineShapes(1).Width = w * 0.77 '设置图片宽度比例为77% End Sub

批量设定图片大小的宏: Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400px ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片Selection.InlineShapes(n).LockAspectRatio = msoFalse ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400px ActiveDocument.Shapes(n).Width = 300 '设置图片宽度300px Next n End Sub 批量设定图片比例的宏 Sub 宏1() Dim n '图片个数 Dim picwidth

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”键 等待一会儿……(等待时间取决于你插入图片的多少和你电脑的运算速度)……

word里如何批量处理图片的大小-不知道你就out啦

这两天在整文档,提交过来的文档里面有几百张图片,规格都不一样,堆在文档里面很难看。为美化文档,我决定将图片规范化,都设置成425x320像素大小。手工修改每张图片很费时间也费鼠标,借助word的宏功能可以很好完成这一任务。 打开word,按下Alt+F8,出现宏界面,为新建的宏取名为AdjustPicWidthAndHeight 点击编辑按钮,输入下面红色字体标出的内容 Sub AdjustPicWidthAndHeight() ' ' AdvertisePublishAs 宏 ' 将广告发布导出为 PDF 和 XPS 'Sub setpicsize() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比

ActiveDocument.InlineShapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.InlineShapes(n).Width = 425 '设置图片宽度 425px Next n For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '不锁定图片的纵横比 ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 320px ActiveDocument.Shapes(n).Width = 425 '设置图片宽度 425px Next n End Sub 返回word,工具-宏-宏(或者直接按 Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了!(图片多时,可能会花一些时间) Sub AdjustPicWidthAndHeight() ' 'Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(6.46) '宽5CM iSha.Height = CentimetersToPoints(6.28) '高5CM End If Next End Sub

Excel通过宏来处理批量复制操作

一、开发工具菜单 插入复选框 1.点击Excel左上角的图标(如图一),在弹出的窗体内点击“Excel选项”会弹出“Excel选项”窗体。 图一 2.在窗体内的“常用”选择项卡下,将“在功能区显示“开发工具”选项卡”选项勾中。点击“确定”按钮

图二 3.在Excel菜单栏处会显示出“开发工具”菜单 点击“开发工具——插入”会弹出一个控件选择框。 图三 在控件框内选择要插入控件,在Excel表内画出即可。 4.修改ActiveX控件属性,在Excel内选中ActiveX控件,点击菜单内的“属性”会弹出相应控件的“属性窗体”,在窗体内可对控件的属性进行调整。

二、VBA的使用 录制宏 1.新建sheet1,录入工资信息 2.在word选项内添加开发工具菜单。 3.选中标题列A1,点击开发工具——录制宏 4.在弹出的录制新宏内维护宏名称、执行快捷键操作 注意,快捷键只能是Ctrl + 英文字母

5.录制新宏维护好,确定保存后。 6.在执行操作前,要先点击开发工具——使用相对引用。显示如下图所示的选中浅黄 色背景 7.选中A1行复制,再选中A3行,执行复制单元格操作 选中A3单元格,点击开发工具——停步录制完成录制宏操作。 8.点击开发工具——宏,打开宏查看页面,可以查看到刚录制完成的宏“宏4)”

9.选中录制的宏,点击执行,在下面列自动添加1行标题栏 10.批量录制宏操作 11.打开宏查看页面,选中宏,点击编辑打开VBA代码页面

12.在VBA代码编辑页面录入批量复制代码保存(下面代码红色标识) Sub 宏4() Dim i For i = 1 To 15 '15 是表示执行15次复制操作(要根据sheet表内容进行判断,例如我建了16行数据,去除第1列已有标题剩下15列需要添加标题列所以这里写15表明要执行15次)' 宏4 宏 ' ' ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown ActiveCell.Select Next End Sub

巧用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文档。运行“工具”-“宏”-"宏命令"。 看一下结果,是不是你想要的统一图片大小。

相关主题