Alex1357
04-28-2021, 05:05 PM
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
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