Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / запуск макроса в Word 2007 / 12 сообщений из 12, страница 1 из 1
03.07.2008, 11:23
    #35408269
aziel
aziel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Здравствуйте!
Есть маленький макрос который запускает прграмму.
Как сделать, чтобы он выполнялся автоматически при открытии документа.
Нашел в инете только то что есть какой-то макрос Autoexec, который выполняется при открытии документа.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2008, 12:27
    #35408506
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Надо размести код в процедуре Private Sub Document_Open() .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2008, 15:38
    #35409237
aziel
aziel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Не подскажите еще в таком деле как правильно создать макрос в Word 2007
Я делаю так вид->макрос->создать
Может надо по другому?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2008, 16:55
    #35409606
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Нажмите Alt-F11 .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2008, 19:14
    #35410005
aziel
aziel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Я сделал вот так что не правильно??

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub document_open()
'
' Мак_1 Макрос
'
'
 Dim Myapp As Variant
 On Error Resume Next
 Myapp = Shell("c:\MPK\MPK.exe",  1 )
 If Myapp =  0  Then
   MsgBox "Error"
 Else
  MsgBox "Все прошло удачно! Программа запущена"
 End If
 End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2008, 19:35
    #35410043
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Вам нужно внимательно прочитать про функциию Shell или не использовать ее.
Тип данных Variant — это зло.
On error resume next — тоже зло.
Пишите проще :
Код: plaintext
1.
Shell "c:\MPK\MPK.exe", vbNormalFocus
.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2008, 12:52
    #35411302
aziel
aziel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Спасибо! про Variant я знаю, но проблема не решена. При открытии документа макрос не выполняется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.07.2008, 13:17
    #35411389
aziel
aziel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
Разобрался.
большое спасибо за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2008, 14:01
    #35412953
aziel
aziel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
это опять я.
У меня такой вопрос.
После того как я скопировал файл (самораспаковывающийся архив) хочу его запустить но тут появляется сообщение о том что файлы уже существуют (хотя в папке их нет ).

Код такой
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub document_open()
'
' Ìàê_1 Ìàêðîñ
'
'
  Dim SourceFile, DestinationFile ' îáüÿâëåíèå ïåðåìåííûõ
  MkDir "c:\mpk_1" '  ñîçäàíèå ïàïêè
  SourceFile = "\\Reaver\s\s.exe"    ' èìÿ ôàéëà äëÿ êîïèðîâàíèÿ.
  DestinationFile = "c:\MPK_1\s.exe"    ' ïóòü è èìÿ ôàéëà ïîñëå êîïèðîâàíèÿ.
  FileCopy SourceFile, DestinationFile    ' êîïèðîâàíèå ôàéëîâ(à).
  Shell "c:\mpk_1\mpk.exe", vbNormalFocus
 End Sub

В чем причина? Что не правильно?
P.S.
Вместо Shell больше не чего не нашел что бы можно было запустить приложенеие.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
20.11.2011, 21:25
    #37535824
Knuut
Knuut
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
хочу сделать примерно так

марка автомобиля расход на 100 км расход в течении недели
1-й день 2-й день 3-й день 4-й день 5-й день всего


это в Exel на первой странице составил листинг но уже с самого начала начались ошибки цитирую одну из них
Ошибка компиляции:
Sub или функция не определена

и часть листинга

Sub kr_Click()
'
Dim i As Integer, j As Integer '
Dim koll(7, 5) As Integer '
Dim koll_d(6) As Double '
Dim koll_n(7) As Integer '
Dim den As Integer '
Dim koll_max As Double '
Dim cena(7) As Double '
'

For i = 1 To 7
kol_n(i) = 0
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2011, 01:59
    #37536060
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
KnuutDim kol l _n(7) As Integer '
...
kol_n(i) = 0
...
Knuut,
Опять прикалываемся? Лавры ЦЭ не дают покоя?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.12.2011, 16:58
    #37557596
Knuut
Knuut
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
запуск макроса в Word 2007
AndreTM,

да ты прав,
меня эти ошибки вот и доставали,))) были еще одни, но я справился... В общем с помощью пинка преподавателя все получилось)
и она стала работать). Всем огромное спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / запуск макроса в Word 2007 / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 321ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176225]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 198ms
total:  321ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]