Здравствуйте, на Маке есть Excel, мне нужно чтобы из столбика А все строки перенеслись в Word каждая строка на новую страницу в Word в одном и том же документе, чтобы Я смог их передать на печать за раз на разные листы. Мне дали вот такой макрос
Но при запуске иногда Runtime 5 летит, либо он запускает word создает документ но +- с 30 строки начинает по две строчки на лист добавлять по непонятной причине
Sub CopyColumnToWord()
Dim WordApp As Object
Dim WordDoc As Object
Dim LastRow As Long
Dim ws As Worksheet
Dim Cell As Range
' Создаем новый экземпляр Word
Set WordApp = CreateObject("Word.Application")
' Создаем новый документ в Word
Set WordDoc = WordApp.Documents.Add
WordApp.Visible = True
' Указываем лист Excel, с которого будем копировать данные
Set ws = ThisWorkbook.Sheets("Лист1") ' Измените на имя вашего листа, если необходимо
' Определяем последнюю строку в столбце A
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' Копируем данные из столбца A в Word
For Each Cell In ws.Range("A1:A" & LastRow)
WordDoc.Content.InsertAfter Cell.Value & vbCrLf
Next Cell
' Очищаем переменные
Set WordDoc = Nothing
Set WordApp = Nothing
Set Cell = Nothing
End Sub
Возможно дело в каких-то настройках, мне нужно решить эту задачу. Можете использовать этот макрос можете другой без разницы лишь бы работало.