OpenOffice.info

Verfasst: **Di, 29.01.2019 17:10**

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

Verfasst: **Di, 29.01.2019 17:52**

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.

Verfasst: **Di, 29.01.2019 21:57**

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: Alles auswählen

	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

OpenOffice.info

Makro Code gesucht Fußnoten aus Tabelle

Makro Code gesucht Fußnoten aus Tabelle

Re: Makro Code gesucht Fußnoten aus Tabelle

Re: Makro Code gesucht Fußnoten aus Tabelle