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

w731883875

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

一、批量改名（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

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

[Visual Basic] 纯文本查看 复制代码

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

千城忆梦

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

1427249470

虽然早已领悟，还是感谢楼主的分享

CrystalFL

不错，比较实用的东西

tailor001

不错的功能

一丝风

试试看好不好用

羊卓雍措

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

列明

标记一下，可能会用到。

arley

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

owow741

不错，比较实用的东西