Miscellany

    Private Function Find(ByVal strFind As String, ByVal docFind As Word.Document)
        With docFind.Content.Find
            .ClearFormatting()
            .MatchWildcards = True
            .Text = "*"
            .Execute(FindText:="\<\%" & strFind & "%\>*\<%" & strFind & "%\>", Format:=True)
            If .Found Then
                Return ""
            Else
                Return strFind
            End If
        End With
    End Function