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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E