Подстановка данных из excel в word - Microsoft Office Excel - Страница 3

Aleksandr H. · 13.03.2016, 18:03

Думаешь? А ход мысли изложить сможешь?

допиши строки

Код:

Filename = НоваяПапка & ФИО & "(шаблон1)" & РасширениеСоздаваемыхФайлов

Filename2 = НоваяПапка & ФИО & "(шаблон2)" & РасширениеСоздаваемыхФайлов
Filename3 = НоваяПапка & ФИО & "(шаблон3)" & РасширениеСоздаваемыхФайлов
Filename4 = НоваяПапка & ФИО & "(шаблон4)" & РасширениеСоздаваемыхФайлов

измени фрагмент

Код:

WD1.SaveAs Filename: WD1.Close False: DoEvents
WD2.SaveAs Filename2: WD2.Close False: DoEvents
WD3.SaveAs Filename3: WD3.Close False: DoEvents
WD4.SaveAs Filename4: WD4.Close False: DoEvents

Кста, а шаблоны разные или, может, достаточно один сохранить 4 разы?

Alex6375 · 14.03.2016, 20:04

В этом что-то есть. Сейчас буду пробовать. Потом сброшу результат.

Alex6375 · 14.03.2016, 21:04

Вот так вроди работает. Буду доводить до ума. Файл прилагаю. Может кто доработает еще чего нибудь

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Перенос данных из Excel в Word	driver_ok	Microsoft Office Word	0	25.11.2015 16:55
перенос данных из excel в word	D_e_n_n	Microsoft Office Excel	9	14.03.2011 08:06
Выгрузка данных из excel in word.	noc	Microsoft Office Excel	5	22.11.2010 12:48
Экспорт данных из Excel в Word	MSusik	Microsoft Office Excel	9	15.11.2010 09:41

14.03.2016, 20:04	#22
Alex6375 Пользователь Регистрация: 12.03.2016 Сообщений: 17	В этом что-то есть. Сейчас буду пробовать. Потом сброшу результат.