Loop Through a folder, and clear all word documents formatting from Excel.

[umxir]

Hello Fellows,

I want to Loop through a folder and remove all formatting of MS Word documents from Excel.

I am using below attached code, but it's not working. I am stuck with actual command execution.

Please help me in this regards

Thanks

Sub clrfmt()
Dim wdapp As New Word.Application
Dim myDoc As Word.Document
Dim myFolder As String, strFile As String

With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "Please select a folder"
    .Show
    .AllowMultiSelect = False
Tha            If .SelectedItems.Count = 0 Then 'If no folder is selected, abort
            MsgBox "You did not select a folder"
            Exit Sub
            End If
    myFolder = .SelectedItems(1) & "\" 'Assign selected folder to MyFolder
End With

Application.ScreenUpdating = False

strFile = Dir(myFolder & "\*.doc", vbNormal)

While myFile <> ""
        
    Set myDoc = wdapp.Documents.Open(Filename:=myFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
        
        With myDoc
            
            ActiveDocument.Select
            Selection.ClearFormatting
            
            
        End With
        
    myDoc.Close SaveChanges:=True
    strFile = Dir()
Wend

wdapp.Quit
Set myDoc = Nothing: Set wdapp = Nothing: Set myWkSht = Nothing
Application.ScreenUpdating = True
 
End Sub

 

[mintjulep]

            ActiveDocument.Select
            Selection.ClearFormatting

Formatting does not apply to a document.

It applies to Range objects.

And possibly Story objects, which are sort of predefined meta-ranges...

Also, using Select simply slows things down by mucking around with the GUI. You don't need to do that. Work with objects directly.

 

[umxir]

Thanks mintjulep for your reply,

I am sorry, I don't get what you are saying. (New to Codes)
Moreover, the code you are provided already exists in the code. It is really helpful if you can modify the code for me.

Thanks

 

[SkipVought]

Doing this from memory. I think that EntireStory descroes the Range of the whole document, but I could be wrong. And I’m not sure there’s ClearFormatting...

While myFile <> ""
        
    Set myDoc = wdapp.Documents.Open(Filename:=myFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
        
    myDoc.EntireStory.ClearFormatting
        
    myDoc.Close SaveChanges:=True
    strFile = Dir()
Wend

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[macropod]

There is no 'EntireStory' property or 'ClearFormatting' method for it in Word. There is a 'WholeStory' property, but even that has no 'ClearFormatting' method.

In any event, there is no way to remove all formatting from a Word document unless you save it as a plain text file - in which case it's no longer a Word document. The most you can do in Word is to apply a single Style to all the content and remove any direct formatting. Hence:

While myFile <> ""
  Set myDoc = wdapp.Documents.Open(FileName:=myFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
  With myDoc
    .Range.Style = wdStyleNormal
    .Range.ParagraphFormat.Reset
    .Range.Font.Reset
    .Close SaveChanges:=True
  End With
  strFile = Dir()
Wend

Cheers
Paul Edstein
[MS MVP - Word]

 

[strongm]

>There is a 'WholeStory' property
Whole Story is a method, not a property

So to strip formatting in a document you can do

[blue]Public Sub StripFormatting()
    Dim oldselection As Range
    
    Application.ScreenUpdating = False
    Set oldselection = Selection.Range
    Selection.WholeStory
    Selection.ClearFormatting
    oldselection.Select
    Application.ScreenUpdating = True
End Sub[/blue]

 

[umxir]

Thanks all the experts, Let me try these methods. Will report back soon.