Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: макрос копирование из эксель в ворд  (Прочитано 5154 раз)
0 Пользователей и 1 Гость смотрят эту тему.
mysu18
Читатель

ru
Offline Offline

« : 30-06-2013 16:01 » 

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

адрес этаж описание
суворова 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 А (

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

ru
Offline Offline

« Ответ #1 : 01-07-2013 04:04 » 

не пробовали использовать "слияние" в ворде? Если я правильно понял, то это то, что Вам надо и без макросов
Записан

I Have Nine Lives You Have One Only
THINK!
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines