Количество строк в документе Word

Программирование на Visual Basic for Applications
Железяка
Начинающий
Начинающий
 
Сообщения: 4
Зарегистрирован: 06.12.2005 (Вт) 10:40

Количество строк в документе Word

Сообщение Железяка » 14.12.2005 (Ср) 19:40

Здравствуйте все.
Кто может подсказать как определить количество строк в Вордовском документе и соответственно обратиться к какой-либо n-ой строке?
Весь текст у меня получилось получить через ActiveDocument.Content. Осталось теперь посчитать сколько там строк =) Если конечно такое можно сделать.
Заранее спасибо.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 15.12.2005 (Чт) 8:33

Document.ComputeStatistics(wdStatisticLines)

Document.GoTo wdGotoLine, wdGoToAbsolute, N
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

golodov
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 22.06.2016 (Ср) 9:20

Re: Количество строк в документе Word

Сообщение golodov » 22.06.2016 (Ср) 9:25

GSerg писал(а):Document.ComputeStatistics(wdStatisticLines)



Document.GoTo wdGotoLine, wdGoToAbsolute, N

Подскажите, как сделать тоже самое, только через Com соединение? Пишет что wdStatisticLines и wdstatistic.wdStatisticLines не заданы

pronto
Постоялец
Постоялец
 
Сообщения: 580
Зарегистрирован: 04.12.2005 (Вс) 6:20
Откуда: Владивосток

Re: Количество строк в документе Word

Сообщение pronto » 23.06.2016 (Чт) 13:42

В меню Project > References должен быть выбран «Microsoft Word [11 | 12 | 13 и тд] Object Library»
Ну и, конечно же, должны быть созданы соответствующие объекты
Код: Выделить всё
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Add
O, sancta simplicitas!


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 5

    TopList