网站首页 美食营养 游戏数码 手工爱好 生活家居 健康养生 运动户外 职场理财 情感交际 母婴教育 时尚美容

一劳永逸+批量修改word文件作者名

时间:2024-10-13 01:06:30

1、一劳永逸的办法(修改默认作者名,但是已创建的文档不能修改),工具-选项-用户信息选项页,把姓名该成你自己想要显示的就行了,以后创建的word均为此作者名。

2、批量修改已存在的文档作者名的方法:在Word里面随便新建一个文档,键入Alt+F11打开VBA编辑器

3、执行“插入-模块”,并在下面的代码编辑区中粘贴如下代码并做修改:

4、Option ExplicitConst g_strRootPath = "c:\Temp\docs\Word\ToChange帆歌达缒Authors\"(修改此处为你的文件存放目录)Const g_strAuthorName = "作者姓名"(修改此处为你要的作者名)Sub ChangeAllDocAuthors() On Error Resume Next Dim strPreviousUserName As String Dim fso, oFolder strPreviousUserName = Application.UserName Application.UserName = g_strAuthorName Set fso = CreateObject("Scripting.FileSystemObject") Set oFolder = fso.GetFolder(g_strRootPath) ChangeAllDocAuthorsUnderFolder fso, oFolder Application.UserName = strPreviousUserName MsgBox "完成!"End SubSub ChangeAllDocAuthorsUnderFolder(fso, oFolder) Dim oSubFolder, oFile Dim strTitle As String, strFileName As String For Each oSubFolder In oFolder.SubFolders ChangeAllDocAuthorsUnderFolder fso, oSubFolder Next For Each oFile In oFolder.Files Documents.Open FileName:=oFile.Path ActiveDocument.BuiltInDocumentProperties("Author") = g_strAuthorName ActiveDocument.BuiltInDocumentProperties("Last Author") = g_strAuthorName ActiveDocument.Close True NextEnd Sub

© 2025 小知经验
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com