选择文本并插入脚注

Question

在Word文档中，我想使用鼠标选择一个单词或短语，然后运行宏。宏应：

1. 在我所选单词或短语的末尾插入脚注。
2. 将所选文本复制到脚注中，但用斜体显示，然后跟在脚注后面用冒号。

Answer 1

这应该可以做到，当添加脚注时，它应该已经是斜体了！我还在逗号后添加了一个空格，为下一个脚注做好准备。

     Sub AddFootNote()
        NewFootNote = Selection & Chr(44) & Chr(32)
        With Selection
            With .FootnoteOptions
                .Location = wdBottomOfPage
                .NumberingRule = wdRestartContinuous
                .StartingNumber = 1
                .NumberStyle = wdNoteNumberStyleArabic
            End With
            .Footnotes.Add Range:=Selection.Range, Text:=NewFootNote
        End With
    End Sub

-编辑-如果要确保脚注为斜体，可以添加此部分。

With ActiveDocument.Styles("Footnote Text").Font
    .Italic = True
End With