批量替换word文档中的第一行作为文件的文件名

来源：高中英语教学交流网
发布时间：2023-06-21 15:20:00
查看次数：

内容提要：批量替换word文档中的第一行作为文件的文件名

以下是VBS代码，来自https://blog.csdn.net/weixin_38657051/article/details/118737369

Dim fso, fc,f, strName

Set fso = CreateObject("scripting. filesystemobject")
Set fc=fso. GetFolder("."). Files
For Each f In fc If LCase(fso. GetExtensionName(f))="doc"Then
f. Name=GetFileName(f. Path) & ". docx"
End If
If LCase(fso. GetExtensionName(f))="docx"Then
f. Name=GetFileName(f. Path) & ". docx"
End If
Next
Set fso=Nothing

Function GetFileName(FilePath)
Dim i, objWord, Doc
Set objWord=CreateObject("word. application")
Set Doc=objWord. Documents. Open(FilePath)
For i=1 To Doc. Paragraphs. Count
If Replace(Doc. Paragraphs(i). Range,"","")<>vbCr Then
GetFileName=Replace(Doc. Paragraphs(i). Range, vbCr,"")
Exit For
End If
Next
objWord. Quit
Set objWord=Nothing
End Function