[GastForen Programme Office Microsoft Office Verweise in normalen Text umwandeln

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Verweise in normalen Text umwandeln

John
Beiträge gesamt: 89

6. Sep 2010, 09:09
Beitrag # 1 von 11
Bewertung:
(18475 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Guten Morgen,

ich habe folgendes Problem. Wenn ich einen Text nach Indesign importiere, der sehr viele Fußnoten und Querverweise hat, kann es passieren, das die Fußnoten teilweise zerschossen am Ende des Dokumentes stehen. Meine Frage kann man in dem Worddokument die Verweise in normalen Text umwandeln. Mein System Apple OSC 10.6, Indesign CS4 und Word 2004.

Viele Grüße aus dem Spessart
John
X

Verweise in normalen Text umwandeln

JohanneS.
Beiträge gesamt: 1027

12. Mai 2014, 10:41
Beitrag # 2 von 11
Beitrag ID: #527060
Bewertung:
(17699 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin Kolleginnen und Kollegen,

fast vier Jahre später: gibt es diese Umwandlungsmöglichkeit wirklich nicht, auch nicht in word:mac 2011?
Mein Drumherum ist etwas anders, aber das spielt hier keine Rolle.

Grüße
Johannes


als Antwort auf: [#450597]

Verweise in normalen Text umwandeln

sabine_hamann
  
Beiträge gesamt: 419

12. Mai 2014, 11:05
Beitrag # 3 von 11
Beitrag ID: #527063
Bewertung:
(17690 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,

die Verweise können mit dem Tastenkürzel umgewandelt werden, dass auch in der Windows-Version funktioniert.
Alles markieren und Befehl-Shift-F9 drücken.
Gruß
Sabine

--------------------------------------------------------------------

Member und Premiummember sichern HilfDirSelbst.ch die Zukunft:
http://www.hilfdirselbst.ch/info/


als Antwort auf: [#527060]

Verweise in normalen Text umwandeln

JohanneS.
Beiträge gesamt: 1027

12. Mai 2014, 11:42
Beitrag # 4 von 11
Beitrag ID: #527067
Bewertung:
(17678 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin Sabine,

vielen Dank für die schnelle Antwort, die mir aber leider nicht weiterhilft:
Ich markiere alle Fuß-/Endnoten, drücke die erwähnte Tastenkombination und könnte dann »Feldverknüpfung aufheben« rückgängig machen. Ist das die gewünschte Funktion?
Alles sieht wie vorher aus — und wenn ich zur Kontrolle eine Verweisziffer lösche, dann ist die Note weg. Ist die Verbindung doch nicht gelöst?
Hat das vielleicht mit meiner abschnittsweisen Nummerierung zu tun? Ja, die hatte ich noch nicht erwähnt …

Grüße
Johannes


als Antwort auf: [#527063]

Verweise in normalen Text umwandeln

sabine_hamann
  
Beiträge gesamt: 419

12. Mai 2014, 12:17
Beitrag # 5 von 11
Beitrag ID: #527071
Bewertung:
(17664 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,

du willst die Fußnotenlinks auch in normale Texte verwandeln. Das geht nur mit Makro.
Ich habs allerdings nicht getestet.

Code
Sub foot2inline() 
Dim oFeets As Footnotes
Dim oFoot As Footnote
Dim oRange As Range
Dim szFootNoteText As String

' Grabs the collection of FootNotes
Set oFeets = Word.ActiveDocument.Footnotes

' Iterates through each footnote
For Each oFoot In oFeets



szFootNoteText = oFoot.Range.Text

'Start search from beginning of document
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting

With Selection.Find
.Text = "^f" ' Looks for all footnotes
.Forward = True
.Wrap = wdFindStop
End With

Selection.Find.Execute
' Delete the footnote
oFoot.Delete

'Insert the footnote text
'Here you do whatever format tickles your fancy
Selection.Text = " [Note: " + szFootNoteText + "] "

'CHANGE COLOR HERE. Color code is below.
Selection.Font.Color = 6299648

'Disables undo to save memory on very large documents.
ActiveDocument.UndoClear
Next
End Sub


Gruß
Gruß
Sabine

--------------------------------------------------------------------

Member und Premiummember sichern HilfDirSelbst.ch die Zukunft:
http://www.hilfdirselbst.ch/info/


als Antwort auf: [#527067]

Verweise in normalen Text umwandeln

JohanneS.
Beiträge gesamt: 1027

12. Mai 2014, 14:02
Beitrag # 6 von 11
Beitrag ID: #527083
Bewertung:
(17645 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin Sabine,

danke für das Makro. Es läuft und wandelt die Fußnoten in nichtnummerierten Text an der (vorherigen) Fußnotenverweisstelle um. So weit so gut, aber das ist nicht das, was ich suche.
Ich muss es genauer beschreiben: Ich habe ein Projekt mit 300 Abschnitten, jeder mit ca. zehn mit Fuß-/Endnoten, die abschnittsweise nummeriert am jeweiligen Abschnittsende im Textfluss stehen müssen.
Lade ich das mit meinem normalen Workflow in mein Layoutprogramm, werden alle dreitausend Noten durchnummeriert und ans Ende gestellt. Das wäre äußerst unhandlich.
Fast genauso unhandlich wäre es, die dreihundert Abschnitte als einzelne Dokumente zu bearbeiten — sie haben gerne nur ein oder zwei Seiten.

Grüße
Johannes


als Antwort auf: [#527071]

Verweise in normalen Text umwandeln

sabine_hamann
  
Beiträge gesamt: 419

12. Mai 2014, 17:05
Beitrag # 7 von 11
Beitrag ID: #527094
Bewertung:
(17614 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Johannes,

in welches Layoutprogramm willst du Datei laden?
Und was heißt Abschnittsweise genau: ein Word-Abschnitt existiert, darin gibt es Fußnoten, die mit 1 bis x nummeriert sind? Dann der nächste Abschnitt gleich aufgebaut.
Dies funktioniert auch nur mit Abschnitten:

Code
Sub UnLinkEndNotes() 
Application.ScreenUpdating = False
Dim nRng As Range, eNote As Endnote, nRef As String
With ActiveDocument
For Each eNote In .Endnotes
With eNote
With .Reference.Characters.First
.Collapse wdCollapseStart
.InsertCrossReference wdRefTypeEndnote, wdEndnoteNumberFormatted, eNote.Index
nRef = .Characters.First.Fields(1).Result
.Characters.First.Fields(1).Unlink
End With
.Range.Cut
End With

Set nRng = eNote.Range.Sections.First.Range

With nRng
.Collapse wdCollapseEnd
.End = .End - 1
If .Characters.Last <> Chr(12) Then .InsertAfter vbCr
.InsertAfter nRef & " "
With .Paragraphs.Last.Range
.Style = "Endnote text"
.Words.First.Style = "Endnote Char"
End With
.Collapse wdCollapseEnd
.Paste
.InsertAfter vbCr
If .Characters.Last = Chr(12) Then .InsertAfter vbCr
End With
Next
For Each eNote In .Endnotes
eNote.Delete
Next
End With
Set nRng = Nothing
Application.ScreenUpdating = True
End Sub

Gruß
Sabine

--------------------------------------------------------------------

Member und Premiummember sichern HilfDirSelbst.ch die Zukunft:
http://www.hilfdirselbst.ch/info/


als Antwort auf: [#527083]

Verweise in normalen Text umwandeln

Thobie
Beiträge gesamt: 3862

12. Mai 2014, 17:11
Beitrag # 8 von 11
Beitrag ID: #527095
Bewertung:
(17614 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin, Johannes,

wenn Du mit Fußnoten arbeitest, probiere die XTension für QuarkXPress Foonote/Endnote Management von Virginia Systems aus: http://www.virginiasystems.com/productsbyapp.html. Eine seeeeehr komfortable Art, Fußnoten aus Word in QuarkXPress zu importieren und zu verwalten.

Ich habe die XTension ausführlich in meinem [Eigenwerbung an]Buch zum wissenschaftlichen Arbeiten mit QXPress[/Eigenwerbung aus] beschrieben, die Beschreibung des Buchs findest Du auf meiner Website.

Grüße


Thobie
--
Helfen Sie, dass HilfDirSelbst helfen kann: http://www.hilfdirselbst.ch/info/

Kontakt: https://www.kreativ-schmie.de/


als Antwort auf: [#527083]
(Dieser Beitrag wurde von Thobie am 12. Mai 2014, 17:12 geändert)

Verweise in normalen Text umwandeln

JohanneS.
Beiträge gesamt: 1027

12. Mai 2014, 18:48
Beitrag # 9 von 11
Beitrag ID: #527100
Bewertung:
(17577 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Antwort auf [ sabine_hamann ] in welches Layoutprogramm willst du Datei laden?

Das landet nach einem Umweg über qXport von bitmix (Export von Word-Dateien in Text mit Marken) und kräftiger Überarbeitung in TextWrangler (wegen GREP-Suche und ähnlichem) in QuarkXPress.
Antwort auf: Und was heißt Abschnittsweise genau: ein Word-Abschnitt existiert, darin gibt es Fußnoten, die mit 1 bis x nummeriert sind? Dann der nächste Abschnitt gleich aufgebaut.

Genau richtig verstanden!

Und Dein Makro funktioniert nach einer ersten schnellen Prüfung genau wie gewünscht — morgen sicher ein noch viel größeres Dankeschön!

Grüße
Johannes


als Antwort auf: [#527094]

Verweise in normalen Text umwandeln

JohanneS.
Beiträge gesamt: 1027

12. Mai 2014, 18:52
Beitrag # 10 von 11
Beitrag ID: #527101
Bewertung:
(17576 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin Thobie,

ja, die XTension kenne ich, wenigstens als Demoversion. Sie ist schon vorgemerkt für das nächste Buch mit richtigen Fußnoten.
Hier hilft sie nicht, weil ich keine Fuß- oder Endnoten habe, sondern nur einen einzigen langen Fließtext.
Der hat Abschnitte, die Anmerkungen sind, die aber in den Fluss integriert sind, nicht parallel stehen. Das geht in etwa so: Absatz / Absatz / Anmerkung / Absatz …
Trotzdem Danke für den Hinweis (möge er anderen helfen)!

Grüße
Johannes


als Antwort auf: [#527095]

Verweise in normalen Text umwandeln

JohanneS.
Beiträge gesamt: 1027

13. Mai 2014, 10:37
Beitrag # 11 von 11
Beitrag ID: #527131
Bewertung:
(17456 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Moin Sabine,

jetzt habe ich mir das Ergebnis genauer angeschaut: wunderbar, alles ist da, wo es sein soll, alles behält seine Formate.
Ganz vielen Dank!

Grüße
Johannes


als Antwort auf: [#527094]
X

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
26.01.2021 - 27.01.2021

Digicomp Academy AG, Zürich oder virtuell
Dienstag, 26. Jan. 2021, 08.30 Uhr - Mittwoch, 27. Jan. 2021, 17.00 Uhr

Kurs

In diesem Advanced-Kurs erlernen Sie weitergehende Methoden im Dokumentenaufbau, der Typografie und im Bereich Layouttechniken. Nach diesem Kurs können Sie strukturierte Dokumente erstellen oder bestehende effizienter anpassen.

Dauer: 2 Tage
Preis: CHF 1'400.–

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/INDEM2

Veranstaltungen
27.01.2021 - 28.01.2021

Digicomp Academy AG, Bern oder Basel
Mittwoch, 27. Jan. 2021, 08.30 Uhr - Donnerstag, 28. Jan. 2021, 17.00 Uhr

Kurs

Mit After Effects können Sie visuelle Effekte und Animationen für Video, Web, DVD und Blu-Ray erzeugen. In diesem Kurs lernen Sie die Grundlagen kennen und sehen inspirierende Anwendungsbeispiele, die Ihnen helfen, Ihre eigenen Ideen umzusetzen.

Preis: CHF 1'700.-
Dauer: 2 Tage

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/AFT

Neuste Foreneinträge


Laser Drucker druckt schwarze Flecken Links und Rechts von Blatt

Gleich Große Icons erstellen

Absätze vor/nach AF suchen

PSD CS6 (!) Mac: Dialog "Dateiinformationen" Fenster leer und Sackgasse

Langsamer MacMini

Illustrator Skript Übersatztext - Hilfe benötigt

ID CC 2019 und 2020: Crash beim Startvorgang - 2021

Inhalt Textrahmen verbinden

iPhone Farbprofil

Exel ohne leeres Tabellenblatt starten
medienjobs