Output word wizzard op nieuwe regel laten beginnen

[Flicc]

Hallo,

Ik loop sinds een week stage en voor mijn stage moet ik word templates maken, de templates trekken benodigde gegevens uit een database, en zeer specifieke gegevens worden door middel van een wizzard in word ingevoerd. So far so good..

Wat ik niet voor mekaar krijg is om de output van een wizzard op een nieuwe regel te laten beginnen. Ik gebruik de volgende code voor de wizzards:

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = _
            "uur per week, de werktijden zijn van"
        .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:=2
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "FILLIN  ""werktijden"" ", _
         PreserveFormatting:=True

The count:=2 code betekent als ik het goed begrijp, 2 spaties na de tekst waarnaar gezocht word, nu kan ik natuurlijk het aantal spaties zo instellen dat de tekst op een nieuwe regel begint, maar dat is natuurlijk geen oplossing. Ik heb (nog) niet zo veel verstand van de VB, dus uitleg graag op een basic niveau

Bij voorbaad dank,

Flicc

 

[snb]

Gebruik voor het invullen van gegevens door een gebruiker een Userform in VBA.
De formulieropties van Word (fields Fillin) zijn amateuristische hulpmiddelen voor wie geen VBA-beheerst.

In jouw code kan aardig gewied worden; 3 regels zijn voldoende.

Selection.Find.Execute "uur per week, de werktijden zijn van"
Selection.Movedown wdParagraph
Selection.Fields.Add Selection.Range, wdFieldEmpty, "FILLIN  ""werktijden"" "

En bij voorbaat schrijf je zo.

 

[Flicc]

Mag ik u zeer bedanken voor de hulp

Code werkt perfect, de oplossing van schrijver van de code was namelijk
"regel uitvullen met tekst en dan de tekst wit maken", wat ik natuurlijk niet kon accepteren. Enige nadeel is dat ik nu 30 sjablonen opnieuw ga maken met deze verbeterde code

Nogmaals mijn dank!