1

長いインタビューの記録にコメントが入った文書があります。強調表示されたテキストでこれらのコメントをエクスポートできるSO のマクロを見つけました。これは素晴らしいですが、出力はひどく鈍いです (プレーン テキスト)。

太字、斜体、および改行を挿入するかどうか、およびその方法を知る必要があります。私は今何時間も探しましたが、私のVBAがひどいので、「マルコ出力フォーマット」でのキーワード検索以外にどこを見るべきかについての参照がありません

以下のスクリプトとフォントの変更をテキストの一部に適用する方法を知っている人はいますか?

Sub ExportComments()
    Dim s As String
    Dim cmt As Word.Comment
    Dim doc As Word.Document

    For Each cmt In ActiveDocument.Comments
        s = s & "Text: " & cmt.Scope.FormattedText & " -> "
        s = s & "Comments: " & cmt.Initial & cmt.Index & ":" & cmt.Range.Text & vbCr
    Next

    Set doc = Documents.Add
    doc.Range.Text = s
End Sub

Wordで解釈されたHTMLでそれを行うことができますか？

4

1 に答える 1

1

含めたいフォーマットが既にコメント テキスト内にあり、それを最終ドキュメントに取り込む方法を探しているだけだと思います。これを行うスクリプトの修正版を次に示します (以下に 1 つの注意事項があります)。

Sub ExportComments()
Dim cmt As Comment
Dim newdoc As Document
Dim currDoc As Document

Set currDoc = ActiveDocument
Set newdoc = Documents.Add
currDoc.Activate
For Each cmt In currDoc.Comments
    With newdoc.Content
        cmt.Scope.Copy
        .InsertAfter "Text: "
        .Collapse wdCollapseEnd
        .Paste
        .InsertAfter " - > "
        cmt.Range.Copy
        .InsertAfter "Comments: " & cmt.Initial & cmt.Index & ":"
        .Collapse wdCollapseEnd
        .Paste
        .InsertParagraphAfter
    End With
Next

End Sub

ここでの違いは、テキスト文字列を生成するのではなく、コピー アンド ペーストを使用していることです。

警告: マクロは現在作成されているため、スコープ (ファイル内のテキストの横に表示されるテキスト) からの文字書式は、矢印とイニシャルにも適用されます。これは検索と置換で簡単に修正できるので、スクリプトには組み込みませんでした。

于 2013-05-07T14:45:53.240 に答える