Objeto StoryRanges (Word)

Una colección de rango objetos que representan los artículos de un documento.

Comentarios

Utilice la propiedad StoryRanges para devolver la colección StoryRanges. El ejemplo siguiente quita el formato del texto en todos los casos que no sea el contenido del texto principal del documento activo de carácter manual.

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

El método Add no está disponible para la colección StoryRanges. El número de artículos de la colección StoryRanges es finito.

Use StoryRanges (Index), donde Index es una constante WdStoryType , para devolver un único artículo como un objeto Range . En el ejemplo siguiente se agrega texto al primer artículo del encabezado y, a continuación, se muestra el texto.

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

En el siguiente ejemplo, se copia el texto de las notas al pie desde el documento activo a un nuevo documento.

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

Si trata de devolver un artículo que no esté disponible en el documento especificado, se produce un error. En el siguiente ejemplo, se determina si está disponible una nota al pie en el documento activo.

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

Utilice la propiedad NextStoryRange para repetir todos los artículos en un documento. En el ejemplo siguiente se busca en cada artículo del documento activo el texto "Microsoft Word". Cuando se encuentra el texto, se le da formato de cursiva.

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

Métodos

Nombre
Item

Propiedades

Nombre
Aplicación
Count
Creator
Parent

Vea también

Referencia de modelos de objetos de Word

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.