UserForm gegevens onthouden

[WRD Frank]

Hieronder het document zover.

ik loop alleen tegen het probleem aan omtrent het opslaan.

zodra ik een wijziging doe in het formulier of het bestand kan het document niet meer worden opgeslagen.
(vreemde is dat wanneer ik de code in "thisdocument" knip en plak het geheel wel kan worden opgeslagen)

Iemand ervaring mee?

Bekijk bijlage basis - rapport - kopie.docx

 

[snb]

Ik kan de bijlage niet openen in Word.

Een docx bestand bevat geen VBA code, terwijl je vraag daarover gaat.

 

[WRD Frank]

als je de extensie wijzigt naar een *.docm dan gaat het werken.
dat type bestand kan namelijk niet worden geupload

 

[snb]

Gebruikelijk is dan het bestand in te pakken: zip.
zoals hier:

1 diverse variabelen in het document ontbreken
2. het tekstvak 24 ontbreekt
3. zoek het verschil tussen thisdocument en activedocument uit
4. er zit een overbodige verwijzing in naar een niet bestaande template

 

[WRD Frank]

bedankt voor je snelle reactie.
Daar ga ik eens uitgebreid naar zoeken en kijken

 

[WRD Frank]

Jemig, dit is totaal anders dan ik had verwacht......

Private Sub UserForm_Initialize()
   sn = Split("Projectnummer.Rapportnummer.Status.datum.Gewijzigdedatum.typerapport.obj -Strnaam.obj -huisnr.obj -postcode.obj -plaats.inspectie -datum.naam -bewoner.tel -bewoner.bedrijf.bedr -straat.bedr -huisnr.bedr -postcode.bedr -plaats.bedr -tele.bedr -Email.contact.cont -Email.cont -tele.contact.cont -Email.cont -tele.adv -bedrijf.adv -straat.adv -huisnr.adv -postcode.adv -plaats.adv -tele.adv -Email.projectleider.Inspecteur.Inspecteur.Rapporteur", ".")
   For j = 0 To UBound(sn)
      Me("Textbox" & j + 1).Text = ActiveDocument.Variables(sn(j))

Even een vraagje over de aangegeven namen.
Waar refereren deze naar? Hoe weet Excel aan welke cel dit is gekoppeld.
Dit vraag is vooral toekomst gericht. Mocht er nog een cel tussen gevoegd moeten worden.
Dat was namelijk ook de rede dat ik die lijst met namen handig vond....

 

[snb]

Hoe weet Excel aan welke cel dit is gekoppeld.

Excel ??

Dit gaat toch over een Word-document ???

 

[WRD Frank]

sorry even een korte wegtrekker.......kwam denk door het warme weer.

 

[snb]

Veel blijven drinken en vooral glucose & natrium erin.

 

[WRD Frank]

Maar ik ben nog steeds benieuwd naar de begrijpelijkheid van de vba....


Even een vraagje over de aangegeven namen.
Hoe weet Word welke "textbox" welke Variables bevat?
Hier vooral nieuwsgierig naar ivm het eventueel aanpassen in de toekomst.

dank

 

[snb]

Omdat dat in de array sn staat.

 

[WRD Frank]

Ik ben de code gaan door lezen.....

als ik het goed begrijp is iedere textbox+1 de nieuwe doc.variable.

Dat zou in houden dat ik de textbox24 die ontbrak wel moet toevoegen.....

Zit ik op de goede weg?

 

[snb]

Exact !

 

[WRD Frank]

Yes......nu is het geheel weer leuk om op te pakken....


alleen hoe komt het dat wanneer een veld wordt geupdate dit niet gebeurd in een kop en/of voettekst?

 

[snb]

Het gebeurt niet, omdat dat een andere, zelfstandige 'laag' is in Word, anders dan de hoofdtekst (dat geldt bijv. ook voor de voetnoten. etc.)
Zo'n laag heet in Word 's VBA een 'storyrange'.

Updating in alle 'storyranges" gaat dan zó:

For each it in thisdocument.storyranges
  it.fields.update
Next