Я объясню, как поместить этот макрос в 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 и вставить выделенный текст в новый документ.