ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
6 сообщений из 6, страница 1 из 1
как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
    #39262762
marmihalovna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marmihalovna
Гость
ситуация следующая макросы, написанные в excel 2003 для коррекции данных в word 2003 все открывается правится, сохраняется, НО вот на компах где установлены excel 2007 и word 2007, исходный файл excel 2003 открывается в excel 2007, при запуске макроса нужный файл word(написанные в word 2003) открывается word 2007, НО в нем ничегошеньки не правится

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
If Имя <> "" And Смена0 = Смена Then
On Error Resume Next
Set objWrod = GetObject(, "Word.Application")
If objWrod Is Nothing Then Set objWrod = CreateObject("Word.Application")
Set objDoc = objWrod.Documents.Open(КаталогОткрываемойКниги & "\" & Имя & ".doc") - ОТКРЫВАЕТСЯ
objWrod.Visible = True - ВИЗУАЛИЗИРУЕТСЯ
objWrod.Activate - СТАНОВИТСЯ АКТИВНЫМ



И С ЭТОГО МОМЕНТА В word 2007 НИЧЕГОШЕНЬКИ НЕ ПРАВИТСЯ

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
objWrod.Documents(Имя).ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
objWrod.Documents(Имя).Tables(1).Cell(1, 1).Range.Text = УведомлениеДата
objWrod.Documents(Имя).Tables(2).Cell(1, 1).Range.Text = РаботаДата
objWrod.Documents(Имя).Tables(2).Cell(1, 2).Range.Text = РаботаВремя
objWrod.Documents(Имя).Tables(2).Columns.AutoFit
objWrod.Documents(Имя).Tables(3).Cell(3, 1).Range.Text = РаботаДата
objWrod.Documents(Имя).Tables(3).Cell(3, 2).Range.Text = РаботаВремя
objWrod.Documents(Имя).Tables(3).Columns.AutoFit
objWrod.Documents(Имя).Tables(4).Cell(1, 2).Range.Text = РаботаДата
objWrod.Documents(Имя).Tables(4).Columns.AutoFit
objWrod.Documents(Имя).Tables(5).Cell(1, 1).Range.Text = РаботаВремя
objWrod.Documents(Имя).Tables(6).Cell(1, 5).Range.Text = УведомлениеДата
Set objDoc = Nothing
Set objWrod = Nothing



ЧЕЛОВЕКИ ДОБРЫЕ ПОДСКАЖИТЕ ГДЕ ЗАГВОЗДКА

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
27.06.2016, 10:50
| Ответить | Цитировать | Написать  
как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
    #39262773
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
marmihalovnaГДЕ ЗАГВОЗДКАздесь
marmihalovna
Код: vbnet
1.
On Error Resume Next
...
Рейтинг: 0 / 0
27.06.2016, 11:07
| Ответить | Цитировать | Написать  
как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
    #39262799
marmihalovna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marmihalovna
Гость
Shocker.Pro,

могу я вас попросить объяснить почему именно здесь "On Error Resume Next" загвоздка
как же это должно выглядеть без этого момента?
...
Рейтинг: 0 / 0
27.06.2016, 11:46
| Ответить | Цитировать | Написать  
как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
    #39262804
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
marmihalovna,

во время выполнения макроса возникает ошибка, а вы заблокировали все ошибки, поэтому вам кажется, что ничего не происходит.
marmihalovnaкак же это должно выглядеть без этого момента?для начала On Error Goto 0 после создания экземпляра ворда, а вообще почитайте про обработку ошибок в VBA
...
Рейтинг: 0 / 0
27.06.2016, 11:50
| Ответить | Цитировать | Написать  
как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
    #39262983
marmihalovna
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marmihalovna
Гость
Shocker.Pro,

ОГРОМНОЕ СПАСИБО за совет

отключила On Error Resume Next
и отладила вновь возникшую ошибку objWrod.Documents(Имя) Имя - надо было писать с расширением
objWrod.Documents(Имя & ".doc") - вот так все заработало

еще раз ОГРОМНОЕ СПАСИБО
...
Рейтинг: 0 / 0
27.06.2016, 15:22
| Ответить | Цитировать | Написать  
как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
    #39263022
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Да тут вообще не надо писать имя. У вас есть objDoc - с ним и работайте
...
Рейтинг: 0 / 0
27.06.2016, 16:07
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как заставить работать макросы, написанные в excel 2003 для коррекции данных в word 2007
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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