Tareas varias

En este tema se incluyen ejemplos de Visual Basic para las tareas identificadas en las secciones siguientes.

Cambiar la vista

El objeto View incluye propiedades y métodos asociados con la presentación de los atributos (como mostrar todas, sombreado de campo y líneas de cuadrícula de las tablas) de una ventana o un panel. En el siguiente ejemplo, se cambia a la vista Impresión.

Sub ChangeView() 
    ActiveDocument.ActiveWindow.View.Type = wdPrintView 
End Sub

Establecer el texto del encabezado o pie de página

Las propiedades Headers, Footers y HeaderFooter devuelven el objeto HeaderFooter. En el siguiente ejemplo, se cambia el texto del encabezado de la página actual.

Sub AddHeaderText() 
    With ActiveDocument.ActiveWindow.View 
        .SeekView = wdSeekCurrentPageHeader 
        Selection.HeaderFooter.Range.Text = "Header text" 
        .SeekView = wdSeekMainDocument 
    End With 
End Sub

En este ejemplo se crea un objeto Range , rngFooter, que hace referencia al pie de página principal de la primera sección del documento activo. Una vez establecido el objeto Range, se elimina el texto del pie de página existente. El campo FILENAME se agrega al pie de página junto con dos tabulaciones y el campo AUTHOR.

Sub AddFooterText() 
    Dim rngFooter As Range 
    Set rngFooter = ActiveDocument.Sections(1) _ 
        .Footers(wdHeaderFooterPrimary).Range 
    With rngFooter 
        .Delete 
        .Fields.Add Range:=rngFooter, Type:=wdFieldFileName, Text:="\p" 
        .InsertAfter Text:=vbTab & vbTab 
        .Collapse Direction:=wdCollapseStart 
        .Fields.Add Range:=rngFooter, Type:=wdFieldAuthor 
    End With 
End Sub

Establecer opciones

El objeto Options incluye propiedades que se corresponden con la configuración opcional que están disponibles en varios menús y diálogos a lo largo de Word. En el siguiente ejemplo, se establecen tres valores de configuración de la aplicación para Word.

Sub SetOptions() 
    With Options 
        .AllowDragAndDrop = True 
        .ConfirmConversions = False 
        .MeasurementUnit = wdPoints 
    End With 
End Sub

Cambiar el diseño del documento

El objeto PageSetup contiene todos los atributos de configuración de página de un documento (como margen izquierdo, margen inferior y tamaño de papel) como propiedades. En el siguiente ejemplo, se establecen los valores de margen del documento activo.

Sub ChangeDocumentLayout() 
    With ActiveDocument.PageSetup 
        .LeftMargin = InchesToPoints(0.75) 
        .RightMargin = InchesToPoints(0.75) 
        .TopMargin = InchesToPoints(1.5) 
        .BottomMargin = InchesToPoints(1) 
    End With 
End Sub

Recorrer los párrafos de un documento mediante bucles

En el siguiente ejemplo, se recorren todos los párrafos del documento activo. Si el valor del espaciado antes de un párrafo es de 6 puntos, en este ejemplo se cambia a 12 puntos.

Sub LoopParagraphs() 
    Dim parCount As Paragraph 
    For Each parCount In ActiveDocument.Paragraphs 
        If parCount.SpaceBefore = 12 Then parCount.SpaceBefore = 6 
    Next parCount 
End Sub

Para obtener más información, vea Realizar bucles en una colección.

Personalizar menús y barras de herramientas

El objeto CommandBar representa menús y barras de herramientas (en versiones de Word que no usan la cinta de opciones). Utilice la propiedad CommandBars con un nombre de menú o de barra de herramientas para devolver un único objeto CommandBar. La propiedad Controls devuelve un objeto CommandBarControls que hace referencia a los elementos de la barra de comandos especificada. En el siguiente ejemplo, se agrega el comando Contar palabras al menú Estándar.

Sub AddToolbarItem() 
    Dim btnNew As CommandBarButton 
    CustomizationContext = NormalTemplate 
    Set btnNew = CommandBars("Standard").Controls.Add _ 
        (Type:=msoControlButton, ID:=792, Before:=6) 
    With btnNew 
        .BeginGroup = True 
        .FaceId = 700 
        .TooltipText = "Word Count" 
    End With 
End Sub

En el siguiente ejemplo, se agrega el comando Subrayado doble a la barra de herramientas Formato.

Sub AddDoubleUnderlineButton() 
    CustomizationContext = NormalTemplate 
    CommandBars("Formatting").Controls.Add _ 
        Type:=msoControlButton, ID:=60, Before:=7 
End Sub

Active la grabadora de macros y personalice un menú o una barra de herramientas para determinar el valor Id de un comando; por ejemplo, Id 60 es el comando Subrayado doble.

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.