OpenOffice.info

[quote]Übersehe ich da was?[/quote]

möglicherweise das die betreffenden Stellen eine direkte Formatierung (sog. harte Formatierung) besitzen, die dann natürlich von einer Vorlage nicht verändert wird, da direkte Formatierungen immer Vorlagen überlagern.

http://www.ooowiki.de/HarteUndWeicheFormatierung.html


Gruß
Stephan

Sub Main
	Dim args(0) As New com.sun.star.beans.PropertyValue
	args(0).Name = "UpdateDocMode"
	args(0).Value = 3
	
	folder = "D:\abc\"
	FileName = Dir(folder & "*.odt")
	While len(FileName) > 0 
	   sURL = ConvertToURL(folder & FileName)
	   Msgbox sURL 
	   akt_doc = StarDesktop.loadComponentFromUrl(sURL, "_blank", 0, args())
	   akt_doc.Store()
	   akt_doc.Close(true)
	
	   FileName = Dir()
	Wend
End Sub

so sollte das gehen (ohne Garantie), vorher bei folder = "D:\abc\" den richtigen Ordner eintragen:

[code]Sub Main
Dim args(0) As New com.sun.star.beans.PropertyValue
args(0).Name = "UpdateDocMode"
args(0).Value = 3

folder = "D:\abc\"
FileName = Dir(folder & "*.odt")
While len(FileName) > 0
sURL = ConvertToURL(folder & FileName)
Msgbox sURL
akt_doc = StarDesktop.loadComponentFromUrl(sURL, "_blank", 0, args())
akt_doc.Store()
akt_doc.Close(true)

FileName = Dir()
Wend
End Sub
[/code]

Gruß
Stephan