Wordの脚注一覧を作成するマクロ

Pocket

Word文書中の脚注を一覧にまとめるマクロです。
脚注の文字列を集めて、文書の最後に挿入します。

Sub 脚注一覧作成()
    Dim n, i As Long
    Dim rt As String
    With ActiveDocument.Content
        .InsertAfter "【脚注一覧】"
        .InsertParagraphAfter
        For n = 1 To ActiveDocument.Footnotes.Count
            With ActiveDocument.Footnotes(n)
                i = .Index
                rt = .Range.Text
            End With
            .InsertAfter i & ">" & rt
            .InsertParagraphAfter
        Next n
    End With
End Sub

[ 2013年2月20日 | カテゴリー: Word | タグ: , ]

« | »

コメント

  1. 初心者 より:

    お世話になります.初心者です.
    取り出したテキストはイタリックや太字が解除されてしまうのですが,どこを変えればよいでしょうか?

  2. stabucky より:

    初心者さん
    ご利用ありがとうございます。
    書式は保持しない方法でやっています。
    修正は簡単ではないと思います。
    申し訳ありません。

  3. 初心者 より:

    そうなんですね,残念です.
    お返事ありがとうございました!

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

送信してください。


タグ

カテゴリー

最近の投稿

最近のコメント

固定ページ

アーカイブ

stabucky

写真

メタ情報