Exportando Comentários e Texto
Enviado: Ter Set 11, 2012 2:31 pm
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
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