* Bonjour *
je voudrais trouver le code qui permet d'encadrer ces deux lignes
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 Sub Main Dim App As Object Dim TempDir As String With App .Documents.Open Doc .visible = False 'Create a new document '.Documents.Add .Selection.InsertBreak Type:=7 'Add text to the document With .Selection.Font .Size =16 .Bold =True End With With .Selection.ParagraphFormat .Alignment = 1 End With .Selection.TypeText("FEUILLE DE ROUTE DU " & date_tirage) .Selection.TypeParagraph .Selection.TypeText("LE MONDE") .Selection.TypeParagraph With .Selection.Font .Size =12 .Bold = True End With With .Selection.ParagraphFormat .Alignment = wdAlignParagraphLeft End With .Selection.TypeText(" PORTEUR : " & porteur & " " & nom_porteur & vbTab & vbTab & vbTab & " TOTAUX:") .Selection.TypeParagraph .Selection.TypeText(" TOURNEE : " & tournee & " " & nom_tournee ) .Selection.TypeParagraph .Selection.TypeText(" ILOT : " & ilot & " " & nom_ilot) .Selection.TypeParagraph With .Selection.Font .Size =16 .Bold = True End With With .Selection.ParagraphFormat .Alignment = 1 End With .Selection.TypeText("PARTENAIRES") .ActiveDocument.SaveAs(Doc) .Documents(1).Close End With 'Quit Word App.Quit Set App =Nothing End Sub
de plus baisser l'interlignage de ceci
* Merci *
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 .Selection.TypeText("FEUILLE DE ROUTE DU " & date_tirage) .Selection.TypeParagraph .Selection.TypeText("LE MONDE") .Selection.TypeParagraph
Partager