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

师宇

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

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

zaqmlp

需安装有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. 
    
15. If Err.Number <>0 Then
    
16.     WSH.StdErr.WriteLine "Microsoft Word 未安装"
    
17.     WSH.Quit
    
18. End If
    
19. On Error Goto 0
    
20. word.DisplayAlerts=False
    
21. word.Visible=True
    
22. 
    
23. 
    
24. Do While WSH.StdIn.AtEndOfStream<>True
    
25.         On Error Resume Next
    
26.     it=WSH.StdIn.ReadLine
    
27.     basename=fso.GetBaseName(it)
    
28.     Set docfile=fso.GetFile(it)
    
29.     If Left(docfile.shortname, 2) <> "~$" Then
    
30.         Set doc=word.Documents.Open(docfile.Path,,,,"pwd")
    
31.         If doc Is Nothing Then
    
32.             doc.Close
    
33.         End If
    
34.         doc.Activate
    
35.         doc.Range(0).Select
    
36.         word.Selection.HomeKey 6
    
37.         word.Selection.Font.Name="宋体"
    
38.         word.Selection.Font.Size=14
    
39.         word.Selection.TypeText basename
    
40.         word.Selection.TypeParagraph
    
41.         word.Selection.TypeParagraph
    
42.         doc.Close True
    
43.         WSH.echo "[Done]" &it
    
44.     End If
    
45.     If Err.Number <>0 Then
    
46.                 WSH.StdErr.WriteLine "[Error]" &it
    
47.     End If
    
48.     On Error Goto 0
    
49. Loop
    
50. 
    
51. word.Quit
    
52. WSH.Quit
    
53. */

复制代码