Sub SendToLP7Creator()
'
' SendToLP7Creator Macro
' This macro can create an LP7 original from a document opened in Microsoft Word
' It saves and closes the document then directly calls the original creation wizard in 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