ник: DarkRose
Помогите, пожалуйста! Очень уж нужно...
Есть форма "Исходящие письма" (для регистрации документов). На ней поля "Дата исходящего", "№ исходящего", "Дата входящего" и т.п. И в том числе поле "Ссылка на документ". Рядом с этим полем кнопка, которая запускает Word и заполняет шаблон письма данными из нужных полей. Процедура такая:
Dim wordApplication As Object
Dim wordDocument As Object
Dim str_Path As String
str_Path = "c:\Секретарь_исходящие\Shablon.dot"
Set wordApplication = CreateObject("Word.Application")
wordApplication.Visible = True
Set wordDocument = CreateObject("Word.Document")
Set wordDocument = wordApplication.Documents.Add(str_Path)
wordDocument.Bookmarks("Дата_исходящего").Select
wordApplication.Selection.Text = Me!Дата_исходящего
wordApplication.Selection.Collapse
wordDocument.Bookmarks("Номер_исходящего").Select
wordApplication.Selection.Text = Me!Номер_исходящего
wordApplication.Selection.Collapse
wordDocument.Bookmarks("Номер_входящего").Select
wordApplication.Selection.Text = Me!Номер_входящего
wordApplication.Selection.Collapse
wordDocument.Bookmarks("Дата_входящего").Select
wordApplication.Selection.Text = Me!Дата_входящего
wordApplication.Selection.Collapse
str_Path = "c:\Секретарь_исходящие\Письмо.doc"
wordApplication.ActiveDocument.SaveAs FileName:=str_Path
Set wordDocument = Nothing
Set wordApplication = Nothing
Шаблон заполняется, но проблема в том, что "Дата входящего" пишется без точек (т.е. вот так: 02032007). Замечу, что поле "Дата входящего" со списком. Может из-за этого? Как же быть? (Без поля со списком не обойтись.)
И еще большая проблема! В поле "Ссылка на документ" содержится ссылка на документ в виде: "/Секретарь_исходящие/Письмо1.doc". Мне нужно, чтобы при нажатии на кнопку открывался шаблон, соответственно заполнялся данными и сохранялся под именем "Письмо1.doc", а следующее - уже под "Письмо2.doc" и так далее, и путь к doc-файлу прописывался в поле "Ссылка на документ". Двойное нажатие по полю должно открывать этот doc-файл. Как это сделать?
Ломаем голову над этим уже который день... Была бы очень благодарна за помощь!