選擇文本並插入腳註

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