Seite 1 von 1

Makro Code gesucht Fußnoten aus Tabelle

Verfasst: Di, 29.01.2019 17:10
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

Re: Makro Code gesucht Fußnoten aus Tabelle

Verfasst: Di, 29.01.2019 17:52
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.

Re: Makro Code gesucht Fußnoten aus Tabelle

Verfasst: Di, 29.01.2019 21:57
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