StoryRanges-Objekt (Word)

Artikel
09/16/2024

Eine Auflistung von Range-Objekten , die Storys in einem Dokument darstellen.

Hinweise

Verwenden Sie die StoryRanges-Eigenschaft , um die StoryRanges-Auflistung zurückzugeben. Im folgenden Beispiel wird die manuelle Zeichenformatierung aus dem Text in allen Textabschnitten entfernt, mit Ausnahme des Standard Textabschnitts im aktiven Dokument.

For Each aStory In ActiveDocument.StoryRanges 
 If aStory.StoryType <> wdMainTextStory Then aStory.Font.Reset 
Next aStory

Die Add-Methode steht nicht für die StoryRanges-Auflistung zur Verfügung. Die Anzahl der Artikel in der StoryRanges-Auflistung ist endlich.

Verwenden Sie StoryRanges (Index), wobei Index eine WdStoryType-Konstante ist, um einen einzelnen Textabschnitt als Range-Objekt zurückzugeben. Im folgenden Beispiel wird dem primären Kopfzeilenabschnitt Text hinzugefügt und dann der Text angezeigt.

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range _ 
 .Text = "Header text" 
MsgBox ActiveDocument.StoryRanges(wdPrimaryHeaderStory).Text

Im folgenden Beispiel wird der Text der Fußnoten im aktiven Dokument in ein neues Dokument kopiert.

If ActiveDocument.Footnotes.Count >= 1 Then 
 ActiveDocument.StoryRanges(wdFootnotesStory).Copy 
 Documents.Add.Content.Paste 
End If

Wenn Sie versuchen, einen Artikel zurückzugeben, der im angegebenen Dokument nicht zur Verfügung steht, tritt ein Fehler auf. Im folgenden Beispiel wird festgestellt, ob im aktiven Dokument ein Fußnotenartikel zur Verfügung steht.

On Error GoTo errhandler 
Set MyRange = ActiveDocument.StoryRanges(wdFootnotesStory) 
errhandler: 
If Err = 5941 Then MsgBox "The footnotes story is not available."

Mit der NextStoryRange-Eigenschaft durchlaufen Sie alle Artikel in einem Dokument. Im folgenden Beispiel wird jeder Textabschnitt im aktiven Dokument nach dem Text "Microsoft Word" durchsucht. Wenn der Text gefunden wird, wird er kursiv formatiert.

For Each myStoryRange In ActiveDocument.StoryRanges 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 While myStoryRange.Find.Found 
 myStoryRange.Italic = True 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 Wend 
 While Not (myStoryRange.NextStoryRange Is Nothing) 
 Set myStoryRange = myStoryRange.NextStoryRange 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 While myStoryRange.Find.Found 
 myStoryRange.Italic = True 
 myStoryRange.Find.Execute _ 
 FindText:="Microsoft Word", Forward:=True 
 Wend 
 Wend 
Next myStoryRange

Methoden

Name
Item

Eigenschaften

Name
Application
Count
Creator
Parent

Siehe auch

Referenz zum Word-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über