title image


Smiley Auch im Fußnotentext suchen!
Hallöchen,



habe mal wieder eine kleine Frage.

Habe folgendes Makro:



Sub FindStylesInUse()

Set oDoc = ActiveDocument



Msg = "Benutzte Formatvorlagen in diesem Dokument:" & vbCr & vbCr

For Each oStyle In oDoc.Styles

If oStyle.InUse = True Then

With oDoc.Content.Find

.ClearFormatting

.Text = ""

.Style = oStyle

.Execute Format:=True

If .Found = True Then

sUsed = sUsed & oStyle & vbCr

End If

End With

End If

Next oStyle



'MsgBox Msg & sUsed



Documents.Add

ActiveDocument.Content.InsertAfter Msg

ActiveDocument.Content.InsertAfter sUsed

End Sub



Das Makro gibt mir die benutzten Formatvorlagen an.

Leider greift es hierbei nicht auf den Fußnotentext!

Wie kann ich realisieren, daß auch die Formatvorlagen aus dem Fußnotentext angegeben werden?

Ich will einfach das komplette Dokument nach Formatvorlagen durchsuchen!



Vielen Dank schon mal für Eure Hilfe!



Gruß Sandra



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: