
高手请进:word如何清除用户隐私信息?
我公司word文档包含用户隐私信息,略有不便,请高手指教良策!谢谢!是说Word文档属性里面的公司/作者之类的信息!您有何良策?你说的对,那要批量删除的话怎么办啦?我没有...
我公司word文档包含用户隐私信息,略有不便,请高手指教良策!谢谢!
是说Word文档属性里面的公司/作者之类的信息!
您有何良策?
你说的对,那要批量删除的话怎么办啦?我没有更好的办法! 展开
是说Word文档属性里面的公司/作者之类的信息!
您有何良策?
你说的对,那要批量删除的话怎么办啦?我没有更好的办法! 展开
展开全部
请问楼主说的“隐私信息”具体指的是什么形式的隐私信息?
是说Word文档属性里面的公司/作者之类的信息?
还是说正文里面有类似的信息?
望明示,谢谢!
————————————————————
补充,请按如下步骤批量删除隐私信息:
1、在Word里面键入ALT+F11打开VBA编辑窗口;
2、选择菜单“插入-宏”;
3、粘贴如下代码:
Option Explicit
Sub ClearAll()
Const c_strRootFolder = "C:\Temp\docs\test\" ' 包含需要处理文档的文件夹
On Error Resume Next
Dim oDoc, oDocProp
Dim fso, oFolder, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(c_strRootFolder)
For Each oFile In oFolder.Files
Set oDoc = Documents.Open(oFile.Path)
For Each oDocProp In oDoc.BuiltInDocumentProperties
Select Case oDocProp.Type
Case msoPropertyTypeString
oDocProp.Value = ""
Case Else
oDocProp.Value = 0
End Select
Next
For Each oDocProp In oDoc.CustomDocumentProperties
Select Case oDocProp.Type
Case msoPropertyTypeString
oDocProp.Value = ""
Case Else
oDocProp.Value = 0
End Select
Next
oDoc.Close True
Next
MsgBox "完成!"
End Sub
4、根据你实际存放需要处理文档的路径修改上述代码中的那个字符串;
5、键入F5运行,看到“完成!”结束。
6、检查处理过的文档的隐私数据是否已被删除。
此外,如果楼主使用的是Word 2007,则内置的“文档检查器”(ALT+F,“准备-检查文档”)可以更圆满地完成这个任务。
至于Word 2003,本来微软官方网站上是有那么一个工具可以实现类似的功能,但是我下载下来试用没有成功。所以只好自己写了个简单的将就着用了。
如果楼主愿意,也可以试试微软官方提供的这个工具:http://support.microsoft.com/kb/834427/zh-cn
是说Word文档属性里面的公司/作者之类的信息?
还是说正文里面有类似的信息?
望明示,谢谢!
————————————————————
补充,请按如下步骤批量删除隐私信息:
1、在Word里面键入ALT+F11打开VBA编辑窗口;
2、选择菜单“插入-宏”;
3、粘贴如下代码:
Option Explicit
Sub ClearAll()
Const c_strRootFolder = "C:\Temp\docs\test\" ' 包含需要处理文档的文件夹
On Error Resume Next
Dim oDoc, oDocProp
Dim fso, oFolder, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(c_strRootFolder)
For Each oFile In oFolder.Files
Set oDoc = Documents.Open(oFile.Path)
For Each oDocProp In oDoc.BuiltInDocumentProperties
Select Case oDocProp.Type
Case msoPropertyTypeString
oDocProp.Value = ""
Case Else
oDocProp.Value = 0
End Select
Next
For Each oDocProp In oDoc.CustomDocumentProperties
Select Case oDocProp.Type
Case msoPropertyTypeString
oDocProp.Value = ""
Case Else
oDocProp.Value = 0
End Select
Next
oDoc.Close True
Next
MsgBox "完成!"
End Sub
4、根据你实际存放需要处理文档的路径修改上述代码中的那个字符串;
5、键入F5运行,看到“完成!”结束。
6、检查处理过的文档的隐私数据是否已被删除。
此外,如果楼主使用的是Word 2007,则内置的“文档检查器”(ALT+F,“准备-检查文档”)可以更圆满地完成这个任务。
至于Word 2003,本来微软官方网站上是有那么一个工具可以实现类似的功能,但是我下载下来试用没有成功。所以只好自己写了个简单的将就着用了。
如果楼主愿意,也可以试试微软官方提供的这个工具:http://support.microsoft.com/kb/834427/zh-cn
展开全部
晕…这个…不是直接属性中就可以删除?直接右键属性,选最后一个标签,点详细信息,把所有项都删掉不就ok
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
楼主,你去网上搜索一下DocumentTraceRemover这个工具吧(很好找的),或者留个邮箱我传给你。
有绿色非安装版的,支持批量删除(将文件都放到一个文件夹下)。
有绿色非安装版的,支持批量删除(将文件都放到一个文件夹下)。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询