vba - VBAでスタイルごとにMS Word文書を解析する方法

Question

私は MSWord 文書を調べて、スタイル「質問」ですべての段落を引き出し、文書の最後にそれらを再印刷しようとしています。どんな提案も非常に役に立ちます-これが私が持っているものです(すべての手順がそこにあると思います.VBAのフォーマットに問題があるだけです).

Sub PullQuestions()
    '
    ' PullQuestions Macro
    '
    '
    Dim curPar As Paragraph

    ' numLists = ActiveDocument.ListParagraphs.Count

    ' reprints each question on a new line at end of document'
    For Each curPar In ActiveDocument.Paragraphs
        If curPar.Selection.Style = "Question" Then
            Selection.TypeText (curPar & vbCr)
        End If
    End Sub