Релиб / Программирование / VBA / Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд? / Latest Posts

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Dymytry — Mon, 25 Jun 2007 15:33:02 GMT

С word-ом порядок.

Макросы я запускаю через другой язык а не напрямую, Эксельные пока не пашут. А может кто-нибудь знает, есть ли такие макросы или что-то для подсчета числа символов в PowerPoint ?

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

rank1 — Mon, 25 Jun 2007 11:25:57 GMT

Знаю только про такую шнягу:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q224351

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Pavel55 — Tue, 19 Jun 2007 14:58:49 GMT

Я точно не знаю, но мне кажется, что нет. Открыть всё-таки придётся, но я думаю не обязательно будет отображать его, т.е. Visible = False, чтобы никто ничего не видел.

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Dymytry — Mon, 18 Jun 2007 16:14:35 GMT

Пасибо!

Но вот какой косяк: мне нужно сделать это не открывая документа word. Это возможно?

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Pavel55 — Fri, 15 Jun 2007 16:07:41 GMT

Посмотрите эти темы

http://forum.developing.ru/showthread.php?t=7784&highlight=VPageBreaks

http://forum.developing.ru/showthread.php?t=8424&highlight=VPageBreaks

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Dymytry — Fri, 15 Jun 2007 11:12:46 GMT

Спасибо!

А в Excel так же?

RE: Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Pavel55 — Wed, 13 Jun 2007 17:16:43 GMT

Может это поможет? Правда вы не указали в какой программе работаете Word, Excel или ещё какая. Вот код для Word

[code]'статистика по документу Word
Sub Макрос1()
Dim i&
i = ActiveDocument.ComputeStatistics(wdStatisticCharacters)
MsgBox "Количество символов без пробелов: " & i
i = ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces)
MsgBox "Количество символов с пробелами: " & i
i = ActiveDocument.ComputeStatistics(wdStatisticLines)
MsgBox "Количество строк в документе: " & i
i = ActiveDocument.ComputeStatistics(wdStatisticPages)
MsgBox "Количество страниц в документе: " & i
i = ActiveDocument.ComputeStatistics(wdStatisticParagraphs)
MsgBox "Количество параграфов: " & i
i = ActiveDocument.ComputeStatistics(wdStatisticWords)
MsgBox "Количество слов в документе: " & i
End Sub[/code]

Подскажите, пожалуйста, как рассчитать объем документа - число строк, страниц итд?

Dymytry — Wed, 13 Jun 2007 10:42:25 GMT

subj.