mediengestalter.info
FAQ :: Mitgliederliste :: MGi Team

Willkommen auf dem Portal für Mediengestalter

Aktuelles Datum und Uhrzeit: Sa 30.08.2008 06:07 Benutzername: Passwort: Auto-Login

Thema: InDesign: Index vom 10.08.2005

Neues Thema eröffnen   Neue Antwort erstellen MGi Foren-Übersicht -> Software - Print -> InDesign: Index
Autor Nachricht
steffi02
Threadersteller

Dabei seit: 21.03.2003
Ort: Freiburg
Alter: 24
Geschlecht: Weiblich
Verfasst Mi 10.08.2005 10:42
Titel

InDesign: Index

Antworten mit Zitat Zum Seitenanfang

Halli Hallo,


habe eine kleine Frage. Beschäftige mich gerade damit den Index eines Buches anzulegen. InDesign hat ja also ne ganz tolle Funktion:
Wort markieren > neuen Seitenverweis > ... > Index generieren > FERTIG

Mein Problem ist jetzt aber, dass ich zum Beispiel das Wort "Maus" im Index haben will, aber nicht nur auf eine Seite verwiesen, sondern auf 10 oder 100 Lächel ... muss ich jetzt wirklich hundert mal:
"Maus" markieren > neuen Seitenverweis > ... > Index generieren > (ich werd niemals) FERTIG ???? http://www.mediengestalter.info/images/smiles/icon_confused.gif

oder gibt es eine tolle Funktion die automatisch nach dem Wort "Maus" sucht und das dann im Index einfügt?
Würde ja unglaublich viel Zeit sparen!


Schon mal vielen lieben Dank an euch!! Steffi
  View user's profile Private Nachricht senden
XSchinkenX

Dabei seit: 25.01.2004
Ort: Mars
Alter: -
Geschlecht: -
Verfasst Mi 10.08.2005 11:30
Titel

Antworten mit Zitat Zum Seitenanfang

Ich hab mir interessehalber maln VBA-Makro dafür zusammenbasteln lassen, damit kannst du Suchworte in Word mit XE-Feldern versehen:

Code:
Sub joshi()
Dim r As Range
Dim Suchwort As String
Suchwort = InputBox("Suchwort eingeben", "Index")
Set r = ActiveDocument.Range
r.Find.ClearFormatting
With r.Find
 .Text = Suchwort
 .Forward = True
 .Wrap = wdFindStop
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 While .Execute
   r.Collapse wdCollapseEnd
   r.Fields.Add Range:=r, Type:=wdFieldEmpty, Text:= _
        "XE " & Suchwort, PreserveFormatting:=False
   r.Collapse wdCollapseEnd
   r.MoveStart wdCharacter, Len(Suchwort) + 4
 Wend
End With
End Sub

  View user's profile Private Nachricht senden Website dieses Benutzers besuchen
quergeist

Dabei seit: 16.06.2006
Ort: -
Alter: -
Geschlecht: -
Verfasst Fr 16.06.2006 16:36
Titel

Antworten mit Zitat Zum Seitenanfang

hühott, das geht noch viel einfacher und ohne skript:

wort markieren --> neuer seitenverweis (im index-fenster) --> schaltfläche "alle hinzufügen"
  View user's profile Private Nachricht senden
avsch

Dabei seit: 10.10.2006
Ort: Heidelberg
Alter: -
Geschlecht: Männlich
Verfasst Di 10.10.2006 09:22
Titel

Antworten mit Zitat Zum Seitenanfang

quergeist hat geschrieben:
hühott, das geht noch viel einfacher und ohne skript:

wort markieren --> neuer seitenverweis (im index-fenster) --> schaltfläche "alle hinzufügen"


Könntest mir bitte jemand sagen wo diese "Schaltfläche" "Alles hinzufügen" (Index) ist. Bin beim Einarbeiten und finde das einfach nicht.
Danke!!!!!!
  View user's profile Private Nachricht senden
 
Ähnliche Themen indesign-index, photoshop-s/w-grafik
Probleme bei Generierung eines Index in InDesign
[InDesign CS] Wie erstellt man einen zweiten Index?
DRINGEND: InDesign-Index ohne Fußnoten
[Buchfrage] "Idea Index" & "Layout Index"
Quark vs. InDesign - Ist ein Quark-Index konvertierbar?
Neues Thema eröffnen   Neue Antwort erstellen
MGi Foren-Übersicht -> Software - Print


Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.