选择文本并插入脚注

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