[VBA] Word vervangen alleen binnen selectie

[Phoolie]

Weet iemand hoe ik in VBA kan aangeven dat ik alleen binnen een gemaakte selectie wil zoeken en vervangen. Ik heb dit geprobeerd, maar ik krijg het alleen voor mekaar om in het hele document te zoeken en vervangen.

Wanneer ik dit handmatig probeer krijg ik, nadat de selectie is doorzocht en waar nodig vervangen, de vraag of ik ook in de rest van het document wil zoeken en vervangen. Dit krijg ik echter in VBA niet voor mekaar.

Ik hoop dat iemand me hier mee kan helpen.

Alvast bedankt.

[Bud_s]

Je kan het gewoon ook als macro opnemen, maar kijk hieronder eens :-)

code:

Sub zoek()
'
' zoek Macro
' De macro is opgenomen op 3-10-2007 door Bud_s.
'

'
    Range("E6:F21").Select
    Selection.Replace What:="A", Replacement:="B", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Hier word dus "A" Vervangen door "B" in E6:F21

[Phoolie]

Bud_s schreef op woensdag 03 oktober 2007 @ 15:06:
Je kan het gewoon ook als macro opnemen, maar kijk hieronder eens :-)

code:

Sub zoek()
'
' zoek Macro
' De macro is opgenomen op 3-10-2007 door Bud_s.
'

'
    Range("E6:F21").Select
    Selection.Replace What:="A", Replacement:="B", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Hier word dus "A" Vervangen door "B" in E6:F21

Ja, maar dat werkt dus niet in Word. Tenminste, het is mij niet gelukt.

[Sleepie]

Opnemen van een macro in Word 2007 levert dit op.

Visual Basic:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "een"
        .Replacement.Text = "de"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub

Geen idee of het in oudere versies van Word ook werkt.

[Bud_s]

Wederom met de Macro Recorder :

code:

Sub zoek2()
'
' zoek2 Macro
' Macro opgenomen op 3-10-2007 door Bud_s'
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "A"
        .Replacement.Text = "B"
        .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

offtopic:
SPUIT11

[Phoolie]

Bud_s schreef op woensdag 03 oktober 2007 @ 15:14:
Wederom met de Macro Recorder :

code:

Sub zoek2()
'
' zoek2 Macro
' Macro opgenomen op 3-10-2007 door Bud_s'
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "A"
        .Replacement.Text = "B"
        .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

offtopic:
SPUIT11

Ik had ook al een Macro opgenomen, maar daar stond Selection niet voor .Find.Execute Replace

Het werkt nu.

Bedankt.

[Phoolie]

Helaas werkt het toch nog steeds niet, nog steeds wordt er vervangen door het hele document.

Iemand anders nog een idee?

[Verwijderd]

kijk eens naar het verschil tussen de 2 oplossingen : selection.wholestory geeft zelfs zonder de minste vba notie te hebben een hint dat het niet doet wat je wenst. dus is het de andere aangeboden oplossing die dit niet bevat.