Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Exportando Comentários e Texto

Dúvidas gerais sobre Word
alexmo3
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Set 11, 2012 2:15 pm

Exportando Comentários e Texto

Mensagem por 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder