Discussion :

[doudoustephane]

Bonjour.
Je cherche à faire afficher dans Word les délimiteurs de marges mais je ne trouve rien dans toutes les options.
Quelqu'un sait-il comment faire SVP ?
Merci d'avance
Cordialement
doudouallemand

[Heureux-oli]

Bonjour,

La seule méthode que j'ai trouvée pour l'instant est l'affichage du quadrillage qui représente la surface imprimée.

On se retrouve donc avec l'effet inverse de c que tu veux, mais pour un résultat identique.

[doudoustephane]

Bonjour,

La seule méthode que j'ai trouvée pour l'instant est l'affichage du quadrillage qui représente la surface imprimée.

On se retrouve donc avec l'effet inverse de c que tu veux, mais pour un résultat identique.

Oui, j'ai vu cela aussi, malheureusement, ce n''est pas ce que mon client souhaite.
Merci quand même

[Sepia]

Salut,

Si tu veux visualiser les marges sur une page, sur [W00], [W03] et [W04] (sur Mac), la manip est simple:

1. Passe en Affichage "Mode Page"
2. • Sur PC, va dans le menu "Outils/Options"-onglet "Affichage" et coche "Limite de texte"
   • Sur Mac, va dans le menu "Word/Préférences"-onglet "Affichage" et coche "Limite de texte"

En revanche, si tu veux pouvoir manipuler les marges comme dans Excel, ça ne marche pas. Un dernier conseil si c'est pour un client, tu ne lui dis pas que ça ne marche pas comme Excel, car sinon il va répondre que c'est justement ce qu'il voulait , crois-moi. Tu vérifies qu'il veut les visualiser, tu lui fais comme je viens de te dire et ça c'est OK

[doudoustephane]

Salut,

Si tu veux visualiser les marges sur une page, sur [W00], [W03] et [W04] (sur Mac), la manip est simple:

1. Passe en Affichage "Mode Page"
2. • Sur PC, va dans le menu "Outils/Options"-onglet "Affichage" et coche "Limite de texte"
   • Sur Mac, va dans le menu "Word/Préférences"-onglet "Affichage" et coche "Limite de texte"

En revanche, si tu veux pouvoir manipuler les marges comme dans Excel, ça ne marche pas. Un dernier conseil si c'est pour un client, tu ne lui dis pas que ça ne marche pas comme Excel, car sinon il va répondre que c'est justement ce qu'il voulait , crois-moi. Tu vérifies qu'il veut les visualiser, tu lui fais comme je viens de te dire et ça c'est OK

