选择文本并插入脚注

Question

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

1. 在我选择的单词或短语的末尾插入一个脚注。
2. 将所选文本复制到脚注，但使用斜体，然后按照 用冒号。

Answer 1

这应该这样做，当添加脚注时，它应该已经是itallic！我还在逗号准备下一个脚注后添加了一个空格。

     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

CNC中 如果你想确保你的脚注是斜体，你可以添加这个部分。

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