macro om alle afbeeldingen te zoeken en daar een stijl aan toe te kennen

[Paulpieter]

Hoi,

Ik zoek een macro om alle afbeeldingen in een document te voorzien van een bepaalde Wordstijl. Eenmalig is makkelijk: zoek op afbeelding en ken die stijl toe. Ook weet ik hoe je hier een macro van maakt, maar hoe laat je dit herhalen tot aan einde van document en dan stoppen?
Dank al vast!

Paul

 

[OctaFish]

Kwestie van de code ombouwen tot een loop. Ik zou zeggen: zet de macro er eens bij. Netjes opgemaakt met de CODE knop natuurlijk

 

[Paulpieter]

Hopelijk is het zo voldoende leesbaar:

Sub Schermafdruk()
'
' Schermafdruk Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Style = ActiveDocument.Styles("Schermafdruk")
Selection.TypeParagraph
End Sub

 

[Paulpieter]

Nu met 'Code'knop...

Sub Schermafdruk()
'
' Schermafdruk Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^g"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Style = ActiveDocument.Styles("Schermafdruk")
    Selection.TypeParagraph
End Sub