Вставка перед текстом знака абзаца

@~~Busine2009~~ · 10.04.2010, 12:11. **Показов** 8694. **Ответов** 9

В документе есть жирный текст двух видов:

Без отступа слева.
И с отступом слева.

Нужно вставить Знак абзаца только перед текстом, не имеющим Отступ.
Как это сделать? Вот код, который я использую:

Visual Basic

Sub m_1()
'Вставка пустого знака абзаца во ВСЁМ документе
    With ActiveDocument.Range.Find
        .Text = "^p"
        .Font.Animation = wdAnimationNone
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    While .Execute
        .Parent.Select
        Selection.Paragraphs(1).Range.Select
        If Selection.Characters.Count > 1 Then
             If Selection.ParagraphFormat.FirstLineIndent = 0 Or Selection.Font.Bold = True Then
                Selection.InsertParagraphBefore
            End If
        End If
    Wend
    End With
End Sub

@ironegg · 11.04.2010, 04:09

не вижу разницы между БЫЛО и НАДО. поясни

@~~Busine2009~~ · 11.04.2010, 08:03 **[ТС]**

ironegg,

@~~Busine2009~~ · 11.04.2010, 10:10 **[ТС]**

Кому интересно, вот так придумал:

Visual Basic

Sub m_1()
'Вставка пустого знака абзаца во ВСЁМ документе
    With ActiveDocument.Range.Find
        .Text = "^p"
        .Font.Animation = wdAnimationNone
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        While .Execute
            .Parent.Select
            Selection.Paragraphs(1).Range.Select
            If Selection.Characters.Count > 1 Then
                 If Selection.ParagraphFormat.FirstLineIndent = 0 Or Selection.Font.Bold = True And _
                   Selection.ParagraphFormat.LeftIndent + Selection.ParagraphFormat.FirstLineIndent = 0 Then
                    Selection.InsertParagraphBefore
                End If
            End If
        Wend
    End With
End Sub

Если есть какие пожелания, то пишите.

@ironegg · 12.04.2010, 04:10

не проверял, но поидее тоже самое, только немного изящнее(и быстрее)

Visual Basic

Sub m_1()
    'Âñòàâêà ïóñòîãî çíàêà àáçàöà âî ÂÑ¨Ì äîêóìåíòå
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        With p.Range
            If .Characters.Count > 1 Then
                If .ParagraphFormat.FirstLineIndent = 0 Or .Font.Bold = True And _
                    .ParagraphFormat.LeftIndent + .ParagraphFormat.FirstLineIndent = 0 Then
                    .InsertParagraphBefore
                End If
            End If
        End With
    Next p
End Sub

и, кстати, обрати внимание на значение свойства Bold - wdUndefined (я так понял, есть и жирный и нежирный)

@~~Busine2009~~ · 12.04.2010, 07:50 **[ТС]**

ironegg,
я здесь представил часть кода, если обратишь, там есть слово Анимация. Это придумано для того, чтобы работать только с текстом, а не с Таблицами. Я помечаю в Таблицах текст Анимацией, и он не затрагивается. Если в данном случае использовать for each, то абзацы в таблицах будут тоже просматриваться, поэтому я использую find.

@ironegg · 12.04.2010, 09:29

можно и проверочку на анимацию сделать, например в 6 строке

Visual Basic

1	If .Characters.Count > 1 And .Font.Animation = wdAnimationNone Then

фактически, метод Find делает то же самое. просто он универсальный еще и работает с использованием объекта Selection. слевовательно медленнее. ну и наглядности не хватает

@~~Busine2009~~ · 12.04.2010, 21:49 **[ТС]**

ironegg,
я могу ошибаться, т.к. не разбираюсь в программировании, но метод find работает быстрее, чем просмотр всех элементов.
Пример, в тексте есть слово вырезано. Оно встречается 1 раз в документе из 500 страниц.
В твоём случае должны быть просмотрены несколько тысяч слов, а в моём просто нужно найти это слово.

@ironegg · 13.04.2010, 07:33

ты прав. если речь идет о поиске редко встречающихся слов, метод Find работает весьма быстро. вероятно он использует индекс для ускорения поиска. в твоем же случае поиск вообще не нужен. так как ты ищешь то, из чего состоит документ - параграфы(абзацы). не проще ли их просто перебрать?.
к тому же метод Find работает посредством объекта Selection (который является средством взаимодействия с пользователем, т.е в данном случае бесполезен; еще и медленнен, вероятно из-за того, что задействует оконые процедуры перерисовки). посмотри на строки 12 и 13

Visual Basic

1 2	.Parent.Select Selection.Paragraphs(1).Range.Select

здесь происходит получение предка найденного символа(вероятно, его предок - параграф), вызов метода выделения. далее, обращение к первому(и единственному в данном случае!) параграфу из коллекции параграфов в выделении, наконец мы добираемся до содержимого параграфа и (в который уже раз) выделяем его. после выполнения строки 13 вообще ничего не меняется.
я конечно, не видел твоего документа, но для моего *.doc из 85 страниц твой код выполняется 28сек, а мой 8 сек. поэтому я и решил предложить тебе другой код. а так, конечно, оба кода рабочие и 20 сек несущественно.

@~~Busine2009~~ · 13.04.2010, 20:59 **[ТС]**

ironegg,
приношу извинения за нецензурную брань, просто я напился как обычно.
Я прочитаю твой код и текст в выходные (я только тогда трезвый).
Но я хочу отметить, что я ищу не все абзацы, а только те, которые без Анимации.

@ironegg 1903 / 780 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	11.04.2010, 04:09	2
	не вижу разницы между БЫЛО и НАДО. поясни Миниатюры 0

@~~Busine2009~~ Заблокирован
	11.04.2010, 08:03 [ТС]	3
	ironegg, Миниатюры 0

@~~Busine2009~~ Заблокирован
	12.04.2010, 07:50 [ТС]	6
	ironegg, я здесь представил часть кода, если обратишь, там есть слово Анимация. Это придумано для того, чтобы работать только с текстом, а не с Таблицами. Я помечаю в Таблицах текст Анимацией, и он не затрагивается. Если в данном случае использовать for each, то абзацы в таблицах будут тоже просматриваться, поэтому я использую find. 0

@~~Busine2009~~ Заблокирован
	12.04.2010, 21:49 [ТС]	8
	ironegg, я могу ошибаться, т.к. не разбираюсь в программировании, но метод find работает быстрее, чем просмотр всех элементов. Пример, в тексте есть слово вырезано. Оно встречается 1 раз в документе из 500 страниц. В твоём случае должны быть просмотрены несколько тысяч слов, а в моём просто нужно найти это слово. 1

@~~Busine2009~~ Заблокирован
	13.04.2010, 20:59 [ТС]	10
	ironegg, приношу извинения за нецензурную брань, просто я напился как обычно. Я прочитаю твой код и текст в выходные (я только тогда трезвый). Но я хочу отметить, что я ищу не все абзацы, а только те, которые без Анимации. 0

Опции темы