Hallo Olga,
[EMAIL PROTECTED] schrieb:
Wir haben über 600 Vorlagen aus MS ins OO konvertiert, was auch
gut gelungen ist..
Das Problem ist aber, dass die Dateiname nicht gleich Titel ist! So
kriegen wir in den
Vorlagenpfaden Titel angezeigt. Da wir aber keine Titel haben, wird
einfach die erste Zeile aus
dem Dokument genommen.
Ich vermute, dass es etwas anders ist, als Du es beschreibst. Wenn
ich eine Vorlage habe, die _keinen_ Titel hat, dann wird diese bei
der Vorlagenauswahl sehr wohl mit ihrem Dateinamen aufgeführt. Es
verhält sich also genau so, wie Du es brauchst.
Dein Problem ist, dass Deine Vorlagen tatsächlich einen Titel haben,
der sehr ungeeignet ist. Solche Titel entstehen beim Arbeiten mit MS
Word, ohne dass es dem Anwender bewusst ist. Denn Word vergibt als
Titel automatisch die erste Zeile des Dokuments.
Dein Problem ist also nicht, dass die Dokumente _keinen_ Titel
haben, sondern dass sie einen haben und zwar einen blödsinnigen. Und
den hatten die schon immer.
Um Dich zu retten, brauchst Du ein Makro, das alle 600 Vorlagen
öffnet, den Titel daraus entfernt und wieder speichert.
Für eine einzelne Vorlage sähe das so aus:
sub TitelEntfernen()
Dim oDesktop as object
Dim oDocument as object
Dim sSourceFile as string
Dim myFileProp(0) As New com.sun.star.beans.PropertyValue
oDesktop = createUnoService("com.sun.star.frame.Desktop")
sSourceFile = "file:///... .ott" 'Pfad zur betrffenden Vorlage
myFileProp(0).Name = "AsTemplate"
myFileProp(0).Value = False
oDocument = oDesktop.loadComponentFromURL( sSourceFile, "_blank",
0,myFileProp() )
oDocument.getDocumentInfo().Title = ""
oDocument.store()
oDocument.close(false)
end sub
Wenn Du noch mehr Hilfe brauchst, melde Dich wieder. :-)
Gruß
Stefan
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
