[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: 86

6. Sep 2010, 09:09
Beitrag # 1 von 11
Bewertung:
(14008 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: 949

12. Mai 2014, 10:41
Beitrag # 2 von 11
Beitrag ID: #527060
Bewertung:
(13232 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:
(13223 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: 949

12. Mai 2014, 11:42
Beitrag # 4 von 11
Beitrag ID: #527067
Bewertung:
(13211 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:
(13197 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: 949

12. Mai 2014, 14:02
Beitrag # 6 von 11
Beitrag ID: #527083
Bewertung:
(13178 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:
(13147 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: 3824

12. Mai 2014, 17:11
Beitrag # 8 von 11
Beitrag ID: #527095
Bewertung:
(13147 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 mit, damit HilfDirSelbst.ch weiterhin helfen kann. http://www.hilfdirselbst.ch/info/

Imagebroschüre: https://www.kreativ-schmie.de/...f=art_und_design.pdf
Kontakt: http://www.medien-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: 949

12. Mai 2014, 18:48
Beitrag # 9 von 11
Beitrag ID: #527100
Bewertung:
(13110 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: 949

12. Mai 2014, 18:52
Beitrag # 10 von 11
Beitrag ID: #527101
Bewertung:
(13109 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: 949

13. Mai 2014, 10:37
Beitrag # 11 von 11
Beitrag ID: #527131
Bewertung:
(12989 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

Veranstaltungen

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen. pdf-icon Hier eine kleine Anleitung.

Veranstaltungen
26.03.2019

Vorstellung der neuen Version des Farbservers

Impressed GmbH, Hamburg
Dienstag, 26. März 2019, 10.00 - 11.00 Uhr

Webinar

Vor kurzem hat ColorLogic die neueste Version seines Farbservers ZePrA 7 veröffentlicht. In diesem knapp ein-stündigen Webinar stellen Ihnen Dietmar Fuchs, Produktmanager von ColorLogic und Karsten Schwarze, Produktmanager bei Impressed die neuen Funktionen vor.

Kostenloses Webinar

Ja

Organisator: Impressed GmbH

Kontaktinformation: Detlef Grimm, E-Mailschulungen AT impressed DOT de

https://www.impressed.de/schulung.php?c=sDetail&sid=271

ColorLogic ZePrA 7 - die Neuerungen
Veranstaltungen
03.04.2019 - 04.04.2019

Messe Zürich, Halle 7
Mittwoch, 03. Apr. 2019, 09.00 Uhr - Donnerstag, 04. Apr. 2019, 17.30 Uhr

Messe

Seit nun schon zehn Jahren ist die SOM für Entscheider ein fester Begriff – nicht nur in der Schweiz. Geballtes Insiderwissen, Trends und Innovationen, Business-Kontakte: Treffen Sie auf die Profis aus den Bereichen eBusiness, Online Marketing und Direct Marketing! Von Global Playern über nationale Agenturen und Dienstleister bis hin zu Start-ups und Branchenverbänden sind die prägenden Unternehmen und Organisationen vor Ort. Ein prall gefülltes Programm mit Vorträgen, Workshops und Masterclasses bietet Einblicke in die neusten Entwicklungen und aktuellen Herausforderungen. Entdecken Sie innovative Produkte oder Dienstleistungen und profitieren Sie vom Know-how der Experten! Überzeugen Sie sich selbst vom lebendigen Schweizer eBusiness- und Marketing-Geschäft und merken Sie sich jetzt schon den 3. und 4. April 2019 vor. Denn dann findet die elfte Auflage der SOM statt – wie gewohnt in der Messe Zürich.

Nein

Organisator: boerding exposition SA

Hier Klicken