1

Тема: Постановка символа перед каждым 7 абзацом

День добрый господа. Нужен помощь с макросом на автоматическую постановку символа
Имеется текст очень большой (тест). Который имеет содержание:

Вопрос
asd
dfg
ghj
hjk
kl;

Нужен макрос чтобы перед каждым абзацом вопроса ставил символ (например $)

2

Re: Постановка символа перед каждым 7 абзацом

Вопрос
asd
dfg
ghj
hjk
kl;

Вопрос
asd
dfg
ghj
hjk
kl;

Вопрос
asd
dfg
ghj
hjk
kl;

3

Re: Постановка символа перед каждым 7 абзацом

$Вопрос
asd
dfg
ghj
hjk
kl;

$Вопрос
asd
dfg
ghj
hjk
kl;

$Вопрос
asd
dfg
ghj
hjk
kl;

4

Re: Постановка символа перед каждым 7 абзацом

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

5

Re: Постановка символа перед каждым 7 абзацом

Вот текст макроса.

ааахх друг.. это божественно. вы прям сохранили мне пару дней работы. Спасибо огромное