Copie o comentário de célula ativa no Excel em um novo arquivo de palavras

Question

Eu não sei muito sobre Macros, é possível que alguém possa me ajudar. Eu tenho um arquivo excel simples com nomes de clientes que têm muitos comentários sobre cada nome. Existe uma maneira rápida diferente de fazer Screenshots ou editar o comentário, em seguida, copiar e colar em um arquivo de palavra e salvá-lo.

é possível que um código VBA possa copiar meus comentários ativos na célula e, em seguida, copiá-los para um novo Documento do Word, que eu posso simplesmente salvar em meu próprio local.

Obrigado

    

Answer 1

Vou explicar como colocar essa macro no Excel da maneira mais simples possível.

Para adicionar uma macro, pressione Alt + F8 .

Isso abrirá a janela Macro . Em seguida, digite um nome para uma nova macro e clique em Criar .

OVBEseráabertoevocêpoderácolarocódigoabaixoentreSubeEndSub.

Dim WordApp As Word.Application
Dim myDoc As Word.Document

Application.ScreenUpdating = False
Application.EnableEvents = False

'Open Word
  On Error Resume Next

    'Check if Word is open
      Set WordApp = GetObject(class:="Word.Application")

    'Clear errors
      Err.Clear

    'If Word is not open, then open it
      If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")

    'Handle if the Word Application is not found
      If Err.Number = 429 Then
        MsgBox "Microsoft Word could not be found, aborting."
        GoTo EndRoutine
      End If

  On Error GoTo 0

'Focus on Word and create a new document
  WordApp.Visible = True
  WordApp.Activate
  Set myDoc = WordApp.Documents.Add

'Copy Excel data and paste to Word
  Selection.Copy
  myDoc.Paragraphs(1).Range.PasteExcelTable _
    LinkedToExcel:=False, _
    WordFormatting:=False, _
    RTF:=False

EndRoutine:
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.CutCopyMode = False

IMPORTANTE - Para que isso funcione corretamente, você precisa habilitar as referências de projeto do Microsoft Word. No menu da janela do VBE vá para Tools > References , em seguida, localize e selecione seu Microsoft Word Object Library (você terá que rolar para baixo para encontrá-lo e seu número de versão pode ser diferente). Clique em OK , depois em Save e feche a janela do VBE.

Para usar esta macro, selecione o texto que deseja copiar, pressione Alt + F8 , escolha a macro e clique em Executar . Ele deve abrir o Word e colar o texto selecionado no novo documento.