
Para establecer el zoom de un documento de Word desde Excel usando VBA (Visual Basic for Applications), puedes crear un macro en Excel que abra el documento de Word y ajuste el nivel de zoom. Aquí te dejo un ejemplo de cómo hacerlo:
Sub CambiarZoomDocumentoWord()
Dim wdApp As Object
Dim wdDoc As Object
Dim path As String
Dim nivelZoom As Integer
' Establece la ruta del documento de Word
path = "C:rutaaldocumentotu_documento.docx"
' Establece el nivel de zoom deseado
nivelZoom = 150 ' Por ejemplo, 150 para un zoom del 150%
' Inicia Word y abre el documento
On Error Resume Next
Set wdApp = GetObject(Class:="Word.Application")
If wdApp Is Nothing Then
Set wdApp = CreateObject(Class:="Word.Application")
End If
On Error GoTo 0
wdApp.Visible = True ' Asegúrate de que Word esté visible
Set wdDoc = wdApp.Documents.Open(path)
' Cambia el nivel de zoom
wdDoc.ActiveWindow.View.Zoom.Percentage = nivelZoom
' Opcionalmente, puedes cerrar el documento sin guardar cambios
' wdDoc.Close SaveChanges:=False
' Libera los objetos
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
- Abre el Editor de VBA en Excel:
- Presiona `ALT + F11` para abrir el Editor de VBA.
- Inserta un nuevo módulo:
- Haz clic en `Insertar` > `Módulo` para crear un nuevo módulo donde vas a escribir el código.
- Escribe el código:
- Ajusta el código según tus necesidades:
- Cambia `»C:rutaaldocumentotu_documento.docx»` por la ruta correcta al documento de Word.
- Cambia el valor de `nivelZoom` al nivel de zoom que prefieras.
- Ejecuta el macro:
- Cierra el Editor de VBA y vuelve a Excel.
- Presiona `ALT + F8`, selecciona `CambiarZoomDocumentoWord` y haz clic en `Ejecutar`.
Este macro abrirá el documento de Word especificado, cambiará el nivel de zoom y dejará el documento abierto (o puedes cerrar el documento sin guardar cambios si descomentas la línea correspondiente). Asegúrate de tener permisos para ejecutar macros en tu instalación de Office.
Conoce nuestros servicios



