Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 28.03.2009, 14:42   #1
TayfooN
Новичок
Джуниор
 
Регистрация: 28.03.2009
Сообщений: 2
По умолчанию раскидать таблички Excel на страницу в Word

Такая проблема. У меня есть Эксель файл, в котором на страницу в 3 столбца и 4 ряда расположены мелкие таблицы, разделённые между собой 1 тонким столбцом и тонкой строчкой. Мне нужно раскидать все таблички на собственную страницу в ворде, но когда я копирую больше чем 1 табличку, то Ворд воспринимает эти таблички как 1 таблицу, даже не знаю, как их расклеить. Добрые люди, помогите

Последний раз редактировалось TayfooN; 28.03.2009 в 16:13.
TayfooN вне форума
Старый 28.03.2009, 15:00   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Прикрепите 2 файла:
1) книгу Excel с "табличками"
2) документ Word с примером того, что должно получиться в итоге
(достаточно вставить в документ 3-4 таблицы для образца)


------------------ добавлено позже - вдруг кому пригодится --------------------------
Цитата:
Сделал программу для заполнения документов данными из таблицы Excel (из Excel в Word)

--------------------
Надстройка предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel.

В качестве шаблонов могут выступать следующие типы файлов:
  • документы Word (расширения DOC, DOCX, DOCM)
  • шаблоны Word (расширения DOT, DOTX, DOTM)
  • книги Excel (расширения XLS, XLSX, XLSM, XLSB)
  • шаблоны Excel (расширения XLT, XLTX, XLTM)
  • текстовые документы (расширения TXT, DAT, XML и т.д.)

В качестве исходных данных для заполнения, используется открытый в Excel файл (с таблицей, содержащей строку заголовка)

Количество шаблонов документов не ограничено

--------------------------------
В каких случаях вам может пригодиться эта надстройка:
  • если у вас в таблице Excel хранится список контрагентов (с их реквизитами), и вы хотите нажатием одной кнопки формировать договоры, акты или коммерческие предложения для каждого из них
  • если в вашей таблице Excel хранятся паспортные данные сотрудников, и вам необходимо быстро сформировать по шаблону приказы или прочие документы в формате Word, заполнив созданные документы данными сотрудников
  • подготовить письма, уведомления, грамоты в формате PDF или Word, заполнив созданные файлы информацией с листа Excel
  • и т.д. и т.п. - надстройку можно применять для создания любых документов на основе данных из Excel
--------------------------------

Скачать надстройку можно здесь:
http://excelvba.ru/programmes/FillDocuments

Последний раз редактировалось EducatedFool; 28.03.2012 в 13:41.
EducatedFool вне форума
Старый 28.03.2009, 16:20   #3
TayfooN
Новичок
Джуниор
 
Регистрация: 28.03.2009
Сообщений: 2
По умолчанию

Вот 2 файла
TayfooN вне форума
Старый 28.03.2009, 16:54   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

В файле Excel нажми желтую кнопочку.
Если всё будет работать как надо, можешь нажать зелёную.

Проверено в Office 2003 и WinXP.
Макросы в Excel должны быть включены.

Вот весь макрос:
Код:
Dim wd As Object

Sub main()
    Set wa = CreateObject("Word.Application")
    wa.Visible = True:    ' wa.ScreenUpdating = False
    Set wd = wa.Documents.Add

    Dim cell As Range
    For Each cell In Me.UsedRange.Columns(1).Cells
        If cell.Interior.ColorIndex = 1 Then
            КопироватьТабличку cell
            If cell(1, 6).Interior.ColorIndex = 1 Then КопироватьТабличку cell(1, 6)
            If cell(1, 11).Interior.ColorIndex = 1 Then КопироватьТабличку cell(1, 11)
        End If
    Next
End Sub

Sub КопироватьТабличку(ByRef cell As Range)
    cell.Resize(13, 4).Copy
    wd.Sections.Add.Range.PasteExcelTable False, False, False
End Sub
См. вложение: (файл Excel пришлось немного урезать)
Вложения
Тип файла: rar собаки.rar (962.7 Кб, 225 просмотров)
EducatedFool вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
преобразование из Word в Excel afelia Microsoft Office Word 17 03.03.2012 10:21
Две таблички и два Grid antoni БД в Delphi 17 29.04.2009 13:28
Раскидать сборки по станциям - Интересно! jungo Microsoft Office Excel 2 20.05.2008 13:19
Из word в Excel Biosasha Microsoft Office Word 0 15.02.2007 22:32