Удалить весь текст/данные из Word документа VBA макросом

Формулировка задачи:

Добрый день уважаемые господа. Столкнулся с некой задачей удаления данных из ms office word документа и вставки своего текста/данных в документ посредством макроса VBA. В связи с этим хотел бы просить помощи у вас. Есть некоторое решение :

Sub CleanData()
Dim curCharIndex As Integer
Dim charCount As Integer
curCharIndex = 1
charCount = ActiveDocument.Characters.Count
 
While curCharIndex <= charCount
    ActiveDocument.Characters(curCharIndex).Select
    If Selection.Type = wdSelectionNormal Then
        Selection.Delete
        charCount = charCount - 1
    Else
        'Skip it
        curCharIndex = curCharIndex + 1
    End If
Wend
End Sub

Данное решение позволяет поочередно удалять текст из документа, однако есть большие недостатки в этом макросе, а именно : когда страниц в документе много(более 7 страниц) текст удалить не получается из переполнения(overflow) да и нагрузка на ресурсы компьютера поочередном удалении символов из документа сами понимаете большая. Вот хотелось бы как то эмулировать нажатие клавиш Ctrl+A(для выделения всего текста/данных) и Del для очистки этих данных из документа. Может есть еще какие то варианты ? За сим спасибо. ждем ваших ответов. с уважением, egyp7.

Решение задачи: «Удалить весь текст/данные из Word документа VBA макросом»

textual
                            Листинг программы 
                        

                            Sub zclear_doc()
'
Word.ActiveDocument.Range.Select
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub
                        