title image


Smiley Re: Code-Ergänzungen!!! H I L F E
Hallo



Wie folgt:



Bye



Sub FormatVorlagenSchleife()

For Each FVL In ActiveDocument.Styles

If FVL.BuiltIn = False Then

If Not StorySchleife(FVL.NameLocal) Then FVL.Delete

End If

Next

End Sub



Private Function StorySchleife(FVL As String) As Boolean

Dim oStory As Range, FLV As String

For Each oStory In ActiveDocument.StoryRanges

Hit = StoryVerarbeiten(oStory, FVL)

While (Hit = False) And (Not (oStory.NextStoryRange Is Nothing))

Set oStory = oStory.NextStoryRange

Hit = StoryVerarbeiten(oStory, FVL)

Wend

If Hit = True Then Exit For

Next

StorySchleife = Hit

End Function



Private Function StoryVerarbeiten(oStory As Range, FVL As String) As Boolean

With oStory.Find

.ClearFormatting

.Text = "*"

.MatchWildcards = True

.Style = FVL

StoryVerarbeiten = .Execute

End With

End Function



Häufig gestelllte Fragen zu MS Word und Word-VBA
Index Inhalt



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: