outlook / word vba代码以选择数组中的最后一个单词并在其后插入段落

Question

我需要一些vba代码，以便在从文本数组找到的最后一个单词之后插入一个段落。

我尝试了一些事情，但是我是一个初学者。到目前为止，我显然没有用。

    Dim wrdRange As range
    Dim p1 As range
    Dim p2 As range
    Dim aWord() As StringaWord = Split("FilingDate:,Importance:,Subject", ",")

    p1 = MailDocument.Paragraphs(1).range.Start
    p2 = MailDocument.Paragraph(6).range.End
    Set wrdRange = MailDocument.range(Start:=p1, End:=p2)

    For aWord = 1 To Words.Count
        If aWord = wrdRange.Words.Last Then
        MailDocument.ActiveWindow.Selection.InsertParagraphBefore
        End If
    Exit For