Oui, le problème, c'est qu'il m'a donné un exemple de ce qu'il veut.
Voici la chose en pièce jointe.
Et ce que tu donnes (que j'ai essayé dans la soiré), ne donne pas vraiment cela mais bon, je vais essayé de lui donné comme ça et je vais voir...

[Heureux-oli]

J'y ai un peu réfléchi, mais ce n'est pas simple, c'est vouloir faire du PAO avancé avec un logiciel pas vraiment fait pour.

Mais on peut essayer !

Il faudrait pouvoir ajouter les marge en VBA, simplement ajouter des lignes.

Ces lignes doivent-elles rester en permanence, ou sont-elles supprimées à un moment ?

Je vois deux niveaux de marge, comment sont-elles définies l'une par rapport à l'autre ?

[Sepia]

Salut,

L'exemple que tu nous donnes nous permet de mieux voir.

Attention, en PAO tu as les marges et les traits de coupe mais ces derniers ne sont pas gérés par Word, donc ça être difficile mais tu peux le faire (en VBA) avec des affichages d'images sur des zones

[Heureux-oli]

Peut-être une piste :

Code :

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

1
2
3
4
5
6
7
8
Sub testpourmarge()
Dim ilm As Single 'single left margin
ilm = ActiveDocument.PageSetup.LeftMargin
Debug.Print ilm
ActiveDocument.Shapes.AddLine ilm, 0, ilm, 50
 
 
End Sub

Il faudrait le faire pour toutes les marges !
Dis nous ce que tu en penses ?

[doudoustephane]

Bonjour.
Je viens de revenir d'un déplacement et je vois vos réponses.
Je fais le test et je vous tiens au courant
Merci

[Pasqualini]

pour afficher les limites du texte avec WORD2007 :
Cliquer sur le "Bouton office" ( en haut à gauche)
Cliquer ensuite sur "Options Word",
->Options avancées
Cocher la case "Afficher les limites de texte"
->OK

[Heureux-oli]

pour afficher les limites du texte avec WORD2007 :
Cliquer sur le "Bouton office" ( en haut à gauche)
Cliquer ensuite sur "Options Word",
->Options avancées
Cocher la case "Afficher les limites de texte"
->OK

Cette option a déjà été proposée et ne conviens pas !

[doudoustephane]

en effet, cela ne convient pas vraiment, merci de voir le fichier joint dans un message.
Sinon, j'ai pas encore pu faire le test vba
je fais cela ce week-end au pire.
merci

[doudoustephane]

Peut-être une piste :

Code :

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

1
2
3
4
5
6
7
8
Sub testpourmarge()
Dim ilm As Single 'single left margin
ilm = ActiveDocument.PageSetup.LeftMargin
Debug.Print ilm
ActiveDocument.Shapes.AddLine ilm, 0, ilm, 50
 
 
End Sub

Il faudrait le faire pour toutes les marges !
Dis nous ce que tu en penses ?

Bonjour.
Bon, j'ai enfin eu le temps de tester tout cela et voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub testpourmarge()
Dim ilm, ilm2 As Single 'single left margin
Dim calcul, calcul2 As Double
 
    'Angle haut gauche et bas gauche
    ilm = ActiveDocument.PageSetup.LeftMargin
    ilm2 = ActiveDocument.PageSetup.TopMargin - 2
    Debug.Print ilm
    calcul = ilm2
    calcul2 = ActiveDocument.PageSetup.PageHeight - ActiveDocument.PageSetup.BottomMargin + 2
    ActiveDocument.Shapes.AddLine ilm - 2, calcul - 12, ilm - 2, calcul + 12
    ActiveDocument.Shapes.AddLine ilm - 2, calcul2 - 12, ilm - 2, calcul2 + 12
 
    'Angle haut droite et bas droite
    ilm = ActiveDocument.PageSetup.RightMargin
    ilm2 = ActiveDocument.PageSetup.TopMargin - 2
    Debug.Print ilm
    calcul = ActiveDocument.PageSetup.PageWidth - ilm + 2
    calcul2 = ActiveDocument.PageSetup.PageHeight - ActiveDocument.PageSetup.BottomMargin + 2
    ActiveDocument.Shapes.AddLine calcul, ilm2 - 12, calcul, ilm2 + 12
    ActiveDocument.Shapes.AddLine calcul, calcul2 - 12, calcul, calcul2 + 12
 
    'Angle haut gauche et bas gauche horizontalement
    ilm = ActiveDocument.PageSetup.TopMargin
    ilm2 = ActiveDocument.PageSetup.LeftMargin
    Debug.Print ilm
    calcul = ilm2 - 2
    calcul2 = ActiveDocument.PageSetup.PageHeight - ActiveDocument.PageSetup.BottomMargin + 2
    ActiveDocument.Shapes.AddLine calcul - 12, ilm - 2, calcul + 12, ilm - 2
    ActiveDocument.Shapes.AddLine calcul - 12, calcul2, calcul + 12, calcul2
 
    'Angle haut droite et bas droite horizontalement
    ilm = ActiveDocument.PageSetup.BottomMargin
    ilm2 = ActiveDocument.PageSetup.RightMargin
    Debug.Print ilm
    calcul = ActiveDocument.PageSetup.PageWidth - ilm2 + 2
    calcul2 = ActiveDocument.PageSetup.PageHeight - ilm + 2
    ActiveDocument.Shapes.AddLine calcul - 12, ActiveDocument.PageSetup.TopMargin - 2, calcul + 12, ActiveDocument.PageSetup.TopMargin - 2
    ActiveDocument.Shapes.AddLine calcul - 12, calcul2, calcul + 12, calcul2
End Sub

Cela fait donc exactement ce que je veux, mais que sur la première page page, et je ne trouve pas la solution pour le faire sur les autre page car

Code :

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

ActiveDocument.Shapes(i).AddLine

n'existe pas (la fonction addline exactement)
Voilà, merci d'avance à nouveau de votre aide.
doudouallemand

[Heureux-oli]

Dans ce cas, il faut ajouter ces dessins dans l'entête ou le pied de page.

Voici ce que j'ai fait pour l'entête.

Code :

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

1
2
3
4
5
6
7
8
Sub testpourmarge()
Dim ilm As Single 'single left margin
ilm = ActiveDocument.PageSetup.LeftMargin
Debug.Print ilm
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddLine ilm, 0, ilm, 50
 
 
End Sub

[doudoustephane]

Dans ce cas, il faut ajouter ces dessins dans l'entête ou le pied de page.

Voici ce que j'ai fait pour l'entête.

Code :

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

1
2
3
4
5
6
7
8
Sub testpourmarge()
Dim ilm As Single 'single left margin
ilm = ActiveDocument.PageSetup.LeftMargin
Debug.Print ilm
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddLine ilm, 0, ilm, 50
 
 
End Sub

OK, merci beaucoup, j'ai bien obtenu ce que je souhaitez.
Merci à tous de votre aide
doudouallemand