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

最新推荐文章于 2024-07-07 12:42:47 发布

摩羯座de杰杰陆

最新推荐文章于 2024-07-07 12:42:47 发布

阅读量2.6k

点赞数 2

本文链接：https://blog.csdn.net/weixin_38657051/article/details/118737369

版权

该博客分享了一段VBA代码，用于批量处理指定文件夹下的Word文档。代码读取每个文档的第一行内容，并将其作为文件的新名称（去除回车符），实现批量重命名。主要适用于需要统一管理和整理大量Word文档的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

需求
代码

需求

本次需要将一个文件夹下的所有的word文档中的标题作为word文件的文件名，重命名word文件。

在这里插入图片描述

代码

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