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
wendWas muss ich machen, damit die Namen von anderen Objekten angezeigt werden?
Hat jemand eine Idee?
Ich benutze OOo 1.1.2
Gruß
Tommy