microsoft.public.word.vba.general

Hi

> If left(styleLoop, 3) = "MVP" Then

Sub Test49923()
Dim styleLoop As Style
For Each styleLoop In ActiveDocument.Styles
If Left(styleLoop, 3) = "MVP" Then
MsgBox styleLoop
Application.OrganizerCopy Source:=ActiveDocument.Name, _
Destination:="C:\editXP\normal.dot", _
Name:=styleLoop, _
Object:=wdOrganizerObjectStyles
End If
Next styleLoop
End Sub





--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP