Hallo,
 
Ik maakte de bijgaande macro in WORD om in een reeks identieke lijnen onnodige gegevens op te ruimen, maar zoals het nu is moet ik lijn per lijn de toetsencode ingeven om de macro uit te voeren.
Kan jij mij soms helpen met de nodige aanpassingen om deze opdracht te aten uitvoeren van het begin tot aan het einde van het te bewerken document ?
Bedankt voor de aandacht en de eventuele hulp.
 
Etienne
 
DE MACROTEKST IS :
 
Sub inhoudopruimen()

'

' inhoudopruimen Macro

' Macro opgenomen op 02/11/2003 door etienne waelkens

'

    Selection.Extend

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = ":"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.Find.Execute

    Selection.MoveRight Unit:=wdCharacter, Count:=3

    Selection.Delete Unit:=wdCharacter, Count:=1

    Selection.EndKey Unit:=wdLine

    Selection.MoveRight Unit:=wdCharacter, Count:=1

   

   

End Sub

 
 

Aan powerkite

ik volgde je voorstel in een zekere zin en met succes;
Nu ben ik nog op zoek naar de instructies om een paar zaken toe te voegen  :
1) een volgende teken selecteren
2) controleren of dit geselecteerd teken een paragraafteken is (ee, lege paragraaf)
3) indien dit zo is : de macro afsluiten
4) indien dit niet zo is de opruimbewerking verder zetten
tot punt 1, 2 en 3 bereikt is

Weet jij er raad mee ?

Alvast bedankt voor de aandacht (het is de enige op mijn vraag tot nog toe !)

Etienne