Построчное чтение Word

@rioba · Регистрация: 16.04.2012

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

Как прочитать построчно в Word ?
Вот что смог накидать но уходит в цикл либо ошибка

Visual Basic

Dim r As Range 
  Set r = ActiveDocument.Range 
    Set rd = ActiveDocument.Range 
  With r.Find 
    .ClearFormatting 
    .Text = "Список:" 
    .Forward = True 
    .Wrap = wdFindStop 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    If .Execute Then 
Do While r.End 
 
      Set r = r.Paragraphs(1).Next.Range 
      MsgBox r.Text 
Loop 
    Else 
      MsgBox "не найдено" 
      Exit Sub 
    End If 
  End With

shanemac51 · 24.12.2017, 19:46

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

Как прочитать построчно в Word ?

не поняла вопроса .... может пример выложите
строка и абзац все же разные понятия

@rioba · 24.12.2017, 19:48 **[ТС]**

shanemac51, допустим в word имеется список:
123
456
789

Как мне построчно посчитать ?
что бы каждый msgbox был "123" а потом со значением "456" и последний "789"

~~Остап Бонд~~ · 24.12.2017, 20:01

rioba, а кроме этих строк (в данном случае трех) в документе есть ещё что-нибудь?

Добавлено через 1 минуту
Файл-пример приложите, чтобы вас понять можно было.

@rioba · 24.12.2017, 20:02 **[ТС]**

Остап Бонд,
нет, после 789 кончается документ

@rioba · 24.12.2017, 20:04 **[ТС]**

test.docx

~~Остап Бонд~~ · 24.12.2017, 20:06

Оно?

Visual Basic

Sub main()
Dim a() As String
a = Split(ActiveDocument.Range.Text, vbCr)
Dim i As Long
For i = 0 To UBound(a) - 1
  MsgBox a(i)
Next
End Sub

@rioba · 24.12.2017, 20:12 **[ТС]**

Остап Бонд, Спасибо большое!
А как сделать что бы отображал после слов "Список:" ?
Так как в документе могут быть изменения и строки могут измениться

~~Остап Бонд~~ · 24.12.2017, 20:20

Visual Basic

Dim a() As String
a = Split(Split(ActiveDocument.Range.Text, "Список:")(1), vbCr)
Dim i As Long
For i = 1 To UBound(a) - 2
  MsgBox a(i)
Next

@rioba · 25.12.2017, 17:57 **[ТС]**

Остап Бонд, Спасибо
Но появилась такая проблема бывает что значения которые читает макрос заменяет значения на 131313131313 или
прибавляет 100, почему ??

~~Остап Бонд~~ · 25.12.2017, 18:22

rioba, пример приложите.

@rioba · 26.12.2017, 17:33 **[ТС]**

Остап Бонд, все работает, моя ошибка)

~~Остап Бонд~~ Заблокирован
	25.12.2017, 18:22	11
	rioba, пример приложите. 0

shanemac51 Модератор 12059 / 4921 / 789 Регистрация: 07.08.2010 Сообщений: 14,399 Записей в блоге: 4
	24.12.2017, 19:46	2
	Сообщение от rioba Как прочитать построчно в Word ? не поняла вопроса .... может пример выложите строка и абзац все же разные понятия 0

@rioba 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 34
	24.12.2017, 19:48 [ТС]	3
	shanemac51, допустим в word имеется список: 123 456 789 Как мне построчно посчитать ? что бы каждый msgbox был "123" а потом со значением "456" и последний "789" 0

~~Остап Бонд~~ Заблокирован
	24.12.2017, 20:01	4
	rioba, а кроме этих строк (в данном случае трех) в документе есть ещё что-нибудь? Добавлено через 1 минуту Файл-пример приложите, чтобы вас понять можно было. 0

@rioba 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 34
	24.12.2017, 20:02 [ТС]	5
	Остап Бонд, нет, после 789 кончается документ 0

@rioba 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 34
	24.12.2017, 20:04 [ТС]	6
	test.docx 0

@rioba 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 34
	24.12.2017, 20:12 [ТС]	8
	Остап Бонд, Спасибо большое! А как сделать что бы отображал после слов "Список:" ? Так как в документе могут быть изменения и строки могут измениться 0

@rioba 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 34
	25.12.2017, 17:57 [ТС]	10
	Остап Бонд, Спасибо Но появилась такая проблема бывает что значения которые читает макрос заменяет значения на 131313131313 или прибавляет 100, почему ?? 0

@rioba 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 34
	26.12.2017, 17:33 [ТС]	12
	Остап Бонд, все работает, моя ошибка) 0

Построчное чтение Word

Решение