Gérer le zoom de word depuis Excel

[ptibaz]

Bonjour le forum,

je souhaite gérer le zoom de Word depuis une macro excel.

Merci pour votre aide

 

[mromain]

Re : Gérer le zoom de word depuis Excel

Bonjour ptibaz,

Voici un essai :

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

A+

 

[ptibaz]

Re : Gérer le zoom de word depuis Excel

c'est parfait !

il me manquait ca : wdApp.ActiveWindow.View.Zoom.Percentage = 50

merci beaucoup !

PS= je ne sais pas ou on met que la discussion est close et le probleme résolu sur le forum

 

[mromain]

Re : Gérer le zoom de word depuis Excel

Re,

On peut aussi accéder au zoom depuis un Document ainsi :

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

PS= je ne sais pas ou on met que la discussion est close et le probleme résolu sur le forum

Il te faut éditer ton premier message et modifier le titre.

A+