Remove aliases names from styles

[andreas]

Dear Experts:

I have got a document where the user has created a lot of aliases
names for styles such as

Heading 6;hd6 or
bodytext;bd

I would like to delete those aliases names in one go using VBA.

Is this possible?

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

 

[Helmut Weber]

Hi Andreas,

try something like that:

Sub Test7c()
Dim s As Style
For Each s In ActiveDocument.Styles
If InStr(s, ";") Then
s = Mid(s, 1, InStr(s, ";"))
End If
Next
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

 

[andreas]

Hi Andreas,

try something like that:

Sub Test7c()
Dim s As Style
For Each s In ActiveDocument.Styles
   If InStr(s, ";") Then
   s = Mid(s, 1, InStr(s, ";"))
   End If
Next
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Hey Helmut,

as always, thank you very much for your terrific help. Nice coding.
Regards, Andreas