ich möchte ein Makro haben, dass die Multimedia Objekten im Writer- Dokument erkennt und deren Namen und Speicherort ausgibt.
In dem Dokument sind folgende Medienobjekten:
Real-, MPG-Video, Java-Applet, Flash, Formel und Audio-Dateien (midi, wav, mp3).
Ich habe mit folgendem Code versucht:
Code: Alles auswählen
oEnum = ThisComponent().Text.createEnumeration
while oEnum.hasMoreElements()
oPara = oEnum.nextElement()
If oPara.supportsService("com.sun.star.text.Paragraph") Then
vEnum = oPara.createEnumeration()
While vEnum.hasMoreElements()
vEnumObj = vEnum.nextElement()
vType = vEnumObj.TextPortionType
if vType <> "Text" Then
vEnum_2 = vEnumObj.createContentEnumeration("com.sun.star.text.TextEmbeddedObjects")
While vEnum_2.hasMoreElements()
vEmbeddedObj = vEnum_2.nextElement()
MsgBox vEmbeddedObj.Name
Wend
end if
Wend
End If
wend
Was muss ich machen, damit die Namen von anderen Objekten angezeigt werden?
Hat jemand eine Idee?
Ich benutze OOo 1.1.2
Gruß
Tommy