Collection Words

[shyko]

Как получить коллекцию Words, в которой отсутствуют знаки пунктуации и разделители?

[GSerg]

Так она такая и есть, в ней не бывает этих всех никогда.

[shyko]

Не знаю, может нужно какие-то свойства дополнительно установить, т.к. даже в хелпе:

Words - returns a Words collection that represents all the words in a range, selection, or document. Read-only.


Note Punctuation and paragraph marks in a document are included in the Words collection.

[GSerg]

Вот всегда так - в разных частях мануала повествуются разные вещи

Поскольку words только для чтения, и поскольку ты не можешь её создать, то остаётся только любить её такой, какая она есть.
Если не хочецца, можно создать collection, в которую запихать каждый words.item, который не является пунктуацией...

[shyko]

В Word возможно получение количества актуальных слов (без знаков пунктуации и разделителей) через диалог (from VBA help):

Set temp = Dialogs(wdDialogToolsWordCount)
' Execute the dialog box in order to refresh its data.
temp.Execute
numWords = temp.Words

Значит, в принципе, можно получить с помощью Word коллекцию этих слов (или что-то похожее).

Не может быть, чтобы Word вел подсчет перебором:
if (Not ... .Words(i) Eqv ".") And (Not ... .Words(i) Eqv ",") And ...