禁止以编程方式发送遥测数据的 MS-Office 应用程序

Question

我们在自己的应用程序中使用带有导入 ActiveX 类型库的 MS-Office 应用程序（例如，将 MS-Office 文档即时转换为 PDF）。

我们的应用程序有意等待 MS-Office 应用程序后台线程结束。
从 MS-Office 2019 版开始，我们注意到后台线程阻塞了很长时间（18-25 秒）。原因显然是 MS-Office 应用程序一关闭/退出就会发送遥测数据。
使用 ProgMon 工具进行监控证明了这一点。

我们还发现有一种解决方法，通过操作以下注册表项来禁用发送遥测数据：

Computer\HKEY_CURRENT_USER\Software\Microsoft\Office\Common\ClientTelemetry: REG_DWORD-Value (32bit): Disable Temetry: 1

如果这样做，阻塞时间将减少到 3-5 秒。

这是我们的应用程序所做的代码 sn-p（几乎是我们用来隔离和测试问题的核心功能）：

procedure TForm59.ConvertEarlyBinding(const _documentFilePath : string; 
                                      bOnlyOpenClose: Boolean = False);
var
    WordApp : ActiveX.TypeLibs.Word.Application;
    WordDoc : ActiveX.TypeLibs.Word.Document;

    oleTrue : OleVariant;
    oleFalse : OleVariant;
    emptyVariant : OleVariant;
begin
    oleTrue := True;
    oleFalse := False;
    emptyVariant := EmptyParam;

    WordApp := ActiveX.TypeLibs.Word.coApplication.Create;    
    WordApp.Visible := True;

    WordDoc := WordApp.Documents.Open(_documentFilePath, EmptyParam, oleTrue, 
                                      EmptyParam, EmptyParam, EmptyParam,
                                      EmptyParam, EmptyParam, EmptyParam, 
                                      EmptyParam, EmptyParam, EmptyParam, 
                                      EmptyParam, EmptyParam, EmptyParam, 
                                      EmptyParam);

    if not bOnlyOpenClose then begin
        WordDoc.ExportAsFixedFormat(ChangeFileExt(_documentFilePath, '.pdf'), 
                                    wdExportFormatPDF, false, 
                                    wdExportOptimizeForOnScreen, wdExportAllDocument, 
                                    -1, -1, wdExportDocumentWithMarkup, 
                                    false, false,
                                    wdExportCreateWordBookmarks, false,
                                    false, false, EmptyParam);
    end;

    WordApp.ActiveDocument.Close(oleFalse, emptyVariant, emptyVariant);
    WordDoc := nil;

    WordApp.Quit(false, EmptyParam, EmptyParam);

    WordApp := nil;
end;

现在的问题是：我们可以从 MS-Office 应用程序界面使用任何属性来阻止它发送遥测数据吗？

我们很清楚，我们也可以在应用程序中以编程方式操作注册表项，但最好仅对当前启动的 MS-Office 应用程序实例禁止此操作。

Answer 1

Microsoft Office 应用程序不为此提供任何属性或方法。要停止在本地计算机上收集数据，请更新注册表或设置组策略设置，如下所示。默认情况下，遥测数据收集在 Office 中处于禁用状态。请检查您的环境之前是否启用了遥测代理。检查注册表设置：

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\OSM
HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\16.0\OSM
HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\OSM
HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\15.0\OSM

其中 15.0 代表 Office 2013

如果您之前使用的是从 Office 2013 升级的 Office 2016，请同时禁用 Office 2013 遥测代理。请检查以下文章中提到的注册表设置：

Deploy Office Telemetry Dashboard

为 Office 用户禁用所有遥测设置：

Manage the privacy of data monitored by Office Telemetry Dashboard

禁用日志记录不会删除已从计算机收集的数据。要在本地客户端计算机上删除此数据，请删除位于

下的文件 evt.tbl、sln.tbl、user.tbl

%LocalAppData%\Microsoft\Office16.0\Telemetry\Microsoft\Office\16.0\Telemetry\.