作者:乔山办公网日期:
返回目录:office365
1打开Word----左上角文件------选项-----用户名修改
1左上角文件
2
3
工具/材料:电脑、WORD。
第一zd步,打开电脑进入桌面,打开软件进界面。
第二步,打开软件进入后,打开相应的文档。
第三步版,点击菜单找到选项点击进入。
第四步,找到常规进入,点击用户名修改即可。
第五权步,或者找到文件鼠标右键属性直接修改。
可以试试这个方案:
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运行这段代码,7a686964616fe78988e69d83366就可把指定目录下的所有Word文档的作者名修改成指定的名字。
注意,一个Word文档里面其实有两个信息需要修改:“作者名称” 和 “上次保存的作者名称”。前者通过直接修改文档属性即可;后者修改文档属性不能达到目的,只能先把Word应用程序设置里面的用户名称修改之后再保存一次文档才行。上面的代码都自动处理了两种情况,并在处理完之后恢复Word应用程序设置中的用户姓名为原来的值。
1、打开一篇已经完成的Word文档。
2、之后再点击该文百档页面左上角的“文件”选项。
3、在弹出的下拉菜单中点击进入“度文件”,选择内“属性”选项。
4、点击进入“属性”将“作者”后面的内容容更改为需要的内容,保存该文档即可完成修改。