|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.08.2012, 16:33 | #1 |
Регистрация: 02.06.2012
Сообщений: 8
|
Создание таблицы в word
Вопрос: Люди выручайте. Не могу разобраться, как при преобразовании данных из экселя в ворд (заполнение шаблона) программно реализовать таблицу с заданными параметрами в каждом из готовых документов. Гугл что-то не помогает.
Пояснение: (Макрос вытягивает данные из экселя с листа1 по наименованию предприятия создает вордовский документ и заполняет его соответствующими данными) Дополнительно интересует (каким командами задаются границы таблицы: граничные линии, ширина колонки). Да и если не трудно ссылку на какой-нить хороший подробный источник по использованию VBA в ворде. Спасибо Option Explicit Sub MakeMemos() ' Ñîçäàíèå çàìåòîê â Word ñ ïîìîùüþ àâòîìàòèçàöèè (ïîçäíåå ñâÿçûâàíèå) Dim WordApp As Object Dim Data As range, message As String Dim Records As Integer, i As Integer Dim bank As String, phone As String, address As String, responsible As String, periodstart As String, manager As String Dim SaveAsName As String, periodend As String, client As String ' Çàïóñê Word è ñîçäàíèå îáúåêòà Set WordApp = CreateObject("Word.Application") ' Èíôîðìàöèÿ ñ ðàáî÷åãî ëèñòà Set Data = sheets("Лист1").range("A1") 'message = sheets("Лист1").Range("Message") ' Ïðîñìîòð çàïèñåé â Ëèñò1 Records = Application.CountA(sheets("Лист1"). range("A:A")) For i = 2 To Records ' Îáíîâëåíèå ñîîáùåíèÿ â ñòðîêå ñîñòîÿíèÿ Application.StatusBar = "Ñîçäàíèå ñîîáùåíèé " & i ' Addressing of variables bank = Data.Cells(i, 1).Value phone = Data.Cells(i, 2).Value address = Data.Cells(i, 3).Value client = "#####" responsible = Data.Cells(i, 4).Value manager = Data.Cells(2, 5).Value periodstart = Data.Cells(2, 6).Value periodend = Data.Cells(2, 7).Value ' Names setting SaveAsName = ThisWorkbook.Path & "\" & bank & ".doc" ' transfering to Word With WordApp .documents.Add With .Selection .......... End With .activedocument.SaveAs Filename:=SaveAsName End With Next i ' Removing WordApp.Quit Set WordApp = Nothing ' updating of status Application.StatusBar = "" MsgBox Records - 1 & " file(s) saved by the following reference " & ThisWorkbook.Path End Sub |
09.08.2012, 17:02 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Запишите в Ворде в макрос действия: создание таблицы, изменение границ и т.д.
А вообще, есть подозрение, что это все можно Слиянием в Ворде сделать, без макросов.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
09.08.2012, 17:24 | #3 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
до чего ленивые авторы пошли
--структуру екселя еще можно предугалать --формируется 1 ворд=1 строке ексель и пара ячеек из шапки и все --какова примерная структура ворд(открывается ведь пустой документ) --есть ли таблицы --есть ли закладки или какие-то другие маркеры вставки --предполагается программное формирование вида документа(это подходит только для мелочи) --для документов в 2 и более листов --делают шаблон с закладками) -- простенький пример(и екселя и ворда) много даст прежде всего ЛИЧНО ВАМ Примеров обработки закладок --десятки на всех ворд-форумах) в первую очередь вы должны понять --что ВАМ надо получить
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
09.08.2012, 17:55 | #4 | |
Регистрация: 02.06.2012
Сообщений: 8
|
Цитата:
1) Вообще-то я не ленивый. 2) Структуру я сам сделаю, я думаю она не имеет принципиального значения для того чтобы вставить 1 таблицу в исходный код (нужна только "грамматика" команды) с остальным сам разберусь. Содержание вордовского документа я специально удалил, чтобы не перегружать программу. Документ, как видно из программного кода, создается пустой и заполняется в месте где стоит многоточие. 3) Если создается пустой документ - наверное в нем нет никаких таблиц, маркеров и прочей ерунды или я не прав? 4) Программное форматирование выполню сам если понадобится. 5) Насчет шаблона с закладками не совсем понял. В VBA MS WORD разбираюсь сегодня 2-й день без учебника. Excel в этом плане показался попроще, хотя может быть из-за того что была нормальная литература. Обидеть никого не хотел, но как мне кажется задал конкретный вопрос. Хотя может из-за того, что я не прожженный программист, считаю все вышеописанные мелочи незначительными факторами в данной ситуации. Вывод: Много критики - и ни одного полезного совета. Чтож будем дальше искать тогда. |
|
09.08.2012, 17:57 | #5 |
Регистрация: 02.06.2012
Сообщений: 8
|
Спасибо за совет. Слияние вещь - хорошая, но все-таки как этап своего обучения - я хотел реализовать это с помощью VBA. Recordom попробую.
|
09.08.2012, 22:24 | #6 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
это немного не тот пример, что я искала ---но работает
немного подогнала синтаксис под vba не забудьте ссылку на ворд Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Таблицы в Word | a_n_n_a | Общие вопросы Delphi | 3 | 19.07.2011 02:59 |
Таблицы в Word | RazorBritva | Софт | 2 | 17.09.2010 14:42 |
MS Word таблицы | Chudo4258 | Помощь студентам | 2 | 18.05.2010 07:26 |
Как вычислять значения вне таблицы WORD, с использованием данных из таблицы WORD | prikolist | Microsoft Office Word | 6 | 21.11.2008 13:17 |
ТАблицы в WORD | kirya_82 | Microsoft Office Word | 5 | 01.03.2007 11:44 |