OpenOffice.info

	For i = 0 To oFN.Count-1
			' Spalte A
			mArr(i)(0) = oFN(i).Anchor.String
			' Spalte B
			mArr(i)(1) = oFN(i).String
			' Spalte C
			oanchor=oFN(i).anchor
			If isempty(oanchor.cell) Then
				'im normalen Text
				oTxt=oanchor.text
			Else
				'in einer Tabellenzelle
				oTxt=oanchor.cell
			End If
			ocur=otxt.createtextcursorbyrange(oanchor)
			ocur.collapsetostart
			ocur.gotostartofparagraph(true)
			mArr(i)(2) = ocur.string
	Next i

Hallo,
wie Stephan in dem anderen Thread bereits schrieb, kommt man über den Textcursor an den Absatz heran, in dem die Fußnote verankert ist. Allerdings muss unterschieden werden, ob der Text in einer Tabellenzelle ist.
Das Auslesen der Fußnoten stellt sich nun so dar:
[code] For i = 0 To oFN.Count-1
' Spalte A
mArr(i)(0) = oFN(i).Anchor.String
' Spalte B
mArr(i)(1) = oFN(i).String
' Spalte C
oanchor=oFN(i).anchor
If isempty(oanchor.cell) Then
'im normalen Text
oTxt=oanchor.text
Else
'in einer Tabellenzelle
oTxt=oanchor.cell
End If
ocur=otxt.createtextcursorbyrange(oanchor)
ocur.collapsetostart
ocur.gotostartofparagraph(true)
mArr(i)(2) = ocur.string
Next i
[/code]

Hallo,
die spannende Frage wäre ja, warum dein Makro nicht gleich alle findet. Unterscheiden sich die ersten 220 von den fehlenden 130?
Poste doch mal das Makro.

Aus einer zweispaltigen Tabelle möchte ich die Absätze herausholen,
die auf eine Fußnote verweisen.

Bei mir gibt es ca. 350 Fuß Noten
Mit meinem Makro habe ich ca., 220 geholt.
Aber ca. 130 fehlen mir.
Das könnte ich einzeln erledigen.
ZU Fuß geht das.

Ich bin ein kleiner Schriftsteller, deshalb wiederholt sich der Vorgang.
Deshalb dachte ich an ein Makro, das den Vorgang nacheinander erledigt.
Martin