求助：如何通过VBA自动选择并控制敏感度标签？

目前Office的VBA对象模型对敏感度标签的原生支持有限，但可以通过以下几种方式实现控制与自动选择：

1. 使用Office原生SensitivityLabel对象（推荐） #

适用于Office 2019及以上版本、Office 365订阅版，Word、Excel、PowerPoint、Outlook等应用均支持该对象。

获取当前标签信息 #

Sub GetCurrentLabel()
    ' Word示例，Excel/PPT可替换为ActiveWorkbook/ActivePresentation
    Dim targetDoc As Document
    Set targetDoc = ActiveDocument
    
    If Not targetDoc.SensitivityLabel Is Nothing Then
        Debug.Print "当前标签ID: " & targetDoc.SensitivityLabel.Id
        Debug.Print "当前标签名称: " & targetDoc.SensitivityLabel.Name
    Else
        Debug.Print "文档未设置敏感度标签"
    End If
End Sub

手动设置指定标签 #

需要提前获取目标标签的唯一ID（可通过Office管理员后台或PowerShell命令获取租户内的标签列表）：

Sub SetSpecificLabel()
    Dim targetDoc As Document
    Set targetDoc = ActiveDocument
    
    ' 替换为你的目标标签ID
    Const TARGET_LABEL_ID As String = "12345678-1234-1234-1234-1234567890AB"
    ' 第二个参数为标签说明，留空即可
    targetDoc.SensitivityLabel.SetLabel TARGET_LABEL_ID, ""
End Sub

2. 实现自动选择标签 #

结合文档内容检测（如关键词匹配），自动匹配并设置对应标签：

Sub AutoAssignLabel()
    Dim targetDoc As Document
    Set targetDoc = ActiveDocument
    Dim docContent As String
    docContent = targetDoc.Content.Text
    
    ' 根据内容关键词匹配标签
    Select Case True
        Case InStr(docContent, "公司机密") > 0
            targetDoc.SensitivityLabel.SetLabel "机密标签ID", ""
        Case InStr(docContent, "内部公开") > 0
            targetDoc.SensitivityLabel.SetLabel "内部标签ID", ""
        Case InStr(docContent, "对外公开") > 0
            targetDoc.SensitivityLabel.SetLabel "公开标签ID", ""
        Case Else
            Debug.Print "未匹配到对应标签规则"
    End Select
End Sub

3. 复杂场景：结合Microsoft Graph API #

如果需要枚举所有可用标签、获取标签权限规则等高级操作，可以通过VBA调用Microsoft Graph API，但需要处理OAuth2身份验证，适合企业内部开发场景。

注意事项 #

• 旧版Office（2016及以下）不支持SensitivityLabel对象，无法通过原生VBA实现控制。
• 操作标签需要用户拥有对应权限（如设置敏感度标签的权限）。
• Outlook邮件可使用MailItem.SensitivityLabel属性进行同样操作。

内容的提问来源于stack exchange，提问作者YEH ERIC