kenko_O пишет:...
Нужен макрос чтобы перед каждым абзацом вопроса ставил символ (например $)
...
Вот текст макроса. Он вставляет перед 1, 8, 15, 22 ... и т.д. абзацами символ $. Если впам нужно анализировать дополнительные критерии (напр., содержит ли предложение знак вопроса), то следует внести изменения в функцию ParagraphToInsertCharacter. Вызывать же на исполнение следует макрос InsertCharacterInParagraphs.
Sub InsertCharacterInParagraphs()
Dim ipara As Long
Dim tpara As String
Const char_to_insert As String = "$"
For ipara = 1 To ActiveDocument.Paragraphs.Count
If ParagraphToInsertCharacter(ipara, ActiveDocument.Paragraphs(ipara).Range.Text) Then
ActiveDocument.Paragraphs(ipara).Range.InsertBefore char_to_insert
End If
Next ipara
End Sub
Function ParagraphToInsertCharacter(npara As Long, paratext As String) As Boolean
Const paramod As Long = 7
ParagraphToInsertCharacter = False
If (npara Mod paramod) = 1 Then
ParagraphToInsertCharacter = True
End If
End Function