von knicki » Fr, 24.10.2008 11:46
Hallo Leute,
also ich baue gerade im PHP auf der Com (OLE) Schnittstelle ein Script.
Nun möchte ich hier wie im Writer Dokument wo ja die Makroaufzeichnung geht "Datei hinzufügen" machen.
Im Impress geht dies auch nur noch mit auswahl welche Folie.
Also muss da nun was anders aussehen, was, wie ?
Erstellt von den Makro im OpenOffic
Code: Alles auswählen
sub Main2
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Name"
args4(0).Value = "file:///C:/Dokumente%20und%20Einstellungen/Administrator/Desktop/Anschreiben.docx"
args4(1).Name = "Filter"
args4(1).Value = "MS Word 2007 XML"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args4())
end sub
Von mir was ohne was zusagen nix macht ^^
Code: Alles auswählen
public function AddByFile($file, $page)
{
$arg = array();
$arg[] = $this->MakePropertyValue("Name", $this->ConvertToURL($file));
$arg[] = $this->MakePropertyValue("Filter", "MS Powerpoint 97");
$cc = $this->SetAktivPage($page);
$this->_dp->executeDispatch($cc->Frame, ".uno:InsertDoc", "", 0, $arg);
}
Hallo Leute,
also ich baue gerade im PHP auf der Com (OLE) Schnittstelle ein Script.
Nun möchte ich hier wie im Writer Dokument wo ja die Makroaufzeichnung geht "Datei hinzufügen" machen.
Im Impress geht dies auch nur noch mit auswahl welche Folie.
Also muss da nun was anders aussehen, was, wie ?
Erstellt von den Makro im OpenOffic
[code]
sub Main2
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Name"
args4(0).Value = "file:///C:/Dokumente%20und%20Einstellungen/Administrator/Desktop/Anschreiben.docx"
args4(1).Name = "Filter"
args4(1).Value = "MS Word 2007 XML"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args4())
end sub
[/code]
Von mir was ohne was zusagen nix macht ^^
[code]
public function AddByFile($file, $page)
{
$arg = array();
$arg[] = $this->MakePropertyValue("Name", $this->ConvertToURL($file));
$arg[] = $this->MakePropertyValue("Filter", "MS Powerpoint 97");
$cc = $this->SetAktivPage($page);
$this->_dp->executeDispatch($cc->Frame, ".uno:InsertDoc", "", 0, $arg);
}
[/code]