批量改名bat+用Excel中的内容替换word中内容VBS

w731883875 发表于 2020-9-25 09:24

之前发错区了~~~现在重新发一次~
批量改名可修改文件夹及文件，只支持本目录修改，不支持子目录下面的文件夹或文件修改
压缩包内均有使用说明

一、批量改名（bat）
1、解压文件到需要改名的文件夹里面
2、双击批量获取当前文件夹名字.bat
3、打开获取的文件（夹）名.xls
4、删掉不需要修改的行，插入第一行，复制粘贴需要修改的文件夹名（参考获取的文件名修改后）
最终格式为
ren 111 张三
ren 222 李四
5、复制修改后的表格文字，新建txt（文本文档），粘贴-保存
6、新建文本文档txt后缀修改为bat即 txt--改成--bat
或者粘贴信息后删掉后缀.txt保留.bat，注意小点
7、双击运行表格数据复制后修改后缀双击运行.bat

修改文件名注意都需要增加后缀（注意空格）
ren 111.jpg 张三.png
ren 222.jpg 李四.png

下载网址：https://wwa.lanzouj.com/iDzZIgvtfgh

二、用Excel中的内容替换word中内容（VBS）
1：修改表格1中的代表性如Q1--10，和后续部分，如张三 11
2：修改word里面需修改填充位置为表1中代表性如Q1，需连续插入，请在Q1后留有空格即【Q1 】
3：修改代码中word及Excel文件路径及代码后缀为.VBS，双击运行
4：自动打开word修订，保存关闭

下载网址：https://wwa.lanzouj.com/iFQjFgvtfhi

loading00 发表于 2020-11-27 18:29

感谢分享，正好能用上，谢谢了。做了一点小修改免得每次修改地址

'将下面这一行代码的双引号中的内容替换成你的word文档地址
pathfile = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
wordPath = (pathfile&"\报告1.docx")
'将下面这一行代码的双引号中的内容替换成你的excel文档地址
exelPath = (pathfile&"\1.xlsx")

千城忆梦 发表于 2020-9-25 11:07

刚好工作要用到谢谢楼主了

1427249470 发表于 2020-9-25 11:54

虽然早已领悟，还是感谢楼主的分享{:301_993:}

CrystalFL 发表于 2020-9-25 12:08

不错，比较实用的东西

tailor001 发表于 2020-9-25 12:43

不错的功能

一丝风 发表于 2020-9-25 12:45

试试看好不好用

羊卓雍措 发表于 2020-9-25 14:46

要是能配几张图就更好了。

列明发表于 2020-9-25 14:57

标记一下，可能会用到。

arley 发表于 2020-9-25 15:00

虽然暂时用不到，但是mark下，以后说不定用到呢？感谢楼主分享

owow741 发表于 2020-9-25 16:50

不错，比较实用的东西

页: [1] 2 3 4 5 6 7

吾爱破解 - 52pojie.cn's Archiver

批量改名bat+用Excel中的内容替换word中内容VBS