LibreOffice/Writer: open 2 docx and copy header & footer from one to another docx

[Heiko]

Hi, I want to open two docx files with LibreOffice and copy the header and the footer from docx1 to docx2.

I have the following code, that opens two docx files, copy the footer from docx1 and paste it into the text content from docx2.

But 1.: I don't want to use the Send command and 2.: I want to insert the footer content into the footer.

Any ideas how I can make this work? 

expandcollapse popup

Global $ServiceManager
$ServiceManager = ObjCreate("com.sun.star.ServiceManager")

$MSword = $ServiceManager.createInstance("com.sun.star.frame.Desktop")

$source = Convert2URL("C:\test1.docx")
$target = Convert2URL("C:\test2.docx")

Global $args[3]
$args[0] = MakePropertyValue("ReadOnly", False)
$args[1] = MakePropertyValue("Password", "")
$args[2] = MakePropertyValue("Hidden", False)

$doc1 = $MSword.loadComponentFromURL($source, "_blank", 0, $args)
WinWait("[CLASS:SWT_Window0]", "", 1) ;wait 1 second

Send("^{PGDN}") ;open the footer
Send("^a")      ;select all
Send("^c")      ;copy

$doc2 = $MSword.loadComponentFromURL($target, "_blank", 0, $args)
WinWait("[CLASS:SWT_Window0]", "", 1) ;wait 1 second

Send("^v")      ;paste



Func MakePropertyValue($cName, $uValue)
   Local $Pstruc
   $Pstruc = $ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
   $Pstruc.Name = $cName
   $Pstruc.Value = $uValue
   Return $Pstruc
EndFunc

Func Convert2URL($fname)
   $fname = StringReplace($fname, ":", "|")
   $fname = StringReplace($fname, " ", "%20")
   $fname = "file:///" & StringReplace($fname, "\", "/")
   Return $fname
EndFunc

 

[water]

I'm not sure this helps as I have never worked with LibreOffice myself.
You could give the Writer UDF written by donnyh13 a try.

[Heiko]

Thank you very much @water. Many to read  I will see if there is something useful.