Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > макрос копирование из эксель в ворд

Автор: mysu18 30.6.2013, 19:06

Есть база данных в эксель типа:

адрес этаж описание
суворова 2 н/у, черн. отделка
калинина 9 хороший ремонт

и т.д.

Нужно скопировать в ворд, чтобы получилось так:

Продается 1-комн. квартира по адресу:
ул. Антонова, 23 А (4/9, жилое состояние, лоджия не застеклена, не угловая, в районе развитая инфраструктура, дому 4 года)

Вот что у меня пока есть:

Sub aaa()

Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
    With WordApp
    .Documents.Add
    With .Selection
   .Font.Size = 12
             .TypeText Text:="Продаётся 1-комн. квартира:" + vbCrLf
           Range("C2").Select
           Selection.Copy
           WordApp.ActiveWindow.Selection.TypeText (Range("C2")) + " ("
           Application.CutCopyMode = False


           Set WordApp = Nothing

End With
End With
End Sub

в ворде вот что:

Продается 1-комн. квартира по адресу:
ул. Антонова, 23 А (

Как скопировать вторую и все остальные ячейки?

Автор: LOPUH 27.7.2013, 11:26

Наверное поздно пишу.. Но тем не менее--копировать данные в строковый массив.