我正試圖導出Word文檔的評論評論。我想導出評論後的評論句子選擇。圖像的導出Word評論評論時,您如何參考與評論相關的句子?
屏幕截圖:http://jspeaks.com/mswordcomment.png
我已經通過文件註釋中發現的代碼迴路,但我無法弄清楚如何引用有人評論相關句子的選擇。
當前的邏輯是:
Sub ExportComments()
Dim s As String
Dim cmt As Word.Comment
Dim doc As Word.Document
For Each cmt In ActiveDocument.Comments
s = s & cmt.Initial & cmt.Index & "," & cmt.Range.Text & vbCr
Next
Set doc = Documents.Add
doc.Range.Text = s
End Sub
我與Selection.Range修修補補,但是我不能確定包含被引用的句子正確的對象或屬性。
我想產生這樣(如果我們使用的例子在上面圖片)輸出:
一句話:這裏是包含有趣的事實更多的句子 - 簡評:這是一個有趣的事實。 句子:這裏有更多的句子包含有趣的事實。這裏有更多包含有趣事實的句子。 - 評論:這是一個非常有趣的事實
很好,你有一個解決方案。你可以繼續,並接受你自己的答案作爲正確答案(複選標記)。 – 2010-06-27 15:49:32