Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.69/13: Рейтинг темы: голосов - 13, средняя оценка - 4.69
0 / 0 / 0
Регистрация: 19.12.2014
Сообщений: 14
1

Ошибка "Compile error: Object required" при запуске кода

05.06.2018, 18:56. Просмотров 2651. Ответов 4
Метки vba (Все метки)

При попытке запустить код, выдает ошибку: Object required.
Жалуется на
Visual Basic
1
Set r = WordDoc.Range
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub primer()
Dim Word As Object, WordDoc  As Object
Dim r As Boolean, f As Boolean, fO As Long
Set Word = CreateObject("Word.Application")
Set WordDoc = Word.Documents.Open(Filename:=Application.ThisWorkbook.path & "\Анализ данных.docx")
 
'''Наименование'''
Set r = WordDoc.Range
Do While UnifiedSearch(r, "дисциплина *относится")
    If f Then
        If r.Start = fO Then
            Exit Do
        End If
    Else
        fO = r.Start
        f = True
    End If
    WordDoc.Range(r.Start + 4, r.End - 6).Copy
    Range("C4").Select
    ActiveSheet.Paste
    Set r = WordDoc.Range(r.End, r.End)
Loop
 
'''Цель'''
Set r = WordDoc.Range
Do While UnifiedSearch(r, "дисциплины – * сформировать")
     If f Then
        If r.Start = fO Then
            Exit Do
        End If
    Else
        fO = r.Start
        f = True
    End If
    WordDoc.Range(r.Start + 8, r.End - 4).Copy
    Range("C6").Select
    ActiveSheet.Paste
    Set r = WordDoc.Range(r.End, r.End)
Loop
 
WordDoc.Close
Word.Quit
 
End Sub
 
Private Function UnifiedSearch(r As Range, s As String) As Boolean
 
     With r.Find
        .ClearFormatting
        .Text = s
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        UnifiedSearch = .Execute
    End With
 
End Function
Как исправить? Заранее спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2018, 18:56
Ответы с готовыми решениями:

Ошибка "run-time error '424' object required"
в следующем коде в строке 4 (открытие файла с расширением doc) выскакивает ошибка "run-time error...

При запуске макроса выпадает сообщение "Compile error in hidden module: Module1".
При запуске выпадает сообщение "Compile error in hidden module: Module1". Что делать, догадываюст...

В строке: "If ComboBox1.ListIndex = 0 Then" ошибка: object required
Есть такая проблемка: Создала я при помощи макроса свою панель инструментов, на одном из листов у...

Ошибка 424 "Object required"
В чем причина?

4
Заблокирован
05.06.2018, 19:56 2
Лучший ответ Сообщение было отмечено snipe как решение

Решение

Цитата Сообщение от AlexFlash27 Посмотреть сообщение
Dim r As Boolean
Visual Basic
1
Dim r As OBJECT'!
0
0 / 0 / 0
Регистрация: 19.12.2014
Сообщений: 14
05.06.2018, 20:04  [ТС] 3
Если делать:
Visual Basic
1
Dim r As OBJECT'!
То новая ошибка: Run-time error '13' Type mismatch
Visual Basic
1
Do While UnifiedSearch(r, "дисциплина *относится")
0
3214 / 1164 / 293
Регистрация: 07.08.2013
Сообщений: 2,933
05.06.2018, 20:07 4
Лучший ответ Сообщение было отмечено AlexFlash27 как решение

Решение

а вот тут
Visual Basic
1
Private Function UnifiedSearch(r As Range, s As String) As Boolean
1
0 / 0 / 0
Регистрация: 19.12.2014
Сообщений: 14
05.06.2018, 20:26  [ТС] 5
Спасибо, теперь работает!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2018, 20:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Исправить ошибку "Object required" при использовании метода selectSingleNode
Ребят такая проблема, при присвоении переменной Cost значения из xml фаилаб выдает ошибку :...

Ошибка в программе "Compile error: Wrong number of arguments or invalid property assignment"
Ошибка: Compile error: Wrong number of arguments or invalid property assignment Sub answ() s =...

Ошибка при запуске программы "run time error 13 type mismatch"
сама задача: Определить количество элементов массива, принадлежащих промежутку отa до b (значения...

Исправить ошибку "Object required" (Макрос по сбору ячеек)
Добрый День! Пытаюсь допилить макрос по сбору ячеек, и получаю runtime error 424 object requared и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.