Gérer le zoom de word depuis Excel

Sub ZoomWord()
Dim wdApp As Object
    
    'récupérer l'application word
     On Error Resume Next
     Set wdApp = GetObject(, "Word.Application")
     If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
    On Error GoTo 0
    If wdApp Is Nothing Then Stop
    If wdApp.Documents.Count = 0 Then wdApp.Documents.Add
    
    'modifier le zoom
     wdApp.ActiveWindow.View.Zoom.Percentage = 50
End Sub

wdDoc.Windows(1).View.Zoom.Percentage = 50