[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

怎么批量将文档名称放入文档内 50元微信或支付宝

文件夹内文档名称放在文档第一行,文字字体为宋体四号      

照片链接:https://pan.baidu.com/s/1-Seoep9qwKrppS1Y8l8BlQ
提取码:08qm

需安装有Microsoft Office
以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的文件放一起双击运行
  1. /*&cls&echo off&cd /d "%~dp0"
  2. type "%~f0"|cscript -nologo -e:jscript "%~f0">"%tmp%\v.v"
  3. dir /a-d-h/b|findstr /ie "\.doc \.docx"|cscript -nologo -e:vbscript "%tmp%\v.v"
  4. pause
  5. exit
  6. */
  7. var text=WSH.StdIn.ReadAll();
  8. var vbs=text.match(/\/\*\r\n([\s\S]+)\*\/\s*$/);
  9. WSH.echo(vbs[1]);
  10. /*
  11. On Error Resume Next
  12. Set fso=CreateObject("Scripting.Filesystemobject")
  13. Set word=CreateObject("Word.Application")
  14. If Err.Number <>0 Then
  15.     WSH.StdErr.WriteLine "Microsoft Word 未安装"
  16.     WSH.Quit
  17. End If
  18. On Error Goto 0
  19. word.DisplayAlerts=False
  20. word.Visible=True
  21. Do While WSH.StdIn.AtEndOfStream<>True
  22. On Error Resume Next
  23.     it=WSH.StdIn.ReadLine
  24.     basename=fso.GetBaseName(it)
  25.     Set docfile=fso.GetFile(it)
  26.     If Left(docfile.shortname, 2) <> "~$" Then
  27.         Set doc=word.Documents.Open(docfile.Path,,,,"pwd")
  28.         If doc Is Nothing Then
  29.             doc.Close
  30.         End If
  31.         doc.Activate
  32.         doc.Range(0).Select
  33.         word.Selection.HomeKey 6
  34.         word.Selection.Font.Name="宋体"
  35.         word.Selection.Font.Size=14
  36.         word.Selection.TypeText basename
  37.         word.Selection.TypeParagraph
  38.         word.Selection.TypeParagraph
  39.         doc.Close True
  40.         WSH.echo "[Done]" &it
  41.     End If
  42.     If Err.Number <>0 Then
  43. WSH.StdErr.WriteLine "[Error]" &it
  44.     End If
  45.     On Error Goto 0
  46. Loop
  47. word.Quit
  48. WSH.Quit
  49. */
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表