Suchen und ersetzen Funktion, verbesserung

Moderator: ModerationP

Suchen und ersetzen Funktion, verbesserung

Beitragvon wmf » 12. Jun 2014, 11:17

Liebe Forenmitglieder,

ich bin gerade dabei in völliges Neuland für mich vorzustoßen - VBA in Word.
Ich habe die Aufgabe, dass im Header der Dokumentenname angegeben werden muss! Ich hatte das so vor, dass ich da eine Modell-nummer einschreibe, diese wird gesucht und durch eine vom Ersteller definierten Dokumentennummer ersetzt wird.
Das klappt auch soweit ganz gut.
Allerdings ändert der komischerweise immer das Format. Aus normaler Schrift wird normale Schrift in FETT. Das soll nicht sein!
Ich hänge mal den Code an, vielleicht könnt ihr ja was daraus sehen?

Vielen Dank im Voraus!

WMF
Code: Alles auswählen
Public Sub ErsetzeKöpfe()
    Dim sec As Section
    Dim suche As String
    Dim ersetze As String
   
    ersetze = InputBox("Wie lautet der Dokumententitel?")
    For Each sec In ActiveDocument.Sections
        KopfErsetzen sec.Headers(wdHeaderFooterFirstPage).Range, suche, ersetze
        KopfErsetzen sec.Headers(wdHeaderFooterEvenPages).Range, suche, ersetze
        KopfErsetzen sec.Headers(wdHeaderFooterPrimary).Range, suche, ersetze
    Next  sec
End Sub

Private Sub KopfErsetzen(rng As Range, suche As String, ersetze As String)
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "abc"
        .Replacement.Text = ersetze
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
Ens Sub
wmf
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 12
Registriert: 12. Jun 2014, 11:11

Re: Suchen und ersetzen Funktion, verbesserung

Beitragvon Miss Marple » 12. Jun 2014, 12:18

Nur so auf die Schnelle: Füge hinter ".Replacement.Text = ersetze" ein ".Replacement.Font.Bold = False" ein. Vielleicht war es das dann schon.

Gruß MM
Miss Marple
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1568
Registriert: 24. Jan 2014, 08:13
Wohnort: 52° 15' 53" N, 10° 31' 26" E

Re: Suchen und ersetzen Funktion, verbesserung

Beitragvon wmf » 12. Jun 2014, 13:17

Astrein!

Danke für den Hinweis!
Hat geklappt:)

Viele Grüße,

wmf
wmf
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 12
Registriert: 12. Jun 2014, 11:11


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast