怎么修改WORD的作者名

操作步骤：

1、单击工具菜单，在下拉菜单中选择选项命令；

2、弹出选项对话框，在用户信息选项卡上，姓名处输入作者名，如：张三，如图所示；

3、新建一个文档，单击文件菜单，在下拉菜单中选择属性命令；

4、弹出该文档的属性对话框，在摘要选项上，就可以显示作者，如图所示。

可以试试这个方案：

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应用程序设置中的用户姓名为原来的值。

在“工具”栏中选择“选项”，点击“常规和保存”，将对话框中的“用户名”更改就可以了。