Не возвращает данные с функции

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

здравствуйте, в макросе Sub хххххх() посылаю в функцию, вот эта строка:

Visual Basic

1	Проверяемое_слово = "в " + справаSplit(J): Проверяем_орфографию_грамматику_слова (Проверяемое_слово)

функция

Visual Basic

1	Public Function Проверяем_орфографию_грамматику_слова(Проверяемое_слово) As String

считает, но не возвращает нужное, в чём проблема? спасибо

@Catstail · 18.12.2021, 14:21

Ципихович Эндрю, Приведи весь код функции

@Ципихович Эндрю · 18.12.2021, 14:51 **[ТС]**

Catstail,

Visual Basic

Public Function Проверяем_орфографию_грамматику_слова(Проверяемое_слово) As String
 
'проверяем грамматику, точку и пробел надо ставить у проверяемого слова
    If Application.CheckGrammar(Проверяемое_слово & ". ") = True Then
        MsgBox "Проверяемое слово: " & Проверяемое_слово & " без ошибок!"
    Else
        'MsgBox$ "Проверяемое слово: " & Проверяемое_слово & " подчёркнуто зелёной волнистой линией"
        'применимо для Word 2007, бывает версия Word 2007 "12.0.4518"
        If Left$(Application.Build, 2) = "12" Then Проверка_грамматики (Проверяемое_слово)
    End If
 
End Function
 
Function Проверка_грамматики(Проверяемое_слово)
 
    Dim Doc As Document
    Set Doc = Documents.Add(, True, , False)
    Doc.Content.Text = Проверяемое_слово
    Do Until Doc.GrammarChecked
        DoEvents
    Loop
    For i = 1 To Doc.Content.Words.Count
        Doc.Content.Words(i).Select
        ПервыйЭлементКонтекстногоМеню = Doc.CommandBars("Grammar").Controls(1).Caption
        If ПервыйЭлементКонтекстногоМеню <> "&Грамматика..." Then
            Exit For
        End If
    Next
    Doc.Close False
 
    If Right$(ПервыйЭлементКонтекстногоМеню, 46) = " не связан с существительным или местоимением." Then MsgBox ПервыйЭлементКонтекстногоМеню
 
End Function

кстати Вы и в питоне разбираетесь не в курсе как там это можно сделать?
смысл, чтобы "у перекрёсток" выдало как ошибку "Предлог "ххх" не связан с существительным или местоимением."

@Punkt5 · 18.12.2021, 15:02

Ципихович Эндрю, Для того, чтобы функция возвращала значение, надо по ходу функции присвоить это значние названию файнкции. Например:

Visual Basic

Function Проверка_грамматики(Проверяемое_слово)
  Проверка_грамматики = "Jopa"
  If Проверяемое_слово = "Jopa" Then
    Проверка_грамматики = "Big Jopa"
  End If
End Function

I can · 18.12.2021, 16:28

Сообщение от Punkt5

"Big Jopa"

Шалун

@Ципихович Эндрю · 19.12.2021, 14:51 **[ТС]**

я сделал как сказали, поставил проверку в макросе после того как должна вернуться переменная:

Visual Basic

1	MsgBox$ Проверяем_орфографию_грамматику_слова

получаю мессагу Argument not optional в чём я ошибаюсь? спасибо

@elixi · 19.12.2021, 15:04

Сообщение от Ципихович Эндрю

Argument not optional

Argument not optional = аргумент не необязательный = аргумент обязательный

Visual Basic

1	MsgBox$ Проверяем_орфографию_грамматику_слова(ВашАргумент)

@Punkt5 · 19.12.2021, 15:28

Сообщение от Ципихович Эндрю

Argument not optional

Означает, что аргумент в вызываемой функции/подпрограмме описан без использования слова Optional и на этом основании является обязательным при вызове. Если же вы пытаетесь вызвать эту функцию/подпрограмму без указания аргумента, и слово Optional не было использовано при описании аргумета, интерпретатор предупреждает вас о том, что ваше описание функции и ваш вызов её вошли в противоречие, которое вам следует разрешить либо с той, либо с обратной сороны.

@Ципихович Эндрю · 19.12.2021, 18:53 **[ТС]**

Punkt5, спасибо
не подскажет ли кто строки 19-28 в сообщении 3 что значат

Visual Basic

    Do Until Doc.GrammarChecked
        DoEvents
    Loop
    For i = 1 To Doc.Content.Words.Count
        Doc.Content.Words(i).Select
        ПервыйЭлементКонтекстногоМеню = Doc.CommandBars("Grammar").Controls(1).Caption
        If ПервыйЭлементКонтекстногоМеню <> "&Грамматика..." Then
            Exit For
        End If
    Next

?? спасибо

@Catstail Модератор 37147 / 20592 / 4254 Регистрация: 12.02.2012 Сообщений: 33,953 Записей в блоге: 14
	18.12.2021, 14:21	2
	Ципихович Эндрю, Приведи весь код функции 0

I can help 4368 / 3999 / 803 Регистрация: 13.04.2015 Сообщений: 8,776
	18.12.2021, 16:28	5
	Сообщение от Punkt5 "Big Jopa" Шалун 0

@Punkt5 малоболт 1314 / 498 / 211 Регистрация: 30.01.2020 Сообщений: 1,218
	19.12.2021, 15:28	8
	Сообщение от Ципихович Эндрю Argument not optional Означает, что аргумент в вызываемой функции/подпрограмме описан без использования слова Optional и на этом основании является обязательным при вызове. Если же вы пытаетесь вызвать эту функцию/подпрограмму без указания аргумента, и слово Optional не было использовано при описании аргумета, интерпретатор предупреждает вас о том, что ваше описание функции и ваш вызов её вошли в противоречие, которое вам следует разрешить либо с той, либо с обратной сороны. 1

	19.12.2021, 18:53

Не возвращает данные с функции

Решение