Please try this code first to see if it meets your expectations
Sub RemoveStyleKeepFormatting_Is_there_a_VBA_macro_that_will_convert_a_word_document_to_hard_coded_formatting()
    Dim doc As Document, t As Range, s As Style
    Dim ur As UndoRecord
    Dim ft As Font
    Set ur = Word.Application.UndoRecord
    ur.StartCustomRecord "RemoveStyleKeepFormatting"
    Set doc = ActiveDocument
    Dim r As Range
    Set r = doc.StoryRanges(wdMainTextStory) 

 
    
Top comments (0)