选择文本并插入脚注

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