Sub Colissimo_Courrier()
'
' Colissimo_Courrier Macro
' Macro enregistrée le 06/ par SCL08
'
Documents.Open FileName:="\\Transit_nt\TRANSIT\Scl\Secretariat\Courrier.doc", ConfirmConversions:=False, _
ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\Transit_nt\TRANSIT\Scl\Secretariat\Lettre.txt", ConfirmConversions:= _
False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:="", SQLStatement:="", SQLStatement1:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
End Sub
Sub Colissimo_Etiquettes()
'
' Colissimo_Etiquettes Macro
' Macro enregistrée le 06/ par SCL08
'
Documents.Open FileName:="\\Transit_nt\TRANSIT\Scl\Secretariat\Etiquettes.doc", ConfirmConversions:=False, _
ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActiveDocument.MailMerge.OpenDataSource Name:= _
"\\Transit_nt\TRANSIT\Scl\Secretariat\etiq.txt", ConfirmConversions:= _
False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="vatier", PasswordTemplate:="vatier", WritePasswordDocument:="vatier", _
WritePasswordTemplate:="vatier", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:="", SQLStatement:="", SQLStatement1:=""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
Selection.WholeStory
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 9
End Sub
Sub Macro3()
Attribute Macro3.VB_Description = "Macro enregistrée le 06/ par SCL08"
Attribute Macro3.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro3"
'
' Macro3 Macro
' Macro enregistrée le 06/ par SCL08
'
Selection.WholeStory
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 9
End Sub
|
