Hallo,
Ik wil een ingevulde vragenlijst in WORD 2016 kritisch maken. dwz alle niet-aangekruiste tabelregels verwijderen. Dit lukt me in zoverre dat ik maar 1 regel tegelijk er uit haal. Ik wil dit tig keer kunnen herhalen tot ik de alleen de [x] aangekruiste regels over hou.
Ik ben zover gekomen:
Sub fmlkritischmaken()
'
' fmlkritischmaken Macro
'For i=1 to 500
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[ ]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Rows.Delete
End Sub
Volgens mij moet ik nog iets tussen Selection.Rows.Delete en End Sub zetten. Maar wat. Van alles geprobeerd, uit voorbeeld maar het lukt me nog niet.
Ik wil een ingevulde vragenlijst in WORD 2016 kritisch maken. dwz alle niet-aangekruiste tabelregels verwijderen. Dit lukt me in zoverre dat ik maar 1 regel tegelijk er uit haal. Ik wil dit tig keer kunnen herhalen tot ik de alleen de [x] aangekruiste regels over hou.
Ik ben zover gekomen:
Sub fmlkritischmaken()
'
' fmlkritischmaken Macro
'For i=1 to 500
Selection.Find.ClearFormatting
With Selection.Find
.Text = "[ ]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Rows.Delete
End Sub
Volgens mij moet ik nog iets tussen Selection.Rows.Delete en End Sub zetten. Maar wat. Van alles geprobeerd, uit voorbeeld maar het lukt me nog niet.