0

特定の MS Word ドキュメントから黄色で強調表示されたすべてのテキスト パッセージを抽出する VB スクリプトを作成しようとしています。私のコードは >>ほとんど<< 動作しているようですが、テキストのエクスポートを黄色で強調表示されたセクションのみに制限することはできませんでした。ドキュメントに複数の色のハイライトが含まれている場合、スクリプトはハイライトの色を選択する必要があることに注意してください。

Sub FindHighlightedText()

    'Get current working directory.
    Dim pwd As String
    pwd = ActiveDocument.Path

    Dim Name As String
    Name = pwd & "\Output.txt"

    ' Create a filehandle and open the output file.
    handle = FreeFile()
    Open Name For Output As #handle

    With ActiveDocument.Range.Find

        .ClearFormatting
        .Highlight = True
        .Forward = True

        'I THINK THE PROBLEM IS HERE!!
        If .Parent.HighlightColorIndex = wdYellow Then
              print #handle, .Parent.Text & vbNewLine
        End If

    End With


    ' Close the output filehandle.
    Close #handle

End Sub
4

1 に答える 1

2

これは役立つかもしれません

Sub Macro1()

    With Selection.Find
        .Highlight = True
        .Wrap = wdFindContinue
        .Format = True
    End With

    Do While Selection.Find.Execute()

        If Selection.Range.HighlightColorIndex = wdYellow Then
             Debug.Print Selection.Range.Text
        End If

    Loop

End Sub
于 2013-02-25T21:10:03.617 に答える