Clever-Excel-Forum

Normale Version: Quellenangabe ohne Klammern
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo Leute,

ich schreibe gerade eine Arbeit und verwende hierfür Literatur.

Ich möchte wie folgt automatisch in der Fußzeile die Quelle auswählen in folgendem Format:

Müller & Dietz, 2008, S. 46

ich bekomme aber immer:
(Müller & Dietz, 2008, S. 46)


Ich verwende Word 2010.
Und nein - der Trick die Styles zu ändern funktioniert nicht.


Weiß jemand, wie ich diese sch*** nervigen Klammern da weg bekomme?
Niemand eine Idee? :(
Hallo,

hast du es mit "Replace" versucht?

Lade bitte eine Beispieldatei mit 2 Seiten, jeweils eine Fußnote hoch.

mfg

(versprechen kann ich dir nichts)
Mit Replace findet er alle Klammern im Text und entfernt diese - das möchte ich nicht.
Hallo,

als ich an der Uni war, gab es noch kein Word, deshalb mußte ich erst einmal lernen, wie man Fußnoten einfügt.

An einem Beispiel ging das:

Code:
Sub T_1()
With ThisDocument
    For i = 1 To .Footnotes.Count
        Tx = Replace(Replace(.Footnotes(i).Range.Text, "(", ""), ")", "")
        .Footnotes(i).Range.Text = Tx
    Next i
End With
End Sub

Berichte bitte, ob das auch in einem richtigen Text geht.

mfg
Vielen Dank.

Aber wie starte ich das?
Ich habe ein neues Makro angelegt und den Code eingefügt. Das alleine tut aber nichts.
Hallo,

zum Teste öffne ich den VBE mit Atl-F11, wenn der Cursor im Code steht, kann man im Menü mit der Pfeil-Taste, oder F5 starten. Hilfreich ist der Einzelschritt-Modus F8.

Falls es andere Klammern in den Fußnoten geben sollte, muss das Replace ersetzt werden durch die Prüfung mit Left(..., 1) und Right(...,1), dann ändern mit Mit(...)

mfg
Habe es geschafft. Es funktioniert.
Allerdings entfernt er dann den Link von den Fußzeilen - somit lässt sich kein automatisches Literaturverzeichnis mehr erstellen.
Hallo,

hier isr eine ähnliche Frage, noch ohne Antwort.

https://www.ms-office-forum.net/forum/sh...p?t=354726

mfg