[VBA] Probleem met facturatie macro in Word

[CAP-Team]

Het probleem: bij mij op m'n werk gebruiken we word-macro's om de opmaak van onze facturen recht te breien.

In deze macro zit een routine die emballageregels uit de factuur moet verwijderen. Dit doet hij door te zoeken op **, want achter elke emballage staat **. Als hij dus ** kan vinden dan wordt de regel geselecteerd. Als nu in deze selectie ook 0,00 gevonden kan worden (gratis emballage) dan mag de regel verwijderd worden, en wordt er opnieuw gezocht naar **, enz.

Nu wil het geval dat emballage ook wel eens niet gratis is, en zolang emballage gratis is gaat het wel goed, maar het probleem treedt op als emballage bijvoorbeeld 10,00 kost, want dan vindt de macro wel 0,00 en wordt de regel verwijderd.

Ik dacht dus slim te zijn en i.p.v. op "0,00" naar " 0,00" te laten zoeken, maar dat werkt niet omdat er onderaan in de macro de else statement niet is ingevuld.

Dus kan hij "**" en " 0,00" vinden dan gaat het goed, en wordt de regel verwijderd.
Maar als er "**" gevonden wordt maar geen " 0,00" dan vliegt de macro in een loep.

Iemand een idee wat ik bij de else conditie moet zetten om hem op te laten houden met zoeken naar " 0,00" en naar de volgende "**" te laten zoeken?

Ik ben zelf niet zo thuis in dat VBA gedoe, ik kan de code wel teruglezen maar zelf programmeren lukt me niet zo in VBA...

code:

Do While .Execute(FindText:="**", Wrap:=wdFindStop, Forward:=True) = True
 ActiveDocument.Bookmarks("\line").Select
 Set srcRange = Selection.Range
 srcRange.Find.ClearFormatting
 With srcRange.Find
 .Replacement.ClearFormatting
 .Replacement.Text = ""
 .Forward = True
 .Wrap = wdFindStop
 .Format = False
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchAllWordForms = False
 .MatchSoundsLike = False
 If .Execute(FindText:="0,00", Wrap:=wdFindStop, Forward:=True) Then
  Selection.InsertBreak Type:=wdLineBreak
 Else
 End If
 End With
Loop

[Crazy D]

Probeer eens de waarde via Val() echt numeriek te maken, dan kun je 'm checken via
If Val(bedrag) = 0 Then....

Let alleen wel ff op dat dat alleen lekker werkt als de . of , in het bedrag gelijk is aan de windows instelling (that is, als je 0,00 doet met Val() maar in je windows is de . het decimaal teken, krijg je bij 0 wel wat je wilt, maar bij 10,00 wordt het een heel ander bedrag...)

[CAP-Team]

probleem is dus dat hij niet op een numerieke waarde zoekt maar of hij gewoon 0,00 in de tekst tegenkomt...

ik weet dus niet hoe hij weer uit het lusje kan springen als hij wel ** heeft gevonden maar geen " 0,00"

[CAP-Team]

*Schop* ^

[farlane]

id:

Als de regel tekst er (bijna) altijd hetzelfde uitziet kan je het ding parsen door op scheidingstekens(spaties) te zoeken oid, en veld xx gebruiken als het bedrag veld.

Deze is dan makkelijker te checken op zijn waarde, en waarschijnlijk is het een minder buggevoelige methode. (Mits je de parser goed schrijft natuurlijk )