Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
ersetzen liste von wörtern durch kapitälchen in fußnoten
zurück: Bild mit Makro einfügen - Größe ändern weiter: Problem mit automatischer Sortierung (VBA und Makro) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
27. Feb 2010, 21:11
Rufname:

ersetzen liste von wörtern durch kapitälchen in fußnoten - ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

hallo!
hab ein super makro gefunden, mit dem man eine Liste von WÖrtern im Hauptdokument formatieren kann. Ich möchte eine Liste von Autoren in Kapitälchen setzen. Allerdings muss das auch in den Fußnoten geschehen. Jemand eine Idee?
grüße
rüdiger
Code:
Sub kapitälchen()
Dim oDoc As Document
Dim rDoc As Document
Set oDoc = ActiveDocument
Documents.Open ("c:\bib.doc")
Set rDoc = ActiveDocument
a = rDoc.Tables(1).Rows.Count
For i = 1 To a 'Wenn Tabelle Überschriftszeile hat: For i = 2 To a
b = Left(rDoc.Tables(1).Cell(i, 1).Range.Text, _
        Len(rDoc.Tables(1).Cell(i, 1).Range.Text) - 2)
c = Left(rDoc.Tables(1).Cell(i, 2).Range.Text, _
        Len(rDoc.Tables(1).Cell(i, 2).Range.Text) - 2)
With oDoc.Range.Find
    .Text = b
    .MatchCase = True
    .MatchWholeWord = False
    .Replacement.Font.SmallCaps = True
    .Replacement.Text = c
    .Execute Replace:=wdReplaceAll
End With
Next
rDoc.Save
rDoc.Close
Set rDoc = Nothing
Set oDoc = Nothing
End Sub
HermannL
Bisschen-was-Wisser


Verfasst am:
28. Feb 2010, 13:31
Rufname:
Wohnort: Köln


AW: ersetzen liste von wörtern durch kapitälchen in fußnoten - AW: ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

Moin Rüdiger,
lass die Routine noch mal über den Fußnotenbereich laufen (ungetestet):
Code:
.
.
.
With oDoc.Range.Find
.
.
Next
With oDoc.StoryRanges(wdFootNotesStory).Range.Find
.Text = b
.MatchCase = True
.MatchWholeWord = False
.Replacement.Font.SmallCaps = True
.Replacement.Text = c
.Execute Replace:=wdReplaceAll
End With
Next
rDoc.Save
.
.

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
Gast



Verfasst am:
28. Feb 2010, 14:14
Rufname:

AW: ersetzen liste von wörtern durch kapitälchen in fußnoten - AW: ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

danke für die antwort! klappt leider nicht.
hab das so zusammengeschrieben (bei den pünktchen kam ne fehlermeldung, also hab ich sie rausgenommen):
Code:
Sub kapitälchen()
Dim oDoc As Document
Dim rDoc As Document
Set oDoc = ActiveDocument
Documents.Open ("c:\bib.doc")
Set rDoc = ActiveDocument
a = rDoc.Tables(1).Rows.Count
For i = 1 To a 'Wenn Tabelle Überschriftszeile hat: For i = 2 To a
b = Left(rDoc.Tables(1).Cell(i, 1).Range.Text, _
Len(rDoc.Tables(1).Cell(i, 1).Range.Text) - 2)
c = Left(rDoc.Tables(1).Cell(i, 2).Range.Text, _
Len(rDoc.Tables(1).Cell(i, 2).Range.Text) - 2)
With oDoc.Range.Find
Next
With oDoc.StoryRanges(wdFootnotesStory).Range.Find
.Text = b
.MatchCase = True
.MatchWholeWord = False
.Replacement.Font.SmallCaps = True
.Replacement.Text = c
.Execute Replace:=wdReplaceAll
End With
Next
rDoc.Save
rDoc.Close
Set rDoc = Nothing
Set oDoc = Nothing
End Sub

