Как сделать, чтобы макрос видел текст в документе, а не в самом макросе пришлось бы вводить

@Alex13889 · Регистрация: 05.06.2015

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

Как сделать, чтобы макрос видел текст в документе, а не в самом макросе пришлось бы вводить?
Т.е. чтобы я любой текст вводила в документе и он мне выполнял задание.
Вот макрос.

Visual Basic

Function kNum(ByVal txt As String) As Long
    Dim i As Long, w As String, m As String, k As Long
    txt = txt & " "
    For i = 1 To Len(txt)
        m = Mid$(txt, i, 1)
        If m Like "[0-9A-zА-яЁё]" Then
            w = w & m
        Else
            If IsNumeric(w) Then k = k + 1
            w = ""
        End If
    Next i
    kNum = k
End Function
 
Sub www()
    Dim txt As String
    txt = "Сколько получится если к 125 прибавить 569, затем вычесть 56, и все это умножить на 12? Должно получиться 7656."
    MsgBox "В тексте :" & vbLf & txt & vbLf & vbLf & "Содержится чисел - " & kNum(txt)
End Sub

@mihey1993 · 30.06.2015, 12:04

К примеру вы можете сделать так: txt = InputBox("Введите текст"). А так - уточните - в документе Word?

@Alex13889 · 30.06.2015, 12:09 **[ТС]**

mihey1993, да, в Word
InputBox -не вариант. Желательно, чтобы он в документе видел текст.

@mihey1993 · 30.06.2015, 12:21

Alex13889,

Visual Basic

1	txt = ActiveDocument.Content.Text 'Весь текст в документе

Visual Basic

1	txt = Selection 'Только выделенный текст в документе

@Alex13889 · 30.06.2015, 12:25 **[ТС]**

mihey1993, Оо! Спасибо огромное! Работает) Так легче и проще) Спасибо)

@mihey1993 323 / 49 / 28 Регистрация: 07.09.2014 Сообщений: 217
	30.06.2015, 12:04	2
	К примеру вы можете сделать так: txt = InputBox("Введите текст"). А так - уточните - в документе Word? 0

@Alex13889 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 28
	30.06.2015, 12:09 [ТС]	3
	mihey1993, да, в Word InputBox -не вариант. Желательно, чтобы он в документе видел текст. 0

@Alex13889 0 / 0 / 0 Регистрация: 05.06.2015 Сообщений: 28
	30.06.2015, 12:25 [ТС]	5
	mihey1993, Оо! Спасибо огромное! Работает) Так легче и проще) Спасибо) 0

Как сделать, чтобы макрос видел текст в документе, а не в самом макросе пришлось бы вводить

Решение