Voer Script Uit In Alle Ranges

Status
Niet open voor verdere reacties.
L

Luccl

Gebruiker
Lid geworden
27 mei 2021
Berichten
13
Beste,

Kan iemand mij helpen met de VBA code het werkt maar enkel in 1 range niet in voetnoten en eindnoten
"Markeer_opmaak_body" is een Vba script dat ik wil aanroepen in alle ranges

Code: 
Sub Markeer_opmaak2()
Dim rng As Range
    For Each rng In ActiveDocument.StoryRanges
        rng.Select
        Application.Run "Markeer_opmaak_body"
    Next rng
End Sub

Dit is een deel van het "Markeer_opmaak_body" script

HTML: 
Sub Markeer_opmaak_body()
Application.ScreenUpdating = False


     ' Find bold_italic
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Font.Bold = True
        .Font.Italic = True
        .Font.Underline = False
        .Font.SmallCaps = False
        .Font.AllCaps = False
        .Replacement.ClearFormatting
        .Replacement.style = ActiveDocument.Styles("Z_bold_italic")
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
     
    ' Find italic
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Font.Italic = True
        .Font.Bold = False
        .Font.Underline = False
        .Font.SmallCaps = False
        .Font.AllCaps = False
        .Replacement.ClearFormatting
        .Replacement.style = ActiveDocument.Styles("Z_italic")
        .Forward = True

        .Wrap = wdFindContinue
        .Format = True
        .Execute Replace:=wdReplaceAll
    End With
Application.ScreenUpdating = True
End With

kan het hieraan liggen?

Alvast bedankt voor de hulp!
 
Laatst bewerkt:
Ik krijg de indruk dat je niet helemaal begrijpt wat je gekopieerd hebt.
Heb je je 'inlieiding in VBA' al uit ?
Daar ligt het dus aan.
 
Laatst bewerkt:
Dag snb,

daar heb je gedeeltelijk gelijk in ik kan wat code lezen en wat stukjes aan elkaar knopen maar dat is al
ondertussen heb ik de oplossing gevonden dan zij ChatGPT

HTML: 
Sub MarkeerAlleRanges()
    Dim rng As Range
    For Each rng In ActiveDocument.StoryRanges
        Application.ScreenUpdating = False
        ' Find bold_italic
        With rng.Find
            .ClearFormatting
            .Font.Bold = True
            .Font.Italic = True
            .Font.Underline = False
            .Font.SmallCaps = False
            .Font.AllCaps = False
            .Replacement.ClearFormatting
            .Replacement.Style = ActiveDocument.Styles("Z_bold_italic")
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .Execute Replace:=wdReplaceAll
        End With
        Application.ScreenUpdating = True
    Next rng
End Sub

toch bedankt voor de hulp
 
Laatst bewerkt:
Ik zou niet teveel geld aan ChatGPT uitgeven als ik jouw was, want deze code is héél eigenaardig… En huur ze niet in als programmeur in de toekomst, maar blijf gewoon naar HelpMij komen, dan krijg je geheid betere code.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan