Discussion :

[Loukassit0]

Bonjour ici,

J'ai plus d'une centaine de documents Word à modifier alors je souhaiterais vraiment automatiser la tâche suivant: Grouper toute les formes d'une même page?

C'est la première fois que je fais du VBA sur Word et autant dire que je ne m'en sors pas!

Pour le moment, j'ai essayé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
'
    ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
    ActiveWindow.Shapes.SelectAll
 
    Selection.ShapeRange.Group.Select
    Application.Browser.Next
 
 
End Sub

Je me suis inspiré de ce que j'ai pu trouver sur internet:
http://msdn.microsoft.com/en-us/libr.../ff192817.aspx
... mais bon, c'est office 2013 sur cet exemple.

J'accepte toute aide!
Lucas

[Heureux-oli]

Salut,

Premier problème, les pages ne sont pas des objets statiques en Word, mais des objets dynamiques.
Elles sont intimement liées à la mise en page.

Dans le code que tu nous donnes, il n'est jamais question de sélection de page, mais juste d'augentation de l'affichage.


Pour grouper par le code, je ne vois que Word 2010 ou 2013 qui permettent de donner un nom aux objets graphique.
C'est en utilisant leur nom que l'on peut les grouper par code.
Mais avant de la grouper, il faut récupérer les noms.


Je pense que ça va faire une usine à gaz.

Pour lister les Shapes d'un document :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim myS As Shape
 
For Each myS In ActiveDocument.Shapes
Debug.Print myS.Name
Next myS

Pour connaître la page à laquelle l'objet appartient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Activedocument.Shapes("Group 3").Select
selection.Information(wdActiveEndAdjustedPageNumber)

Dans mon test, l'image s'appelait Group 3