批量替换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

相关文章
·出于安全原因,Firefox 取消了该请求03-22
·心意答系统导出成绩之各题得分打印宏代码02-04
·一步去掉页眉横线的方法08-02
·VBA获取U盘、主板、CPU序列号网卡MAC地址07-26
·任务栏上的显示桌面图标不见了,怎么办?09-17
·四行选项变一行的快捷方法11-14
·excel删除数字保留文本02-04
·我的电脑图标不见了,怎么找回来!09-14
·word排版技巧整理08-02
·word 如何自动生成目录08-02
最新文章
阅读排行