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
ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.