Nota
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
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.