Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.65/34: Рейтинг темы: голосов - 34, средняя оценка - 4.65
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
1

Слияние документов Word

25.06.2011, 15:14. Показов 6997. Ответов 36
Метки нет (Все метки)

Всем привет ... проблема.....вот вчем есть макрос....которий запускается с ексель но откривает вордовский файл через слияние делается обновления потом у вордовском файле делается новий документ продукт слияний без ссилок..... и его нужно сохранить в отдельной папке, тоесть етот документ вворде откривается но еще не где не соххранен

Добавлено через 30 минут
есть кто нибудь.....
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.06.2011, 15:14
Ответы с готовыми решениями:

Слияние WORD c базой ACCESS
Пытюсь слить в документ WORD данные из запроса ACCESS. Подключаюсь через ODBC, в результате выдает...

Слияние в Word - как собрать таблицу из значений
Всем привет! В этот раз я решила заняться слиянием в ворд, и тут у меня снова возникли трудности....

Поиск word документов с колонтитулами
help! Нужно организовать поиск word документам , которые содержат колонтитулы. Т.е. прошерстить...

Массовое создание документов Word
необходимо сделать массовое создание документов на основе реестра в Word. функция слияния не...

36
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 17:55 2
А где макрос?
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 18:14  [ТС] 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Sub open_save_word()
 ' відкриття та закриття в іншій папці word документа
Dim oDoc, oDoc2 As Object
Dim dat, g As String
 
  dat = Worksheets("Завка").Cells(10, 5)
'  MkDir "D:\Vanja\Vanja\різне\розробки\Друк договорів\2011" & dat
     
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Open("D:\Vanja\Vanja\різне\розробки\Друк договорів\Шаблон\Kred_dog_ipoteka.doc")
 
With oDoc.mailmerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
        
 End With
 
oDoc.Activate
oDoc.Close
 
 
'oDoc.SaveAs ("D:\Vanja\Vanja\різне\розробки\Друк договорів\2011" & "" & dat & "" & "Kred_dog_ipoteka" & ".doc")
 
'ActiveWorkbook.SaveAs ("D:\Vanja\Vanja\різне\розробки\Друк договорів\2011\1152\Kred_dog_ipoteka1" & ".doc")
 
Set oWord = Nothing
Set oDoc = Nothing
End Sub
Добавлено через 2 минуты
может кто поможет я застрял на сохранение нового документа в ворде которий открит через ексел методом слияние делает обновления в ворде и откриваэт новий документ

Добавлено через 50 секунд
кручу целих два дня
0
1479 / 385 / 35
Регистрация: 10.04.2009
Сообщений: 7,031
25.06.2011, 18:19 4
а этот экселевский и вордовский тоже выложите
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 18:23 5
Удали строку
Visual Basic
1
oDoc.Close
а в конце процедуры:
Visual Basic
1
2
3
4
5
oDoc.Close
oWord.Quit
Set oWord = Nothing
Set oDoc = Nothing
End Sub
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 18:23  [ТС] 6
ЕКСЕЛЬКА
Вложения
Тип файла: xls Kredutu_1.0.xls (63.5 Кб, 26 просмотров)
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 18:28  [ТС] 7
ЕКСЕЛЬКА І ВОРД
Вложения
Тип файла: zip Шаблон.zip (44.7 Кб, 28 просмотров)
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 18:41  [ТС] 8
ОНО НЕ ЗАКРОЕТ МНЕ ШАБЛОН

Добавлено через 1 минуту
если я уберу odoc.close оно не уберет мне шаблон

Добавлено через 11 минут
даже я поменяю местами ето проблему не решит мне нужно сохранить сохратиь другой файл которий породил вордовский шаблон
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 18:53 9
А что же ты сохраняешь после закрытия?
1
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 19:07  [ТС] 10
ЕСТЬ КТО

Добавлено через 52 секунды
Я МЕНЯЛ МЕСТАМИ ОН СОХРАНЯЕТ МНЕ ШАБЛОН

Добавлено через 5 минут
и что делать безпонятия
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 19:08 11
Совет: 1. Легче работать из текущей директории, и относительное этой директории.
2. Word шаблон имеет связь с файлом Excel, проще программно из модуля Excel внести данные в Ворд, потом сохранить (там будут записаны значения , а не связи)
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 19:25  [ТС] 12
toiai, наперед тока сам не розберусь

Добавлено через 1 минуту
какраз то проблема сохраняется шаблон в текущую а не норм. ворд. документ

Добавлено через 13 минут
?????????
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 19:27 13
Вот немного подправил, работает...код причешес сам
Вложения
Тип файла: xls Kredutu_1.0_toiai.xls (62.5 Кб, 27 просмотров)
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 19:41  [ТС] 14
ана сохраняет ворд докумет но если посмотреть на результат ворда то есть маленькая проблема там есть ссилки не ексельку чего не должно бить и чего я хочу избавится.....
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 19:56 15
Я бы все-таки в Ворде сделал закладки и из Excel занес туда данные (я так делал) или для Вас это сложнее.

Добавлено через 2 минуты
И еще не пользуйтесь в Excel переменными Word, пишите их значение
0
693 / 99 / 10
Регистрация: 25.06.2011
Сообщений: 718
25.06.2011, 20:02  [ТС] 16
если можно поподробние об закладка и переменной ворд
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 20:18 17
Создается текст договора в Ворд, потом вставляешь закладки(Вставка-Закладка-{имя закладки} в места, где необходимы данные из Excel, дай немного времени напишу пример, а то долго обьяснять.
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
25.06.2011, 20:51 18
Вот пример. Кстати в Word есть Специальная вставка, с помощью которой можно скопировать поле и вставить его значение.
Вложения
Тип файла: rar Из Excel в Word.RAR (41.6 Кб, 39 просмотров)
0
1479 / 385 / 35
Регистрация: 10.04.2009
Сообщений: 7,031
26.06.2011, 09:49 19
да, для меня слияние тоже тёмный лес, когда-то хотел с ним подружиться, нервов не хватило
делаю примерно также как предлагает toiai
Вопрос, как Вы их обновляете??
У меня примерно также, но не с закладками, а с полями
0
3208 / 958 / 222
Регистрация: 29.05.2010
Сообщений: 2,076
26.06.2011, 18:29 20
IvanOK - к сведению: обновление полей в Ворде невозможно пока открыт Excel-файл источник. Только когда файл источник закрыт при открытии Ворд файла обновляются поля, так что вариант закладок надежней!
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2011, 18:29

Связывание таблиц из разных документов WORD
Доброго времени суток. Искал, тщательно, решение своей проблемы, по советам смог написать макрос...

Запуск макроса слияния документов Word
Добрый день! Есть макрос на VBA, который объединяет документы ворд из одной папки, указанной....

Печать документов word с добавлением счетчика
Всем привет. Я сам работаю веб программистом. Начальник попросил, если получится разобраться и...

Оптимизация сортировки документов Word по первому слову
Добрый вечер. Столкнулся со следующей задачей: Необходимо отсортировать 60 000 одностраничных...

Макрос для всех открытых документов ms word
Добрый день. Необходимо написать макрос, который будет устанавливать переплет во всех открытых...

Создание определенного/заданного количества Документов Word из Excel
Здравствуйте, есть форма на ней Textbox (t1) и Button (b1), в t1 мы вводим количество на-мер 5 и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.