Einfach ein kleines Makro wie z.B.:
Code: Alles auswählen
sub XSaneStarten
shell("xsane")
end sub
Wenn Du xsane mit "--no-mode-selection --save --force-filename '/tmp/gescanntesBild-001.jpg'" startest, kannst Du den Dateinamen vorgeben, und anschließend das Bild im Writer an der aktuellen Cursorposition einfügen:
Code: Alles auswählen
sub BildEinfuegen(sUrl)
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"
args1(0).Value = "file://" + sUrl
args1(1).Name = "FilterName"
args1(1).Value = "<Alle Bilder>"
args1(2).Name = "AsLink"
args1(2).Value = false
args1(3).Name = "Style"
args1(3).Value = "Bilder"
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args1())
end sub