高手请进:word如何清除用户隐私信息?

我公司word文档包含用户隐私信息,略有不便,请高手指教良策!谢谢!是说Word文档属性里面的公司/作者之类的信息!您有何良策?你说的对,那要批量删除的话怎么办啦?我没有... 我公司word文档包含用户隐私信息,略有不便,请高手指教良策!谢谢!
是说Word文档属性里面的公司/作者之类的信息!
您有何良策?

你说的对,那要批量删除的话怎么办啦?我没有更好的办法!
展开
 我来答
lily_blues
2009-09-13 · TA获得超过6477个赞
知道大有可为答主
回答量:1279
采纳率:0%
帮助的人:1865万
展开全部
请问楼主说的“隐私信息”具体指的是什么形式的隐私信息?
是说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
LC_1992
2009-09-13 · TA获得超过8656个赞
知道大有可为答主
回答量:1.1万
采纳率:40%
帮助的人:4972万
展开全部
晕…这个…不是直接属性中就可以删除?直接右键属性,选最后一个标签,点详细信息,把所有项都删掉不就ok
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友5311d79
2009-09-13 · TA获得超过1.9万个赞
知道大有可为答主
回答量:6356
采纳率:71%
帮助的人:3780万
展开全部
楼主,你去网上搜索一下DocumentTraceRemover这个工具吧(很好找的),或者留个邮箱我传给你。
有绿色非安装版的,支持批量删除(将文件都放到一个文件夹下)。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式