VBA Code for clean all data from ms word document

[egyp7]

Hello all members. I need some help/or ready solution for my problem.
There is ms word document with somethin' data. I need clean all data from document and paste my text or data in that doc with vba macros.
I alredy have some solution but workn't with big document(50-60 pages)
and not delete any data exclude text :

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

That's first problem in that solution, second problem is hard load for CPU/RAM.
Maybe there is any way emulate marking all text(Ctrl+A) and delete that text(by DEL button) from word document not so dirty like my solution.
I'm sorry for my poor english. Thanx, with best regards, egyp7

[macropod]

Why are you bothering with this? Surely you could just create a new, empty document?! Still, if that's what you want, try:

Sub CleanData()
ActiveDocument.Content.Delete
End Sub

[egyp7]

thank for answer macropod, i already find way clean document data and paste my content. my solution look like :

Sub doc_clean_paste()

Word.ActiveDocument.Range.Select
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    
   Dim doc As Word.Document
   Set doc = ThisDocument 
   
   doc.Range.InsertParagraphAfter
   doc.Range.InsertAfter "Text Added at " & Time
End Sub

[fumei]

This does the exact same thing.

Sub SameThing()
With ActiveDocument
   .Content.Delete
   .Range.InsertAfter vbCrLf & "Text Added at " & Time
End With
End Sub

You do not need to select anything. You certainly do not need to select the same thing twice.

These two instruction do the same thing.
Word.ActiveDocument.Range.Select
Selection.WholeStory

You take seven lines to do what can be done in two.

[macropod]

Or even one:

Sub SameThing()
ActiveDocument.Range.Text = vbCrLf & "Text Added at " & Time
End Sub

Egyp7: Perhaps you should have another go at explaining what you're trying to achieve, instead of trying to tell us how you want to do it.