What's wrong with that function ? I received a message that doc can not be defined

[Alex1357]

Function number_dialogue()

Dim font_type As String
Dim super_type As String
font_type = InputBox(prompt:="Ïîæàëóéñòà, ââåäèòå æåëàåìóþ ñòðîêó:", Title:="Ââîä ïîëüçîâàòåëåì ñòðîêè")
super_type = InputBox(prompt:="Ââåäèòå íîìåð àáçàöà â êîíåö, êîòîðîãî âû æåëàåòå ïåðåíåñòè ñòðîêó, ìàêñèìàëüíî âîçìîæíûé íîìåð ñåé÷àñ: " & ThisDocument.Paragraphs.Count & " :", Title:="Âûáîð íîìåðà àáçàöà")

Set doc = ThisDocument
Set rngRange = _
doc.Range(doc.Paragraphs(super_type).Start, _
doc.Paragraphs(super_type).End - 1)
rngRange.InsertAfter _
" This is now the last sentence in paragraph one."


End Function

[macropod]

doc.Range(doc.Paragraphs(super_type).Start
should be:
doc.Range(doc.Paragraphs(super_type).Range.Start


doc.Paragraphs(super_type).End
should be:
doc.Paragraphs(super_type).Range.End


In any event, you could greatly simplify that part of your code:
Set rngRange = doc.Range(doc.Paragraphs(super_type).Range
rngRange.End = rngRange.End -1