Makro Code gesucht Fußnoten aus Tabelle

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

martin11
*****
Beiträge: 237
Registriert: Do, 30.03.2017 16:07

Makro Code gesucht Fußnoten aus Tabelle

Beitrag von martin11 »

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
mikeleb
*******
Beiträge: 1316
Registriert: Fr, 09.12.2011 16:50

Re: Makro Code gesucht Fußnoten aus Tabelle

Beitrag von mikeleb »

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.
Gruß,
mikeleb
mikeleb
*******
Beiträge: 1316
Registriert: Fr, 09.12.2011 16:50

Re: Makro Code gesucht Fußnoten aus Tabelle

Beitrag von mikeleb »

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
Dateianhänge
Fussnoten Liste mit Tabellen.odt
(24.93 KiB) 86-mal heruntergeladen
Gruß,
mikeleb
Antworten