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

@IvanOK · Регистрация: 25.06.2011

Студворк — интернет-сервис помощи студентам

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

Добавлено через 30 минут
есть кто нибудь.....

@IvanOK · 29.06.2011, 16:36 **[ТС]**

toiai, ну покашто у меня вроде получилось..... но макрос которий откривает ворд і делает слияние никак не сохраняет новий документ... с закладками ето что новое......и мне ето счас проблема .

Добавлено через 46 секунд
Ципихович Эндрю, при виходе с екселя просто откиваю ворд и есть кнопка отобразить

Добавлено через 1 час 39 минут
toiai, ето более лутше вариант есть меленькоє но там много сменних і каждую нужно огласить

@Busine2009 · 29.06.2011, 19:47

Если я так открываю документ - то связи нет с файлом Excel. Или я чего-то не понимаю?

Сообщение от IvanOK

Set oDoc = oWord.Documents.Open("D:\Vanja\Vanja\різ не\розробки\Друк договорів\Шаблон\Kred_dog_ipoteka.doc")

toiai · 29.06.2011, 20:16

Есть вариант: В Excel создается лист-буфер с двумя строками (1- наименование полей, например - {Фамилия}; 2- их значение. Создается в Ворде файл-шаблон с вводом в текст наименования полей {Фамилия},.. Макросом в Excel открываем файл-шаблон, сохраняем как... и заменяем наименования полей на их значение... Будут вопросы, готов ответить.

@IvanOK · 01.07.2011, 17:55 **[ТС]**

toiai, ето тоже хороший вариант а про него поподробнее.....

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

toiai · 01.07.2011, 18:03

ето тоже хороший вариант а про него поподробнее.....

Хорошо, пример по предложенному варианту приведу.

страннно почемуто у меня обновляет .... как я понял оно не обновляет те дукументи которие еще не сохранялись...

Но связи то не убирает,и если путь к Excel файлу доступен, при открытии информация по полям будет обновляться.

toiai · 01.07.2011, 20:32

Вот пример на скорую руку, пользуйся

@IvanOK · 08.07.2011, 19:28 **[ТС]**

toiai, подскажи еще маленькую штуку как сделать проверку наличия папки если нет создать иначе пропустить неперед благодарен.....

@Ципихович Эндрю · 08.07.2011, 19:33

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'узнать существует ли диск, папка, файл
'подключаем библиотеку Microsoft Scripting Runtime: Tools - References... - Microsoft Scripting Runtime
Dim FileSystemObject As New Scripting.FileSystemObject
If FileSystemObject.FolderExists("W:") = True Then 'надо строго писать с ":"
    MsgBox$ "Диск существует"
End If
If FileSystemObject.FolderExists("C:\Documents and Settings\Пользователь\Рабочий стол\Новая папка") = True Then
    MsgBox$ "Папка существует"
End If
If FileSystemObject.FileExists("C:\Documents and Settings\Пользователь\Рабочий стол\Что-то там.doc") = True Then
    MsgBox$ "Файл существует"
End If

Добавлено через 44 секунды

Visual Basic
1
2
3
4
5
ExtractTo = "L:\Изменённые\"
Set fso = CreateObject("Scripting.FileSystemObject")
'если нет папки с именем ..., тогда создать такую папку
If Not fso.FolderExists(ExtractTo) Then fso.CreateFolder (ExtractTo)
Set fso = Nothing

toiai · 08.07.2011, 19:35

Я делаю так:

Visual Basic
1
2
     FPath = FPath + "Приказы"
    If Dir(FPath, vbDirectory) <> "Приказы УИРС" Then MkDir FPath

Добавлено через 37 секунд
подправил

Visual Basic
1
2
FPath = FPath + "Приказы"
    If Dir(FPath, vbDirectory) <> "Приказы" Then MkDir FPath

@Ципихович Эндрю · 08.07.2011, 19:37

Сообщение от toiai

Приказы УИРС

и

Сообщение от toiai

Приказы

сильно видна разница

toiai · 08.07.2011, 19:38

Это же пример, чтоб было понятно...

@Ципихович Эндрю · 08.07.2011, 19:39

а что подправили???

toiai · 08.07.2011, 19:40

Убрал "УИРС" иначе проверка названия директории будет неверна!

@Ципихович Эндрю · 08.07.2011, 19:41

в честь чего будет не верна??
зачем тогда нужен код который где-то хромает??

toiai · 08.07.2011, 19:45

Да не хромает, работает отлично, просто при копировании не подчистил...приношу извинения, если мой метод Вам не по душе.

@IvanOK · 28.07.2011, 14:20 **[ТС]**

Ципихович Эндрю, Спасібо вы мне очень помогли.....

Добавлено через 46 секунд
toiai, спасибо ты мне очень помог....

@IvanOK · 04.08.2011, 16:16 **[ТС]**

toiai, подскажи еще один момент как виполнить макрос при откритии или закритии екселя

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718

	Слияние документов Word 25.06.2011, 15:14. Показов 10011. Ответов 36 Метки нет (Все метки) Всем привет ... проблема.....вот вчем есть макрос....которий запускается с ексель но откривает вордовский файл через слияние делается обновления потом у вордовском файле делается новий документ продукт слияний без ссилок..... и его нужно сохранить в отдельной папке, тоесть етот документ вворде откривается но еще не где не соххранен Добавлено через 30 минут есть кто нибудь..... 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	29.06.2011, 16:36 [ТС]
	toiai, ну покашто у меня вроде получилось..... но макрос которий откривает ворд і делает слияние никак не сохраняет новий документ... с закладками ето что новое......и мне ето счас проблема . Добавлено через 46 секунд Ципихович Эндрю, при виходе с екселя просто откиваю ворд и есть кнопка отобразить Добавлено через 1 час 39 минут toiai, ето более лутше вариант есть меленькоє но там много сменних і каждую нужно огласить 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	29.06.2011, 20:16
	Есть вариант: В Excel создается лист-буфер с двумя строками (1- наименование полей, например - {Фамилия}; 2- их значение. Создается в Ворде файл-шаблон с вводом в текст наименования полей {Фамилия},.. Макросом в Excel открываем файл-шаблон, сохраняем как... и заменяем наименования полей на их значение... Будут вопросы, готов ответить. 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	01.07.2011, 17:55 [ТС]
	toiai, ето тоже хороший вариант а про него поподробнее..... Добавлено через 1 минуту страннно почемуто у меня обновляет .... как я понял оно не обновляет те дукументи которие еще не сохранялись... 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	08.07.2011, 19:28 [ТС]
	toiai, подскажи еще маленькую штуку как сделать проверку наличия папки если нет создать иначе пропустить неперед благодарен..... 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	08.07.2011, 19:38
	Это же пример, чтоб было понятно... 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	08.07.2011, 19:39
	а что подправили??? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	08.07.2011, 19:40
	Убрал "УИРС" иначе проверка названия директории будет неверна! 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	08.07.2011, 19:41
	в честь чего будет не верна?? зачем тогда нужен код который где-то хромает?? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	08.07.2011, 19:45
	Да не хромает, работает отлично, просто при копировании не подчистил...приношу извинения, если мой метод Вам не по душе. 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	28.07.2011, 14:20 [ТС]
	Ципихович Эндрю, Спасібо вы мне очень помогли..... Добавлено через 46 секунд toiai, спасибо ты мне очень помог.... 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	04.08.2011, 16:16 [ТС]
	toiai, подскажи еще один момент как виполнить макрос при откритии или закритии екселя 0

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

Решение