Formulierveld (automatisch) opnemn in voettekst

L

laforge2

Gebruiker
Lid geworden
11 jan 2007
Berichten
62
Hallo,

Op een voorblad wordt een formulierveld ingevuld. Dat kan zijn confidentieel, intern gebruik of zeer geheim.
Nu wil ik dat de waarde in de voettekst wordt opgenomen.
Kan dat.
Ik zoek me suf, maar kom er niet uit.
Mag ook in VBA.

In het voorbeeld zie je een gemaakte fomulierveld met invoervak en in de voetteskt dat daar de waarde moet komen te staan.
Ik wek zelf met word 365
Helaas heb ik niet meer informatie.

Groetjes
Peter
 

Bijlagen

laforge2 zei:
Ik zoek me suf, maar kom er niet uit.
Klik om te vergroten...
Wellicht zoek je op de verkeerde plek (mijn Word cursus nog niet gevonden?) :). Ik heb (nog) niet naar je document gekeken, maar de oplossing is relatief simpel, en doe je zonder programmeren.

Een formulierveld (het oude type) heeft namelijk een aantal nuttige eigenschappen. Om te beginnen: het heeft een optie <Bladwijzernaam>. Die wordt sowieso standaard door Word ingevuld, maar handiger is natuurlijk om daar een eigen naam aan te geven die logischer is (txtSoort bijvoorbeeld).
Verder vind je nog twee selectievakjes, waarvan de optie <Berekenen bij afsluiten>. Die zou ik sowieso aanvinken.

Dan deel twee van de oplossing: de voettekst. Dat is net zo simpel: dat kun je oplossen met een Veld. En wel een REF veld. De makkelijkste manier om die te maken is om in de voettekst op <Ctrl>+F9> te drukken (je krijgt dan twee accolades die het veld vormen, en daar het volgende te typen (uitgaande van het voorbeeld hierboven): (tussen de accolades) "REF txtSoort". Vervolgens druk je op <F9> om het veldresultaat te zien. That's it.

Velden worden in Word niet altijd automatisch bijgewerkt (vandaar het vinkje dat je moet aanzetten), maar sowieso worden alle velden bijgewerkt als je een document afdrukt, of in een Afdrukvoorbeeld bekijkt. En ook bij het openen worden de velden bijgewerkt. Dus als je het resultaat niet gelijkmaker, is er nog niks aan de hand.
 
Deel 1 uitgevoerd, maar als ik kies voor "keuzelijst met invoervak" bij de oudere hulpprogramma's, dan kom ik idd tegen wat jij beschrijft.
Ik kan echter geen keuze maken, de eerste daar blijft het op staan.
Ook het bijwerken, ik moet op de voettekst gaan staan en dan op F9 drukken anders werkt het niet.
Wel jammer, was de oplossing geweest die ik zoek.
 
Laatst bewerkt:
Je moet, als je een keuzelijst gebruikt, die wél in een beveiligde sectie zetten, anders werkt hij niet. De essentie van een formulier is immers dat je maar op hele specifieke delen (keuzelijsten, selectievakjes, tekstvakken) informatie kan invoeren zodat de vaste informatie op dat formulier niet verandert.
 
Ik heb het document beveiligd, secties gemaakt en beveligt.
Werkt, voettekst wordt keurig bijgewerkt.
Echter als ik een andere keuze maak, dna wordt de voettekst dus niet bijgewerkt.
Ik kan er ook niet komen omdat het document vergrendeld is.
F9 drukken reageert ook niet.
Ik vermoed dat het dus niet zo simpel is als het lijkt.
 
Met VBA:
Code: 
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    With ThisDocument
        .StoryRanges(9).Text = ContentControl.Range.Text
    End With
End Sub
 
Nogmaals, en ik heb dat al geschreven (goed lezen is zó belangrijk ;)): velden worden automatisch bijgewerkt als je een afdrukvoorbeeld opent, een document print of het document opent nadat je het hebt gesloten. Er zijn bar weinig redenen te bedenken waarom je dat zou automatiseren, bijvoorbeeld met de macro die snb heeft gepost. Overigens hebben we het hier ook niet over een ContentControl, maar over een ouderwetse keuzelijst (toch?). ContentControls zijn namelijk niet zonder VBA bij te werken. Maar vul maar wat in, en bekijk het Afdrukvoorbeeld.

Het helpt ook overigens als je in de opties bij <Weergave> het vinkje zet bij <Velden bijwerken voor afdrukken>.
 
Had TS ook verteld dat-ie beter een 'oud' formulierobject kon gebruiken. Dat heeft immers een bladwijzernaam en is simpel in te bouwen. Maar ja, als er niet wordt geluisterd.... Ik kruip weer in mijn kist, en kom er om 12:00 wel weer uit :).
 
Hoi Octa,

Ik had niet begrepen dat je dan een afdrukvoorbeeld moest doe ofzo.
Getest en het werkt, dus zonder VBA.
Hier kan ik verder mee.
Hartelijk bedankt iedereen voor de aangedragen oplossingen.
OctaFisch, jij bedankt voor de tijd en de uiteindelijke oplossing voor mij.
 
te vroeg gejuichd.
De oplossing van Octa werkt goed, alleen als je afdrukken (of voorbeeld) kiest.
Niet bij het afsluiten en openen.
Bericht automatisch samengevoegd:

@snb. je oplossing kan ik niet gebruiken omdat het document is beveiligd.
Of moet ik dan juist de nieuwe type invoerveld kiezen en niet beveiligen?
 
Laatst bewerkt:
Heb je de opties die zorgen voor het automatisch bijwerkenwel aangezet? Ik heb er nooit problemen mee. Overigens kun je met twee sneltoetsen altijd handmatig bijwerken: <Ctrl>+<a> (alles selecteren) en <F9> (velden bijwerken). Overigens zie ik het nut niet van Word documenten die nooit worden afgedrukt :).
 
Ja, die optie heb ik aangezet.
Ik zal de sneltoetsen nog uitproberen morgen.
Omdat het bij te werken veld in de voetnoot staat en het formulier beveiligd is, vraag ik me af of CTRL+A wel zal werken.
Alleen F9 werkt niet in ieder geval.

We proberen juist zo min mogelijk af te drukken en zoveel mogelijk digitaal te weren.
Beter voor het milieu.
 
Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan