| Цитата(LeonM @ 5.6.2005, 12:12) | | Подскажите, пожалуйста, можно ли сделать макрос, открывающий постоянный файл в формате Word? И как? |
Можна! даже нужно! 
Будем макросами баловаться 
1) на Access`овскую форму бросаем кнопочку, открывается мастер создания кнопок, в котором выбираем "Приложение" и "Запустить MS Word". "Готово"
2)смотрим получившийся макрос:
| Код |
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
'
' вот сюда кое чего вставим :)
'
oApp.Visible = True
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнока0_Click
End Sub
|
3) Открываем Word, начинаем писать макрос "Сервис / Макрос / Начать запись", Открываем нужный файлик, заканчиваем писать этот макрос, смотрим на него:
| Код |
Documents.Open FileName:="2_.doc", ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:=""
|
тута ВСЕ кроме FileName можно выкинуть а в него пишем полный путь к файлу ну что-то вроде:
| Код |
Documents.Open FileName:="C:\MyDocuments\Others\2_.doc"
|
4) Эту строчку вставляем в Access`овскую кнопку, незабывая, что Объект Documents, с помощью которого это все происходит принадлежит Объекту - приложению oApp, в результате получаем:
| Код |
Private Sub Кнопка0_Click()
On Error GoTo Err_Кнопка0_Click
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Documents.Open FileName:="C:\MyDocuments\Others\2_.doc" ' уже вставили :)
oApp.Visible = True
Exit_Кнопка0_Click:
Exit Sub
Err_Кнопка0_Click:
MsgBox Err.Description
Resume Exit_Кнока0_Click
End Sub
|
PS: у меня офис 2003, в других офисах, действия могут по другому именоваться, а сама суть остаётся
|