[Word] IF constructie rond zoekresultaat*

[Adelbert]

Hallo,

Ik heb een probleempje met een document waarvan een bepaalde selectie een andere font grote moet krijgen.

Ik had dit altijd als volgt opgelost:

code:

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "zoekterm"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveDown Unit:=wdLine, Count:=6, Extend:=wdExtend
    Selection.Font.Size = 9
    Selection.HomeKey Unit:=wdLine
    Selection.Delete Unit:=wdCharacter, Count:=1

maar nu zijn er nieuwe formulieren die deze selectie niet hebben en dan wordt het gehele document aangepast. Graag wil ik toch dezelfde macro blijven gebruiken.

Is het mogelijk om met een IF functie te kijken of deze tekst in het document te vinden is en als dat niet het geval is geen actie te ondernemen?

Als iemand mij een schop in de goede richting wil geven heel graag.

[BtM909]

Slimmer is om gewoon een bookmark te maken en deze op te vragen en if exists de font size te vergroten

Je zou kunnen uitzoeken wat er gebeurt als er niks wordt gevonden. Wat gebeurt er als je een macro opneemt en je zoek item niet vind? Wat voor error wordt er gethrowed

[Adelbert]

Dan vervangt ie alles

[Lustucru]

Ga op execute staan, druk op F1 en lees:

Met deze methode kunt u de opgegeven zoekactie uitvoeren. Als de zoekactie succes heeft, wordt de waarde True als resultaat gegeven. Boole-waarde

Dat moet toch genoeg zijn?

[Adelbert]

Dus is moet met een Boolean gaan werken.

Ik snap de werking ervan wel maar als ik deze toevoeg gaat het iederen keer mis.

[urk_forever]

Zucht,

Visual Basic:

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "zoekterm"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    if Selection.Find.Execute then
      Selection.MoveDown Unit:=wdLine, Count:=6, Extend:=wdExtend
      Selection.Font.Size = 9
      Selection.HomeKey Unit:=wdLine
      Selection.Delete Unit:=wdCharacter, Count:=1
    end if

[F_J_K]

Wat gaat er mis, met welke meldingen / symptomen, wat voor code heb je dan en waar vermoed je het probleem?

Overigens zou je kunnen overwegen om niet te zoeken op een bepaalde tekst. En belangrijker: voortaan te werken met opmaakprofielen en niet met de hand opmaak aan te passen.

edit:
Of het wordt gewoon voorgezegd

[ Voor 7% gewijzigd door F_J_K op 18-03-2008 13:22 ]

[Adelbert]

F_J_K schreef op dinsdag 18 maart 2008 @ 13:21:
Wat gaat er mis, met welke meldingen / symptomen, wat voor code heb je dan en waar vermoed je het probleem?

Overigens zou je kunnen overwegen om niet te zoeken op een bepaalde tekst. En belangrijker: voortaan te werken met opmaakprofielen en niet met de hand opmaak aan te passen.

edit:
Of het wordt gewoon voorgezegd

Klopt wat je zegt. Echter is dat in mijn situatie niet mogelijk omdat het document door een applicatie gegenereerd wordt en er voorheen geen opmaak meegegeven kan worden.