Changing a Linked Style to Paragraph with a Macro

[Rose43526]

Does anyone know if there is a Macro out that that you can use to change any content in your document from Linked to Paragraph.



Our Company style sheet is all Paragraph and character styles - when sending out to SME's they will input content that apparently has old styles that are linked. We have now found a way to lock down our styles/formatting in our document before sending out. But now we need to get all of our content cleaned up so that there are not any linked styles. We do have a manual way of doing it. Wanted to see if anyone has written a Macro that would do it much quicker. Thanks

[macropod]

The following macro deletes all user-defined Linked Styles in a document. It's not clear what more you might want to do.

Sub CleanStyles()
Dim oSty As Style
With ActiveDocument
  On Error Resume Next
  For Each oSty In .Styles
    If oSty.Linked = True Then
      .Styles.Add Name:="TmpSty"
      oSty.LinkStyle = "TmpSty"
      .Styles("TmpSty").Delete
    End If
    If oSty.BuiltIn = False Then oSty.Delete
  Next
End With
End Sub

[Rose43526]

Thank you. So when I run the macro that you have below and it deletes the linked style - will it go to a Normal style and then I manually put it back to the style we had except it is Paragraph not linked?

[macropod]

That is Correct.