Microsoft Office Forums - View Single Post - [Solved] VBA Code for clean all data from ms word document

egyp7 · 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