|
|
|
Junior Member
 
участник
Last Login: 17.09.2008 17:30
Сообщ.: 10,
Visits: 13
|
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
Может это поможет? Правда вы не указали в какой программе работаете Word, Excel или ещё какая. Вот код для Word'статистика по документу 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
|
|
|
|
|
Junior Member
участник
Last Login: 17.09.2008 17:30
Сообщ.: 10,
Visits: 13
|
|
| Спасибо! А в Excel так же?
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
|
|
|
|
Junior Member
участник
Last Login: 17.09.2008 17:30
Сообщ.: 10,
Visits: 13
|
|
| Пасибо! Но вот какой косяк: мне нужно сделать это не открывая документа word. Это возможно?
|
|
|
|
|
Supreme Being
участник
Last Login: 14.12.2007 16:53
Сообщ.: 100,
Visits: 1 707
|
|
| Я точно не знаю, но мне кажется, что нет. Открыть всё-таки придётся, но я думаю не обязательно будет отображать его, т.е. Visible = False, чтобы никто ничего не видел.
|
|
|
|
|
Supreme Being
участник
Last Login: 19.08.2008 15:27
Сообщ.: 112,
Visits: 681
|
|
|
|
|
|
Junior Member
участник
Last Login: 17.09.2008 17:30
Сообщ.: 10,
Visits: 13
|
|
| С word-ом порядок. Макросы я запускаю через другой язык а не напрямую, Эксельные пока не пашут. А может кто-нибудь знает, есть ли такие макросы или что-то для подсчета числа символов в PowerPoint ?
|
|
|
|