Sub EnvoyerVersLP7Creator()
'
' EnvoyerVersLP7Creator Macro
' Cette macro permet de créer un original électronique LP7 à partir d'un document ouvert dans Word
' Elle sauvegarde et ferme le document en court puis appelle directement le wizard de création d'un original
' de LP7Creator
'
  Dim strPath, appliLP7, shellLP7 As String
'
  appliLP7 = "javaw.exe -Xms5000000 -cp ""C:\Program Files\Lex Persona\LP7Creator\LP7Creator.jar"" LP7Creator -NewFile "
'
  If ActiveDocument.Path = "" Then
    ActiveDocument.SaveAs Environ("temp") & "\" & ActiveDocument.Name
  Else
    ActiveDocument.Save
  End If
  strPath = """" & ActiveDocument.FullName & """"
  ActiveDocument.Close
  shellLP7 = Shell(appliLP7 & strPath, 1)
End Sub