怎么修改WORD的作者名
7个回答
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
可以试试这个方案:
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应用程序设置中的用户姓名为原来的值。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在“工具”栏中选择“选项”,点击“常规和保存”,将对话框中的“用户名”更改就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
1. 在我的电脑里找到该文档所在的位置,点击鼠标右键→属性→摘要,可任意改动。
2. 还可以在“工具-选项-用户信息”中进行修改。
2. 还可以在“工具-选项-用户信息”中进行修改。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
只改作者名的话,你先把要改的word文档全选择了,然后右击,选择属性,在选择“摘要”选项卡,如果下面框中作者一栏是灰色无法修改的,点一下下面的“高级”,然后在来源这里修改 作者名称 就可以了,然后应用,确定。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询