* Bonjour *

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
je voudrais trouver le code qui permet d'encadrer ces deux lignes

de plus baisser l'interlignage de ceci
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
* Merci *