有没有办法批量把100多个word的文档名，分别复制并粘贴到每个word文档的首行？

xiawj0

我有100个word文档，有没有办法批量把100多个word的文档名，分别复制并粘贴到每个word文档的首行？


例如：有个文档名字：46郭家庙。郭金所.docx，能否将文件名46郭家庙。郭金所复制并粘贴到这个word文件的第一行？像这样的文件有100个，能否批量处理？


测试文件.rar (873.74 KB, 下载次数: 17)

2022-10-11 14:11 上传

点击文件名下载附件

jiangxiaoyun

遍历word文档，提取文件名称，打开word文档，鼠标光标移到最前，按一下enter，贴上文件名称就好。

xiawj0

怎么做呢？给个教程

xiawj0

jiangxiaoyun 发表于 2022-10-11 14:24
遍历word文档，提取文件名称，打开word文档，鼠标光标移到最前，按一下enter，贴上文件名称就好。

具体怎么操作呢？

约定的童话

xiawj0 发表于 2022-10-11 14:40
具体怎么操作呢？

这个要写代码了

xiawj0

约定的童话 发表于 2022-10-11 15:03
这个要写代码了

可以帮忙写代码吗？

约定的童话

xiawj0 发表于 2022-10-11 17:00
可以帮忙写代码吗？

参考教程确认下看看。。。
https://wwc.lanzoub.com/i2VOz0dnhxtg

约定的童话

参考教程确认下https://wwc.lanzoub.com/i2VOz0dnhxtg

飞天篮球猪

Excel里可以这样写，供参考。

1. Sub 文档开始处插入文件名()
   
2. Dim wdPath$, wdName$, iDoc As Document
   
3. With Application.FileDialog(msoFileDialogFolderPicker)
   
4.         .Title = "请选择一个文件夹"
   
5.         If .Show = -1 Then wdPath = .SelectedItems(1) Else Exit Sub
   
6. End With
   
7. wdPath = wdPath & IIf(Right(wdPath, 1) = "", "", "")
   
8. wdName = Dir(wdPath & "*.doc*")
   
9. While wdName <> ""
   
10.         n = n + 1
    
11.         Set iDoc = Documents.Open(wdPath & wdName)
    
12.         iDoc.Range(0).Select
    
13.         Selection.InsertBefore Split(wdName, ".")(0)
    
14.         iDoc.Close True
    
15.         wdName = Dir
    
16. Wend
    
17. Shell "Explorer.exe " & wdPath
    
18. MsgBox "程序执行完毕, 共处理了" & n & "个文档。"
    
19. End Sub

复制代码

飞天篮球猪

第7行     IIf(Right(wdPath, 1) = "\", "", "\")