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

来源:百度知道 编辑:UC知道 时间:2024/06/06 21:09:11
我公司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 = ""
Cas