Fehler kommt jetzt in der zeile Next:
Fehler beim Kompilieren: Next ohne For.
wenn ich die beiden zeilen rausnehme, kommt fehler in:
With oDoc.StoryRanges(wdFootnotesStory).Range.Find
beim wort Range: Methode oder Datenobjekt nicht gefunden.

(p.s. hab leider überhaupt keine ahnung von Programmiersprache)
noch eine idee?
grüße
rüdiger
HermannL
Bisschen-was-Wisser


Verfasst am:
28. Feb 2010, 15:08
Rufname:
Wohnort: Köln

AW: ersetzen liste von wörtern durch kapitälchen in fußnoten - AW: ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

Hallo,
die Pünktchen standen auch nur als Platzhalter für deinen Code. Jetzt versuch noch mal das hier:
Code:
Sub kapitälchen()
Dim oDoc As Document
Dim rDoc As Document
Set oDoc = ActiveDocument
Documents.Open ("c:\bib.doc")
Set rDoc = ActiveDocument
a = rDoc.Tables(1).Rows.Count
For i = 1 To a 'Wenn Tabelle Überschriftszeile hat: For i = 2 To a
    b = Left(rDoc.Tables(1).Cell(i, 1).Range.Text, _
    Len(rDoc.Tables(1).Cell(i, 1).Range.Text) - 2)
    c = Left(rDoc.Tables(1).Cell(i, 2).Range.Text, _
    Len(rDoc.Tables(1).Cell(i, 2).Range.Text) - 2)
        With oDoc.Range.Find
            .Text = b
            .MatchCase = True
            .MatchWholeWord = False
            .Replacement.Font.SmallCaps = True
            .Replacement.Text = c
            .Execute Replace:=wdReplaceAll
        End With
Next i
For Each FN In oDoc.Footnotes
    Set oRange = FN.Range
        With oRange.Find
            .Text = b
            .MatchCase = True
            .MatchWholeWord = False
            .Replacement.Font.SmallCaps = True
            .Replacement.Text = c
            .Execute Replace:=wdReplaceAll
        End With
Next
rDoc.Save
rDoc.Close
Set rDoc = Nothing
Set oDoc = Nothing
End Sub

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
Gast



Verfasst am:
28. Feb 2010, 18:27
Rufname:

AW: ersetzen liste von wörtern durch kapitälchen in fußnoten - AW: ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

hallo Hermann,

danke für deine Mühe! hab es durchlaufen lassen - es ersetzt aber immernoch nur die Namen im Hauptteil. Bin gerade am Drucken, jetzt eben ohne das Ersetzen. Wäre trotzdem interessant zu wissen, wie es gegangen wäre.. ;)
grüße
rüdiger
HermannL
Bisschen-was-Wisser


Verfasst am:
01. März 2010, 10:05
Rufname:
Wohnort: Köln

AW: ersetzen liste von wörtern durch kapitälchen in fußnoten - AW: ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

Moin Rüdiger,
ich hatte den Teil für die Fußnoten separat mit festen Werten getestet. Gerade ist mir aufgefallen, dass in dem Code die Tabellenwerte gar nicht ausgelesen werden. Ein letzter Versuch:
Code:
Sub kapitälchen()
Dim oDoc As Document
Dim rDoc As Document
Set oDoc = ActiveDocument
Documents.Open ("c:\bib.doc")
Set rDoc = ActiveDocument
a = rDoc.Tables(1).Rows.Count
For i = 1 To a 'Wenn Tabelle Überschriftszeile hat: For i = 2 To a
    b = Left(rDoc.Tables(1).Cell(i, 1).Range.Text, _
    Len(rDoc.Tables(1).Cell(i, 1).Range.Text) - 2)
    c = Left(rDoc.Tables(1).Cell(i, 2).Range.Text, _
    Len(rDoc.Tables(1).Cell(i, 2).Range.Text) - 2)
        With oDoc.Range.Find
            .Text = b
            .MatchCase = True
            .MatchWholeWord = False
            .Replacement.Font.SmallCaps = True
            .Replacement.Text = c
            .Execute Replace:=wdReplaceAll
        End With
