批量替换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
- 相关文章
- ·excel如何取两个特定字符间的文字03-04·巧用Excel数组公式统计各班优秀人数04-24·excel里如何把一列多行等分成多列?07-13·相片裁剪操作方法10-21·任务栏上的显示桌面图标不见了,怎么办?09-17·解决Win8 IE浏览器某些网站显示不全01-30·SQL SERVER数据库中快速找主表11-10·XP不回车直接登录方法03-03·常见屏幕截图方法08-11·excel删除数字保留文本02-04
- 最新文章
- ·一列数据轻松转换成多行多列02-05·MPC-HC如何加速播放不变音调?01-06·利用打印机迁移功能实现三个步骤快速批量安装所有网10-27·视频号视频的四种下载方法07-07·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·Excel 进行学生成绩统计分析03-13·Win10电脑的一些安装提示12-03·我的电脑图标不见了,怎么找回来!09-14·不同电脑文件字体改变了的解决方法12-15·Word高级替换技巧03-05·巧妙管理 为打印机减负05-25·巧用Excel数组公式统计各班优秀人数04-24
2008-2025 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号
点击这里识别二维码关注公众号