vba word colonnes [Résolu]

[attavus]

Bonjour,

sur Word grace à la fonction colonnes du menu format , il est possible de disposer son texte en colonne contigues sur une page

ma question est la suivante comment faire cela en VBA ?


merci d'avance !

[Jipété]

Salut.

Moi, quand j'ai ce genre de truc aussi simple à faire, je regarde comment VBA fait en lançant l'enregistreur de macros, ça donne ça après saisie d'un petit texte dans un nouveau document :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test2col()
'
' test2col Macro
' Macro enregistrée le 28/11/2006 par moi
'
    Selection.WholeStory
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    With ActiveDocument.PageSetup.TextColumns
        .SetCount NumColumns:=2
        .EvenlySpaced = True
        .LineBetween = False
        .Width = CentimetersToPoints(7.37)
        .Spacing = CentimetersToPoints(1.25)
    End With
End Sub

Après, j'étudie puis j'improvise.

HTH,
--
jp