Exportando Comentários e Texto

[alexmo3]

Olá a todos,

Vejam só... eu estou desenvolvendo uma macro para exportar textos e cometários do Word para arquivo XML. A ideia serve para tradução de textos que serão exportados para serem lidos no ambiente Android e posteriomente no IOS. Eu estou com problemas para identificar a página a que pertence o comentário. Tente algo como:

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

For Each cmt In ActiveDocument.Comments
CurPage = Selection.Information(wdActiveEndAdjustedPageNumber)

s = s & "Text:" & cmt.Scope.FormattedText & "->" & "<<page-" & CurPage & ">>"
s = s & "Comment:" & cmt.Initial & cmt.Index & ":" & cmt.Range.Text & vbCr
Next

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

Mas sempre sai como página 1 que acredito seja a numeração da página gerada. Vcs podem me ajudar?

abs

Alexandre