' DESCRIPTION:Fichier de Macro par défaut pour le script VBScript
Sub ordonnances()
	set shell = createobject("Wscript.shell")
	dim mytxt
	mytxt = Application.Activedocument.object.session.edit.GetSelectedText
	shell.run chr(34) & "c:\allgeier\ACDocumentFetcher\ACDocumentFetcher.exe" & chr(34) & " /ARC ORDONNANCES /QRY " & trim(mytxt)
	set shell = nothing
End Sub

Sub resultats_exterieurs()
	set shell = createobject("Wscript.shell")
	dim mytxt
	mytxt = Application.Activedocument.object.session.edit.GetSelectedText
	shell.run chr(34) & "c:\allgeier\ACDocumentFetcher\ACDocumentFetcher.exe" & chr(34) & " /ARC LABOS_EXTERIEURS /QRY " & trim(mytxt)
	set shell = nothing
End Sub