禁止 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 秒。

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

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 遥测代理。请检查下面文章中提到的注册表设置：

部署 Office 遥测仪表板

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

管理 Office 遥测仪表板监控的数据的隐私

禁用日志记录不会删除已从计算机收集的数据。要删除本地客户端计算机上的此数据，请删除位于以下位置的文件evt.tbl、sln.tbl、user.tbl

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