Next i
oDoc.StoryRanges(wdFootnotesStory).Select
Set oRange = Selection.Range
Selection.Collapse(wdCollapseStart)
For i = 1 To a 'Wenn Tabelle Überschriftszeile hat: For i = 2 To a
    b = Left(rDoc.Tables(1).Cell(i, 1).Range.Text, _
    Len(rDoc.Tables(1).Cell(i, 1).Range.Text) - 2)
    c = Left(rDoc.Tables(1).Cell(i, 2).Range.Text, _
    Len(rDoc.Tables(1).Cell(i, 2).Range.Text) - 2)
    With oRange.Find
       .Text = b
       .MatchCase = True
       .MatchWholeWord = False
       .Replacement.Font.SmallCaps = True
       .Replacement.Text = c
       .Execute Replace:=wdReplaceAll
    End With
Next i
rDoc.Save
rDoc.Close
Set rDoc = Nothing
Set oDoc = Nothing
End Sub

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
Gast



Verfasst am:
12. März 2010, 22:13
Rufname:


AW: ersetzen liste von wörtern durch kapitälchen in fußnoten - AW: ersetzen liste von wörtern durch kapitälchen in fußnoten

Nach oben
       Version: Office 2007

wow, ich bin begeistert! funktioniert perfekt! Sofern ich noch einmal eine Arbeit zu schreiben habe, wird es mir eine große Hilfe sein.
danke!
viele grüße
rüdiger
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienkatalog: Liste zweispaltig abdrucken 1 Isel 224 29. Okt 2013, 19:31
Gast Serienkatalog: Liste zweispaltig abdrucken
Keine neuen Beiträge Word Serienbriefe: Verschiedene Namen automatisch in Liste 3 mitro 1648 07. Jan 2011, 11:15
charlybrown Verschiedene Namen automatisch in Liste
Keine neuen Beiträge Word Serienbriefe: Verknüpfungen von Wörtern - Kein Querverweis! 1 Sepp1234 718 19. Mai 2010, 12:40
mojos Verknüpfungen von Wörtern - Kein Querverweis!
Keine neuen Beiträge Word Serienbriefe: Adressen aus Excel Liste ziehen und nach Word exportieren 1 Schubi123 2960 24. Jun 2009, 16:50
charlybrown Adressen aus Excel Liste ziehen und nach Word exportieren
Keine neuen Beiträge Word Formate: Fußnoten rutschen auf nächste Seite 2 Magisterarbeit d. Grauens 2656 28. Nov 2008, 19:52
Gast Fußnoten rutschen auf nächste Seite
Keine neuen Beiträge Word Formate: Fußnoten/Formatvorlage Office 2007 8 Magisterarbeit d. Grauens 23904 19. Nov 2008, 11:21
Maulende Myrte Fußnoten/Formatvorlage Office 2007
Keine neuen Beiträge Word Formate: zweispaltiger Text bündig und dagegen Fußnoten separat 0 Saba2000 2125 10. Sep 2008, 18:16
Saba2000 zweispaltiger Text bündig und dagegen Fußnoten separat
Keine neuen Beiträge Word Formate: Fußnoten linksbündig 2 KnickKnack 1420 11. Dez 2007, 03:07
Hübi Fußnoten linksbündig
Keine neuen Beiträge Word Formate: Prob mit Abstand/Leerzeilen zw. Fußnoten und Fußzeile 9 Lulu 2750 12. Apr 2007, 15:58
Lulu Prob mit Abstand/Leerzeilen zw. Fußnoten und Fußzeile
Keine neuen Beiträge Word Formate: Fußnoten Formate 1 Blumenschein 917 16. Feb 2007, 18:26
Ina Fußnoten Formate
Keine neuen Beiträge Word Serienbriefe: ausgewiesene Liste wird verweigert 4 Ewald.A.Mösch 1229 13. Sep 2006, 14:20
Ewald A. Mösch ausgewiesene Liste wird verweigert
Keine neuen Beiträge Word Formate: Fußnoten Strich 2 00snider00 3738 07. Sep 2006, 12:00
00snider00 Fußnoten Strich
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum