макрос для чайника)

[iriska26]

У меня проблема с написанием макроса,который переносил бы таблицы написанные в word в файл excel. знаю,что таких вопросов было много,но я вообще ничего понять не могу=( Кто-нибудь может написать подробно для чайника как я(пошагово если не трудно)описать как создать макрос..

немогу почему-то фаил прикрепить(
№п/п ФИО начислено ФСС ФОМС ТФОМС -названия колонок

[Ципихович Эндрю]

переносил бы таблицы написанные в word в файл excel - трудно понять
Если бы данные с таблицы написанные в word в файл excel другое дело
Что есть выкладывайте

[iriska26]

вот примерная таблица,которую нужно перенести.Можно было бы конечно просто скопировать или написать ее в excel?yj проблема в том,что нужно именно макросом это сделать=(

[viter.alex]

Обычный копипаст и все дела

Sub Test()
  Dim xlApp As Object
  Dim xlWsheet As Object
  
  Set xlApp = CreateObject("Excel.Application")
  xlApp.Workbooks.Add
  Set xlWsheet = xlApp.ActiveSheet
  ActiveDocument.Tables(1).Range.Copy
  xlWsheet.Paste xlWsheet.Cells(1, 1), False
  xlApp.Visible = True
End Sub

[iriska26]

Спасибо огромное за помощь!