Замените все нелатинские символы их латинскими буквами az и количеством слов в VBA

Question

Я пытаюсь написать скрипт на VBA, который:

• заменит все символы É и другие подобные символы латинскими аналогами.

• Удалите все не буквенно-цифровые
  символы.

• Удалите повторяющиеся интервалы

• , затем слово подсчитает строку

Я решил, что могу разбить строку на "" и посчитать элементы, чтобы получить количество слов ... но я борюсь за остальную часть.Помощь высоко ценится.

Answer 1

В Word встроено количество слов для предложений, абзацев и всего документа:

 ActiveDocument.Words.Count

Что касается замены, вероятно, проще всего записать макрос, чтобы увидеть, как это работает.Вам придется заменить акцентированные символы по одному или использовать RegEx для замены всех символов A (Å, Ä, Â, Á, À) на A и т. Д..