VBA Code for clean all data from ms word document

egyp7 · #1 05-14-2014, 08:46 PM

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 :

Code:

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 · #2 05-15-2014, 04:49 PM

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

Code:

Sub CleanData()
ActiveDocument.Content.Delete
End Sub

egyp7 · #3 05-16-2014, 04:41 AM

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

Code:

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 · #4 05-16-2014, 12:22 PM

This does the exact same thing.

Code:

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 · #5 05-16-2014, 03:59 PM

Or even one:

Code:

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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA Code to take data from a table in word document and place it in a summary table	VBLearner	Word VBA	1	03-09-2014 08:42 PM
importing Access data to a Word document	WayneCusack	Word VBA	2	12-24-2012 12:26 AM
Help Plz! Link Excel data to Word document	cory_0101	Office	1	09-27-2012 07:15 PM
How do you view the source code in a Word 10 web document?	provlima	Word	2	05-25-2012 01:12 PM
Error Code 5453 Word has finished searching the document	Charles Kenyon	Word VBA	2	05-17-2012 11:18 AM