я не знаю много о макросах, возможно, кто-то может мне помочь. У меня есть простой файл Excel с именами клиентов, которые имеют много комментариев к каждому имени. Есть ли быстрый способ, кроме создания снимков экрана или редактирования комментария, затем копирования и вставки в текстовый файл с последующим сохранением.

Возможно ли, что код VBA может скопировать мои комментарии активной ячейки, а затем скопировать их в новый документ Word, который я затем могу просто сохранить в собственном месте.

Спасибо

1 ответ1

2

Я объясню, как поместить этот макрос в Excel так просто, как я могу.

Чтобы добавить макрос, нажмите Alt + F8.

Это откроет окно Macro . Затем введите имя для нового макроса и нажмите « Создать» .

Откроется VBE, и вы можете вставить приведенный ниже код между Sub и End Sub .

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

ВАЖНО - для правильной работы необходимо включить ссылки на проекты Microsoft Word. В меню окна VBE перейдите в меню « Tools > References затем найдите и выберите свою Microsoft Word Object Library (вам придется прокрутить страницу вниз, чтобы найти ее, и номер вашей версии может отличаться). Нажмите OK, затем Save и закройте окно VBE.

Чтобы использовать этот макрос, выделите текст, который хотите скопировать, нажмите Alt + F8, выберите макрос и нажмите « Выполнить». Следует открыть Word и вставить выделенный текст в новый документ.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .