Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak  (gelezen 5136 keer)

0 leden en 1 gast bekijken dit topic.

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Beste,

hopelijk kunnen jullie helpen.  Ik vraag misschien nog net iets te veel van WORD  ???

In ieder geval ...
Ik wil het voor ons vereenvoudigen zodat we enkel moeten invullen en dat het er daarna gewoon uitrolt zoals het moet.
Ik heb alleen een probleem met de keuzelijst.  Het is OF optie 1 of optie 2 maar ...
Optie 2 is te lang en past niet in de vervolgkeuzelijst
en in beide opties dienen ook nog een aantal zaken ingevuld te worden.

Is er iemand die hiermee kan helpen?

 _/-\o_ Jann
Mvg, Janna

[Office 2019]

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak
« Reactie #1 Gepost op: 06 april 2023, 09:51:30 »
Na nog wat zoeken kreeg ik via ChatGPT een code die mijn probleem zou kunnen oplossen.  Ik kan het echter nog niet controleren aangezien er een foutmelding komt op ddList.DefaultValue = "Kies een optie" 

Iemand?
Ik weet ook niet of dit een oplossing zou zijn voor mijn probleem.  Ik heb zo'n vermoeden van niet want ik denk dat dit gewoon een macro is van het maken van een dropdown-keuzelijst.


Sub CreateDropDownList()
    Dim ddList As DropDown
    Dim rngList As Range
    Dim arrList() As String
    Dim i As Long
   
    'Definieer de tekst voor de vervolgkeuzelijst
    arrList = Split("Lange tekst 1;Lange tekst 2;Lange tekst 3;Lange tekst 4;Lange tekst 5", ";")
   
    'Maak een nieuw bereik voor de vervolgkeuzelijst
    Set rngList = ActiveDocument.Range(Start:=0, End:=0)
   
    'Voeg de tekst in het bereik in als afzonderlijke alinea's
    For i = 0 To UBound(arrList)
        rngList.Text = arrList(i) & vbCrLf
        rngList.Collapse wdCollapseEnd
    Next i
   
    'Maak een vervolgkeuzelijst en wijs het bereik met de tekst toe
    Set ddList = ActiveDocument.ContentControls.Add(wdContentControlDropdownList, rngList)
   
    'Stel de eigenschappen van de vervolgkeuzelijst in
    ddList.DefaultValue = "Kies een optie"
    ddList.DropdownListEntries.Item(1).Select
    ddList.Tag = "DropDownList1"
End Sub
Mvg, Janna

[Office 2019]

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak
« Reactie #2 Gepost op: 06 april 2023, 11:11:44 »
Hallo Jannacy,

Je openingspost is al een week oud, en er is nog geen enkele reactie, dat moet wel betekenen dat het niet al te evident is...
Zelf ben ik net dat tikkeltje meer met Excel dan met Word bezig, dus ik zie het ook niet meteen, en je had zelf ook al een vermoeden dat je mogelijk te veel van Word verwachtte.
Daarom: mag het geen totaal andere benadering zijn? In je Word-document moeten de gegevens (naam, datum, enz.) nog effectief ingetikt worden, neem ik aan? Terwijl je die allicht al ergens hebt staan? Als dat in een Excelbestand zou zijn is er een oplossing in zicht, want je kan van daaruit rechtstreeks Word-documenten maken, en zonder het risico op tikfouten.

Trouwens, als die Word-documenten enkel dienen om afgedrukt te worden (?) kunnen we stellen dat je ze niet eens nodig hebt en je alles in Excel zelf propertjes kan laten samenstellen.

Laat het maar even bezinken  ;)

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak
« Reactie #3 Gepost op: 06 april 2023, 14:22:50 »
Hoi Molly,

bedankt voor je reactie  :thumbsup: 
De methode die jij van excel voorstelt via samenvoegen, daar had ik ook al aan gedacht en mogelijk is dit inderdaad ook een optie.
Ik heb het dus anders opgelost.  Ik heb de tekst in stukken gekapt en er 2 keuzelijsten voor en na gezet.  Zo te zien heeft het een juist effect en kan ik hiermee verder.  (zie bijlage)

Deze post mag dus afgesloten worden.

Groetjes,
Jann
Mvg, Janna

[Office 2019]

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak
« Reactie #4 Gepost op: 06 april 2023, 17:21:31 »
Hallo Jann,

Altijd leuk als het werkt, natuurlijk :thumbsup:

Dus in de eerste plaats als demo, al valt nooit uit te sluiten dat je ooit van methode zal willen veranderen ;), hierbij een eerder rudimentair voorbeeldje (je zou bv. ook nog extra controles kunnen inbouwen en met de opmaak spelen) hoe ik het voor mezelf zou aanpakken.
Uitgangspunt is dat zowel het Excel-document als het Word-sjabloon in dezelfde map staan, en dat daar ook de afgewerkte Word-documenten komen (maar dat is allemaal aanpasbaar). In het sjabloon zou je vooraf nog vaste gegevens kunnen zetten (eigen vzw-gegevens, logo...).
Dan moet je er nog enkel op letten dat alle nodige verwijzingen aangevinkt staan (zie 'foto').

Ben nu toch benieuwd of deze werkwijze jou kan bekoren :)

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline snb

  • Lid
  • *
  • Berichten: 30
Re: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak
« Reactie #5 Gepost op: 09 april 2023, 22:20:57 »
Waarom niet een keuzelijst met korte aanduidingen ?
Bij sluiten van de keuzelijst een macro laten lopen om de gekozen tekst aan te vullen.
Een omweg via Excel lijkt me eerder een doodlopende.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: formulier met mogelijk keuzelijst tekstvak en invulveld in tekstvak
« Reactie #6 Gepost op: 10 april 2023, 10:51:56 »
@ snb,

Een doodlopende? ???
Als we beginnen bij de volgens mij 'tamelijk redelijke' veronderstelling dat de gegevens al ergens geregistreerd staan, en dan is het vervolgens evenmin vergezocht dat dit in Excel is, al hebben we daar van TS geen antwoord op gekregen, dan elimineren we de interactie tussen gebruiker en Word volledig, en kan alles worden afgewerkt met één klik op een 'Excel-knop'.
Ik heb die methode overigens enkel voorgesteld als alternatieve werkwijze en er de voorgaande voorwaarde bij aangestipt.
In jouw werkwijze moeten alle variabele gegevens nog steeds door de gebruiker in het Word-document worden ingevuld, niet?
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

 


www.combell.com