如何使用 Word VBA 将内容控制复选框插入到 Outlook 任务中？

Question

我想为现有任务添加一个可用的复选框（内容控件？），例如子任务列表，只需选中即可。

在 Outlook 中，我引用了 Microsoft Word 16.0 对象库，并尝试了 http://www.vboffice.net/en/developers/use-word-macro-in-outlook/ 和 https://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ 的建议，但没有成功。

我试过了

Option Explicit

Public Sub Checkbox()
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector
    
    ' Add reference to Word library
    ' in VBA Editor, Tools, References
    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objSel As Word.Selection
    On Error Resume Next
   
    ' Reference the current Outlook item
    Set objItem = Application.ActiveInspector.CurrentItem
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            Set objInsp = objItem.GetInspector
            If objInsp.EditorType = olEditorWord Then
                Set objDoc = objInsp.WordEditor
                Set objWord = objDoc.Application
                Set objSel = objWord.Selection


            ' Formatting code goes here
            Selection.Range.ContentControls.Add (wdContentControlCheckBox)

            End If
        End If
    End If
    
    Set objItem = Nothing
    Set objWord = Nothing
    Set objSel = Nothing
    Set objInsp = Nothing
End Sub

我也试过

Public Sub Check2()
    Dim Ins As Outlook.Inspector
    Dim Document As Word.Document
    Dim Word As Word.Application
    Dim Selection As Word.Selection

    Set Ins = Application.ActiveInspector
    Set Document = Ins.WordEditor
    Set Word = Document.Application
    Set Selection = Word.Selection

    Selection.Range.ContentControls.Add (wdContentControlCheckBox)

End Sub

我记得第一个没有做任何事情。

第二个显示

运行时错误“445”。
对象不支持此操作

Answer 1

您的 VBA 代码可以正常工作：

Public Sub Check2()
  Dim Ins As Outlook.Inspector
  Dim Document As Word.Document
  Dim Word As Word.Application
  Dim Selection As Word.Selection

  Set Ins = Application.ActiveInspector
  Set Document = Ins.WordEditor
  Set Word = Document.Application
  Set Selection = Word.Selection

  Selection.Range.ContentControls.Add (wdContentControlCheckBox)

End Sub

您只需添加对 Word 对象库的引用（工具 -> 引用）：