Bonjour,
Je suis débutant vba et je cherche à créer un fichier word depuis un fichier excel avec une macro. Je suis en train de galérer pour la mise en forme des paragraphes et je souhaiterais mettre en forme le paragraphe 1 puis mettre en forme le 2 et les concaténer.
Code :
- With AppWord.Selection
- '1ère page 1er paragraphe
- .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
- .ParagraphFormat.LineSpacing = 9
- .Text = "SAS & vbCrLf & "Cabinet d 'expertise" & vbCrLf & "Spécialisé en ..................." & vbCrLf & "4 Chemin des Ormes" & vbCrLf & "00000 VILLE" & vbCrLf & "Tél. 06 00 00 00 00"
- '1ère page 2ème paragraphe
- .Font.Size = 13
- .Font.Bold = True
- .Text = "Demandeur du présent rapport : "
- .Font.Bold = False
- Range("B6" ).Copy
- AppWord.Selection.Paste
- End With
|
Sauf que bien entendu, en faisant ça, mon .Text 2 vient effacer mon .Text 1 puis mon copié collé lui vient remplacer le .Text 2
Je ne trouve pas la réponse en cherchant à concaténer. Avez-vous un conseil ?
Merci d'avance
Message édité par devientfou le 14-04-2019 à 18:41:48