vba - テキストを選択して脚注を挿入

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