Версия для печати темы

Автор: Greiv Вторник, 03 Июня 2008, 15:43

Извините за повторяющуюся тему но просто очень нужна помощь странная ошибка не кто не может помоч а решить проблемму нада в кратчайшие стоки. Проблемма в следующем: есть макрос встроенный в документ ворд его делал тип до меня работал потом уволился а я на его место пришёл короче макрос на всех компах нормально работает а на 1 компе не запускался вообще вот что писал:

Первое: Cold not load some objects bekause they are not available on this machine.-Жму ОК

Второе: Cold not load an objects bekause it is not available on this machine. Жму ОК

Третье: Cold not load some objects bekause they are not available on this machine. Жму ОК

Четвёртое: Cold not load an objects bekause it is not available on this machine. Жму ОК

Потом появляется окно: Run-time error 424
Object required
Жму кнопку: Debug

Появляется следующий скрипт:
Private Sub OptionButton4_Click()
OptionButton4.Value = True
OptionButton5.Value = False
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
Label17.Caption = "Название"
Label18.Caption = "В Лице"
Label19.Caption = "Основание"
Label18.Font.Size = 12
Label19.Font.Size = 12
Label20.Caption = ""
Label21.Caption = ""
Label22.Caption = "Реквизиты"
DTPicker2.Visible = False-ВОТ ТУТ ПИШЕТ ОШИБКУ-когда я её коминтирую выдаёт
DTPicker3.Visible = False-вот тут. Когда её коминтирую выдаёт
TextBox16.Visible = False
Label30.Visible = False
ComboBox4.Visible = True
ComboBox4.Left = 108
ComboBox4.Top = 66
ComboBox4.Value = "Устав"
TextBox12.Left = 108
TextBox12.Width = 330
TextBox12.Top = 96
TextBox12.Visible = False
TextBox11.Top = 36
DTPicker3.Top = 96-тут
TextBox15.EnterKeyBehavior = True
TextBox15.Text = "Юридический адрес:" & vbCrLf & _
vbCrLf & "Физический адрес:" & vbCrLf & vbCrLf & "ИНН" & vbCrLf & "КПП" & vbCrLf & "ОГРН" & vbCrLf & "К/с" & _
vbCrLf & vbCrLf & "Р/с"

TextBox11.TabIndex = 2
TextBox12.TabIndex = 4

Потом когда эти строки закоментированны выдаёт следующий скрипт.

Private Sub OptionButton5_Click()
OptionButton5.Value = True
OptionButton4.Value = False
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
Label17.Caption = "Фамилия И.О."
Label18.Caption = "Дата рождения"
Label19.Caption = "Серия паспорта"
Label20.Caption = "№ паспорта"
Label18.Font.Size = 11
Label19.Font.Size = 11
Label21.Caption = "Дата выдачи"
Label22.Caption = "Прописка"
DTPicker2.Visible = True-тут
DTPicker3.Visible = True-тут
TextBox16.Visible = True
Label30.Visible = True
ComboBox4.Visible = False
ComboBox4.Left = 6
ComboBox4.Top = 228
TextBox11.Top = 96
DTPicker3.Top = 36-тут
TextBox12.Left = 108
TextBox12.Width = 330
TextBox12.Visible = True
TextBox12.Top = 66
DTPicker2.Visible = True-тут
TextBox15.EnterKeyBehavior = False

TextBox11.TabIndex = 4
TextBox12.TabIndex = 2

End Sub

После коментирования всех этих строк программа запускаются но работает не корректно не прописывает некоторые даты в документе а с недавних пор начала выдавать ошибку 5 и не сохраняет документ.

Дело в том что на остальных компьютерах макрос работает нормально все его запускают через ярлык на сетевой папке. А все новые компьютеры которые я устанавливал не хотели хавать этот макрос тоже выдавали ошибку 424.

Подскажите пожалусто что делать что за ерунда я уже не знаю что это может быть.

Автор: Барэль Вторник, 03 Июня 2008, 17:29

У тебя Windows русская или английская локализованная с помощью MUI? Windows установлена с помощью автоустановки или по классике? Офис русский или английский? Везде стоит одинаковая версия офиса?

Автор: Greiv Вторник, 03 Июня 2008, 17:35

Винда ставилась там де компы покупали походу автоматом на все компы одинаково, винда русская, офис корпоративный с одного диска ставили всем тоже русский самое что странное что ошибка возникает только на компах которые поступают новые на остальных тот тип который макрос писал видимо что то локально сделал но я не могу понять что потому что уже всё препробовал. Что делать?

Автор: Барэль Вторник, 03 Июня 2008, 17:52

Давай кое-что проверим. В Excel в ячейку В1 вставь
=СЕГОДНЯ()

а в другую какую-нибудь

Автор: Greiv Среда, 04 Июня 2008, 8:11

Выдал следующее:
На моём компе на котором всё работает он выдал вот такое число "0604-" что это я не знаю, на том на котором не работает тоже самое.
Что дальше делать?

Автор: Greiv Вторник, 24 Июня 2008, 17:24

Кому инетерестно проблему удалось решить с помощью регистрации файлика под названием MSCOMCT2 его можно скачать из интернета.

В командной строке пишим regsvr32 и путь к файлу.

Автор: eka-ka Пятница, 10 Ноября 2017, 15:29

Кому инетерестно проблему удалось решить с помощью регистрации файлика под названием MSCOMCT2 его можно скачать из интернета.

В командной строке пишим regsvr32 и путь к файлу.