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.