各位高手，我想把很多word文档的作者名都改掉，有没有好办法，一个一个改很麻烦。谢谢。
操作步骤：
1、单击工具菜单，在下拉菜单中选择选项命令；
2、弹出选项对话框，在用户信息选项卡上，姓名处输入作者名，如：张三，如图所示；
3、新建一个文档，单击文件菜单，在下拉菜单中选择属性命令；
4、弹出该文档的属性对话框，在摘要选项上，就可以显示作者，如图所示。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-03-24
可以试试这个方案：
1、在Word里面随便新建一个文档，键入Alt+F11打开VBA编辑器；
2、执行“插入-模块”，并在下面的代码编辑区中粘贴如下代码：
Option Explicit
Const g_strRootPath = "c:\Temp\docs\Word\ToChangeAuthors\" ' 存放所有文件的目录，可以有子目录
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 Sub
Sub 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
Next
End Sub
3、修改代码开始处的两个参数，设置为存放文档的根目录（下面可以有子目录），以及希望修改成的作者名；
4、键入F5运行这段代码，就可把指定目录下的所有Word文档的作者名修改成指定的名字。
注意，一个Word文档里面其实有两个信息需要修改：“作者名称” 和 “上次保存的作者名称”。前者通过直接修改文档属性即可；后者修改文档属性不能达到目的，只能先把Word应用程序设置里面的用户名称修改之后再保存一次文档才行。上面的代码都自动处理了两种情况，并在处理完之后恢复Word应用程序设置中的用户姓名为原来的值。本回答被提问者和网友采纳
1、在Word里面随便新建一个文档，键入Alt+F11打开VBA编辑器；
2、执行“插入-模块”，并在下面的代码编辑区中粘贴如下代码：
Option Explicit
Const g_strRootPath = "c:\Temp\docs\Word\ToChangeAuthors\" ' 存放所有文件的目录，可以有子目录
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 Sub
Sub 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
Next
End Sub
3、修改代码开始处的两个参数，设置为存放文档的根目录（下面可以有子目录），以及希望修改成的作者名；
4、键入F5运行这段代码，就可把指定目录下的所有Word文档的作者名修改成指定的名字。
注意，一个Word文档里面其实有两个信息需要修改：“作者名称” 和 “上次保存的作者名称”。前者通过直接修改文档属性即可；后者修改文档属性不能达到目的，只能先把Word应用程序设置里面的用户名称修改之后再保存一次文档才行。上面的代码都自动处理了两种情况，并在处理完之后恢复Word应用程序设置中的用户姓名为原来的值。本回答被提问者和网友采纳
第2个回答 2019-11-10
在“工具”栏中选择“选项”，点击“常规和保存”，将对话框中的“用户名”更改就可以了。
第3个回答 2010-07-19
1. 在我的电脑里找到该文档所在的位置，点击鼠标右键→属性→摘要，可任意改动。
2. 还可以在“工具-选项-用户信息”中进行修改。
2. 还可以在“工具-选项-用户信息”中进行修改。
第4个回答 2010-07-19
只改作者名的话，你先把要改的word文档全选择了，然后右击，选择属性，在选择“摘要”选项卡，如果下面框中作者一栏是灰色无法修改的，点一下下面的“高级”，然后在来源这里修改 作者名称 就可以了，然后应用，确定。
