Может ли функция вернуть range?

[wolf05632]

Привет! Может ли функция вернуть фрагмент текста:

НАЧАЛЬНИК ФИРМЫ РиК
ПРОФЕССОР

______________ПУПКИН

Может, как нить через range такое возможно сделать?

[shanemac51]

два варианта

Sub w110414_2024()
'от начала до слова пупкин
j1 = 0
Dim pr As Paragraph
s2 = ""
For Each pr In Word.ActiveDocument.Paragraphs
S1 = pr.Range.Text
j1 = j1 + 1
s2 = s2 & S1
If LCase(S1) Like "*пупкин*" Then
Exit For
End If
Next pr
Word.Documents.Add
Selection.Range.Text = s2
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub w110414_2026()
'слово пупкин после слов начальник фирмы

j1 = 0
j21 = 0
j22 = 0
Dim pr As Paragraph
For Each pr In Word.ActiveDocument.Paragraphs
S1 = pr.Range.Text
j1 = j1 + 1
If LCase(S1) Like "*начальник*фирмы*" Then
j21 = j1
End If
If LCase(S1) Like "*пупкин*" And j21 > 0 Then
j22 = j1
Exit For
End If
Next pr
If j21 = 0 Or j22 = 0 Then
MsgBox "цитата не найдена"
Exit Sub
End If
Dim myrange As Range
pos = ActiveDocument.Paragraphs(j21).Range.Start
pos2 = ActiveDocument.Paragraphs(j22).Range.End
Set myrange = ActiveDocument.Range(Start:=pos, End:=pos2)
s2 = myrange.Text
Word.Documents.Add
Selection.Range.Text = s2
End Sub

[wolf05632]

наверное, не совсем правильно меня поняли....
есть форма, на форме комбобокс, в списке комбобокса три фамилии(один начальник и два заместителя). нужно написать функцию, которая возвращала бы

НАЧАЛЬНИК ФИРМЫ РиК
ПРОФЕССОР

______________ПУПКИН

если комбобокс.валуе = пупкин
или

ВрИО НАЧАЛЬНИКА ФИРМЫ РиК
ДОЦЕНТ
______________ЗАЛУПУПКИН

если комбобокс.валуе = залупупкин

аналогично со вторым замом

[wolf05632]

Блин, а нафига мне функция, если я это в процедуре могу сделать через иф-зен?
Сегодня попробую!!!