zoeken en resultaat behouden

[wilbert1967]

hallo

ik maak een macro

Sub zoekentel()
'
' zoekentel Macro
' Macro opgenomen op 12-5-2010 door Wilbert Mathijssen
'
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "002.001.0001.4.1"
        .Replacement.Text = "@"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "@"
        .Replacement.Text = "002.001.0001.4.1"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

maar ik wil graag het resultaat, het aantal wat wordt gevonden op slaan in een variable
hoe die ik dat?

mvg wilbert

 

[Superzeeuw]

Wilbert,

Wat is dan de toepassing daarvan?

 

[wilbert1967]

hoi

dat ik weet hoeveel bladzijden ik heb waar op dit voorkomt zodat ik die uit de tig bladzijde die het document heeft kan selecteren
mvg

 

[Superzeeuw]

Wilbert,

En dan nog weet ik niet wat je ermee wilt maar met de volgende code kun je de woorden tellen.

With Selection.Find
        .Text = "002.001.0001.4.1"
        Do While .Execute
            iCount = iCount + 1
            Selection.MoveRight
        Loop
        Msgbox iCount
End With

Overigens snap ik de code niet?
Eerst zet je "002.001.0001.4.1" om naar een "@" karakter en vervolgens alles weer terug????

 

[wilbert1967]

ja zo tel ik buiten een macro om
hoeveel keer 002.001.0001.4.1 voor komt
maar ik moet het wel terug zetten
want de rest van de macro zoekt er op en maakt er de bestandsnaam van

ik ga van de week de oplossing proberen

bedankt

wilbert

 

[Superzeeuw]

Wilbert,

Als je alleen wilt tellen is mijn stukje code meer dan genoeg.
Hoef je niet eerst alles om te zetten en vervolgens weer terug te zetten.