Bonjour,
Je souhaitais à partir d'un .DOT copier et coller le contenu mais avec les polices.
En fait le code joint marche bien mais je perds le gras et les couleurs des textes.
Merci
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 Dim monOutl As Outlook.Application Dim message As Outlook.MailItem Dim wordapp As Word.Application Dim worddoc As Word.Document 'On Error Resume Next Set monOutl = New Outlook.Application Set message = monOutl.CreateItem(olMailItem) '"C:\Documents and Settings\pode10641\Mes documents\modele2.oft") message.Body = "" message.To = "toto" message.Subject = "test" Set wordapp = CreateObject("Word.Application") Set worddoc = GetObject("D:\modeleOD2.dot", "Word.document") worddoc.Application.Visible = False EcrireDansSignet "Signet1", "bonjour", worddoc worddoc.Select Selection.CopyFormat message.BodyFormat = olFormatRichText message.Body = ActiveDocument.Content message.Display worddoc.Close Set worddoc = Nothing wordapp.Quit Set wordapp = Nothing
Partager