Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Есть шаблон, с формой для ввода данных. При нажатии кнопки - они все заполняются на свои места. Как сделать так, а точнее - какой командой можно сохранять заполненный документ с названием переменной(закладки) которая отвечает за номер договора ? При чем, нужно чтобы сохраняло в конкретную директорию, и все это делалось после нажатия кнопки, которая отвечает за внесение данных с формы 
Одним словом:
Нужно сделать чтобы при вводе данных, сразу и сохраняло - причем в конкретную директорию, и название файла - номер договора ( он вводиться с формы, соответственно на него есть закладка) Какой командой ?
Помогите пожалйста.
Вообще это не трудно сделать. Общая рыба такая:
Для объекта Bookmark:
ActiveDocument.SaveAs FilePath & "\" ActiveDocument.Bookmarks(Name).Range.Text & ".doc"где
FilePath — это имя директории, можно задать сразу и она будет постоянной, например FilePath = "D:\Договора", либо через запрос InputBox, тогда можно будет изменить директорию, например FilePath = InputBox("Введи путь сохранения файла: ", "Выбор папки сохранения")
Name — имя закладки содержащей номер договора
Ошибка:
Expected: end of statement
Выделяет при ошибке второй блок ActiveDocuments...
Извини, поставь перед ActiveDocument.Bookmarks(Name) знак &
ActiveDocument.SaveAs FilePath & "\" & ActiveDocument.Bookmarks(Name).Range.Text & ".doc" Спасибо за уделение времени для меня 
А теперь, после заполнения шаблона и нажимания кнопки внести данные + сохранить туда то - вылазит таблица
Runtime error 5941
Запрашиваемый номер семейства не существует.
И когда жму кнопку кнопку debug, выделяет желтым тот рядок который как раз отвечает за сохрание и название документа
Вставляю вот такое:
ActiveDocument.SaveAs FilePath = "D:\Dogovir" & "\" & ActiveDocument.Bookmarks(dognum).Range.Text & ".doc"Закладка и путь указаны правильно.
Аргумент Name чему равен?
dognum это имя закладки?
dognum возьмите в кавычки......
Взяла в кавычки, теперь
Runtime error 13
Typemismatch
ActiveDocument.SaveAs FilePath = "D:\Dogovir" & "\" & ActiveDocument.Bookmarks("dognum").Range.Text & ".doc"Выложи файл
Вот
Где?
ActiveDocument.SaveAs "D:\Dogovir" & "\" & ActiveDocument.Bookmarks("dognum").Range.Text & ".doc"Работает
Искренне Вам спасибо за помощь
Вообще я бы посоветовал сохранять файлы не просто номером договора, а еще датой и фамилией, тогда легко будет создать поисковую форму с фильтрами по дате и по фамилии....
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться