As I posted in nooru's other thread (
https://www.msofficeforums.com/word/...-template.html), this is difficult to do. There a many attributes for every paragraph Style that would have to be checked. Suppose, for example, a paragraph Style specifies a 1/2in indent but someone using a metric setup used 1.25cm indents, a difference of 0.2cm. Does that count as direct formatting? How about if they added a tab-stop, then didn't use it? Or how about if the Style calls for single line spacing but a user chose an 'exact' spacing that just happens to be the same?
To get an idea of how many Styles & attributes might need checking, try running the following macro in a empty document:
Code:
Sub GetStyleAttribs()
Dim Stl As Style, StrList As String, i As Long
With ActiveDocument
For Each Stl In .Styles
With Stl
StrList = StrList & vbCr & .NameLocal & vbTab & .Description & vbCr
i = i + 1
End With
Next
.Range.InsertAfter i & " Styles found:" & StrList
End With
End Sub