Нужно разобраться с абзацами в Word (VBA)

@sysrepos · Регистрация: 08.08.2013

Author24 — интернет-сервис помощи студентам

Есть документ word с таким содержанием (файл во вложении):

Visual Basic

1 2	Слово1 слово2 слово3 Слово4 слово5

Хочу вывести в Debug.Print все абзацы. Использую такой код:

Visual Basic

Public Sub q1()
 
    Dim a As Paragraph
    
    Debug.Print "Всего абзацев"; ThisDocument.Paragraphs.Count
     
    Debug.Print "---перечисление всех абзацев---"
    For Each a In ThisDocument.Paragraphs
        Debug.Print a.Range.Text
    Next
    Debug.Print "---перечисление всех абзацев---"
     
End Sub

Свойство ThisDocument.Paragraphs.Count (количество абзацев) показывает, что абзацев 2.

Но в дебаге выводиться 4 строки
---перечисление всех абзацев---
слово1 слово2 слово3

слово4 слово5

---перечисление всех абзацев---

Предполагаю, что пустые строки это символы перевода строки. Но тогда логично было бы, чтобы свойство [B]ThisDocument.Paragraphs.Count было равно 4.

Вообщем вопрос: Как в таком случае нужно правильно написать код, чтобы выводить только непустые строки? Нужно писать отдельную проверку для каждого значения?

@Казанский · 14.01.2016, 17:26

sysrepos, Debug.Print добавляет перевод строки (иначе бы Вы получили в 1 строке
--перечисление всех абзацев---слово1 слово2 слово3
). Текст абзаца включает символ перевода строки. Так что перевод строки после "строка3" - от текста абзаца, а второй подряд перевод строки - от Debug.Print.

PS файл не открывается, советую использовать более употребимые форматы (zip, rar).

shanemac51 · 14.01.2016, 17:40

если лень воевать с возвратом строки пишу так

Visual Basic

Public Sub q1()
 
    Dim a As Paragraph
    
    Debug.Print "Всего абзацев"; ThisDocument.Paragraphs.Count
     
    Debug.Print "---перечисление всех абзацев---"
    For Each a In ThisDocument.Paragraphs
        Debug.Print a.Range.Text;
    Next
Debug.Print
    Debug.Print "---перечисление всех абзацев---"
     
End Sub

@sysrepos · 14.01.2016, 18:03 **[ТС]**

понятно, спасибо.
использую тот, который стоит на работе (7z), поставил бы другой, но прав админа нет.

Добавлено через 13 минут

Сообщение от shanemac51

если лень воевать с возвратом строки пишу так

вот это настоящая магия )
только после 20 минут просмотра кода понял в чем разница

@Казанский · 14.01.2016, 19:54

sysrepos, 7Zip вполне умеет сохранять в zip

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	14.01.2016, 17:26	2
	Сообщение было отмечено sysrepos как решение Решение sysrepos, Debug.Print добавляет перевод строки (иначе бы Вы получили в 1 строке --перечисление всех абзацев---слово1 слово2 слово3 ). Текст абзаца включает символ перевода строки. Так что перевод строки после "строка3" - от текста абзаца, а второй подряд перевод строки - от Debug.Print. PS файл не открывается, советую использовать более употребимые форматы (zip, rar). 1

@sysrepos 81 / 75 / 29 Регистрация: 08.08.2013 Сообщений: 431 Записей в блоге: 1
	14.01.2016, 18:03 [ТС]	4
	понятно, спасибо. использую тот, который стоит на работе (7z), поставил бы другой, но прав админа нет. Добавлено через 13 минут Сообщение от shanemac51 если лень воевать с возвратом строки пишу так вот это настоящая магия ) только после 20 минут просмотра кода понял в чем разница 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	14.01.2016, 19:54	5
	sysrepos, 7Zip вполне умеет сохранять в zip Миниатюры 1

Нужно разобраться с абзацами в Word (VBA)

Решение