Como exportar comentários do Excel para o Word?
Para usuários do Excel, inserir comentários nas células é uma tarefa comum; às vezes, você precisa copiar e colar esses comentários em um documento do Word para alguma finalidade. Claro, você pode copiar e colar o comentário no Word um por um, mas esse é um trabalho tedioso e demorado. Existe alguma maneira de exportar todos os comentários do Excel para o Word de uma vez?
Exportar comentários da planilha atual para o Word com código VBA
Exportar comentários da planilha atual para o Word com código VBA
Infelizmente, o Excel não oferece o recurso de copiar e colar todos os comentários no Word de uma vez. No entanto, com o código VBA a seguir, você pode exportar rapidamente todos os comentários da planilha ativa para o documento do Word.
1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: Exportar comentários da planilha atual para o Word
Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub
3. Então aperte F5 para executar este código, e todos os comentários na planilha ativa foram exportados para um novo documento do Word com seu endereço de célula. Veja a imagem:
Artigos relacionados:
Como inserir rapidamente um comentário em várias células no Excel?
Como alterar a forma da caixa de comentários no Excel?
Como alterar todos os formatos de comentários em células no Excel?
Como alterar o nome do autor de todos os comentários no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!