Word en automatische nummering in een tabel

Status
Niet open voor verdere reacties.
O

onkeltje

Gebruiker
Lid geworden
5 jul 2008
Berichten
23
Dag iedereen,

ik heb in Word2007 een tabel gemaakt van tien cellen.
In iedere cel van die tabel heb ik een texbox geplaatst.
Die texboxen bevaten elk een nummer (van 1 tot 10)
Nu heb ik ook een button geplaatst in het document.
Bij die button staat de volgende code:
"Private Sub NumOp_Click()

txb1.Value = txb1.Value + 10
txb2.Value = txb2.Value + 10
txb3.Value = txb3.Value + 10
txb4.Value = txb4.Value + 10
txb5.Value = txb5.Value + 10
txb6.Value = txb6.Value + 10
txb7.Value = txb7.Value + 10
txb8.Value = txb8.Value + 10
txb9.Value = txb9.Value + 10
txb10.Value = txb10.Value + 10

End Sub"
Op deze manier wordt de nummering bij iedere button-klik met 10 verhoogt.
Dit werkt prima maar telkens voor ik een blad ga afdrukken moet ik dus
op die button klikken.
Op zich is dat natuurlijk niet zo erg maar toch wilde ik weten hoe ik die nummering
kon laten verlopen met bijvoorbeeld een "Before- of After-Print of iets dergelijks.
Op die manier zou ik dan iets anders kunnen doen i.p.v. altijd op dat knopje zitten klikken.
Wat denken jullie, is zoiets mogelijk of is dat te hooggegrepen voor VBA?

Alvast bedankt voor uw hulp.
Groetjes.
 
Wigi zei:
Hello

Ik heb eventjes gegoogled, en merk dat het mogelijk is:

http://www.theofficeexperts.com/forum/archive/index.php/t-374.html

MAAR... het is niet gemakkelijk. :eek:

Hier wel voorbeeldcode:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=104

Wigi
Klik om te vergroten...

Hartelijk dank voor de snelle reactie.
Ik heb ook lang gegoogeld maar jij bent daar duidelijk beter in ;-)
Ik ga dit in ieder geval heel snel proberen, als het lukt zal het en grote hulp voor mij zijn.
Nogmaals, alvast bedankt.
Groetjes.
 
Wigi zei:
Euhm... ik had gegoogled op: word vba beforeprint

Maar goed, als het maar werkt achteraf ;)
Klik om te vergroten...

Ik ben nu al een paar uur bezig geweest maar krijg dat ding niet in orde.
Als ik compileer geeft VB geen fouten.
Als ik laat uitvoeren tot aan de cursor werkt het perfect.
Maar of ik nu kies voor After- of Before-Print....nopes.
De routine luistert niet naar mijn printer of ziet niet wanneer de printer gedaan heeft :(
Zou dat iets te maken kunnen hebben met Word 2007?

Is er misschien iemand die de code uit mijn eerste post in die AfterPrint instructie kan zetten.
Ik weet wel...gewoon naapen is niet zo netjes is ook niet mijn gewoonte
maar nu zit ik toch echt vast.
In Delphi zou ik het waarschijnlijk wel vinden maar ik zit nu eenmaal vast aan dat Word-Document :(

Groetjes.
 
Intrigerende opzet: een tekstvak in iedere tabelcel.
Zonder tekstvakken zou wat je wil gerealiseerd worden met

Code: 
Sub verhoging()
  For Each cl In ActiveDocument.Tables(1).Range.Cells
    cl.Range = Val(cl.Range) + 10
  Next
End Sub

En als dat voor het afdrukken moet gebeuren:
Code: 
Sub BestandafdrStandaard()
  For Each cl In ActiveDocument.Tables(1).Range.Cells
    cl.Range = Val(cl.Range) + 10
  Next
  PrintOut True
End Sub

Er is meer te hoog gegrepen voor gebruikers van VBA dan voor VBA zelf.
Ik word nieuwsgierig hoe eenvoudig en compact je dit in Delphi gerealiseerd zou hebben.
 
Laatst bewerkt:
Er is meer te hoog gegrepen voor gebruikers van VBA dan voor VBA zelf.
Ik word nieuwsgierig hoe eenvoudig en compact je dit in Delphi gerealiseerd zou hebben.[/QUOTE]

Sorry maar ik heb het nergens gehad over eenvoudig en compact...zeker niet.
Ik schreef alleen dat ik daar waarschijnlijk wel een oplossing gevonden zou hebben.
Maar in dit geval kan ik helemaal niet naar Delphi grijpen wegens omstandigheden.

Ik ben nu bezig met uw oplossingen.
Ook hier gaat het fantastisch tijdens het compileren.
En als ik het prog laat lopen tot aan de cursor wordt het document zelfs afgedrukt.
Maar als ik mijn document afdruk zie ik nog ervoor nog erna iets gebeuren.
Enfin, ik probeer wel wat verder, als jullie het kunnen moet ik toch ook een oplossing kunnen vinden.

En anders moet mijn knopje maar blijven staan.
Toch bedankt voor het mee denken, ik vind dat gewoon geweldig.
Bedankt......groetjes.
 
Ik hoop dat je er niet overheen gelezen hebt, dat mijn macro alleen maar werkt als je geen tekstvakken in de tabel hebt staan (want die leken mij overbodig).
 
snb zei:
Ik hoop dat je er niet overheen gelezen hebt, dat mijn macro alleen maar werkt als je geen tekstvakken in de tabel hebt staan (want die leken mij overbodig).
Klik om te vergroten...

Nee hoor dat heb ik heel goed gelezen.
Als ik het stap voor stap uitvoer lijkt het ook te werken.
Mijn tabel is dan helemaal leeg, alleen het nummer staat er :(

Als ik het blad laat afdrukken gebeurd er verder niets.
Dus na of voor het afdrukken wordt de procedure niet uitgevoerd :(

Het zal wel aan mij liggen vrees ik maar voorlopig blijf ik nog effe verder zoeken.

Niettegenstaande vind ik het heel fijn dat je meedenkt, het spoort mij in ieder geval aan
om toch nog door te bijten en nog wat verder te zoeken.
Het moet toch ergens lukken dat kan volgens mij niet anders.

Groetjes.
 
Er zijn in Word 2 methodes om af te drukken:

Code: 
Sub [COLOR="blue"]BestandafdrStandaard[/COLOR]()
  For Each cl In ActiveDocument.Tables(1).Range.Cells
    cl.Range = Val(cl.Range) + 10
  Next
  PrintOut True
End Sub

Code: 
Sub [COLOR="Blue"]BestandAfdrukken[/COLOR]()
  For Each cl In ActiveDocument.Tables(1).Range.Cells
    cl.Range = Val(cl.Range) + 10
  Next
  PrintOut True
End Sub

En deze namen zijn afhankelijk van de ingestelde taal.
 
Laatst bewerkt:
snb zei:
Er zijn in Word 2 methodes om af te drukken:
Klik om te vergroten...

Excuseer mij voor de vraag maar heb je dit zelf al echt draaiend gezien?
Dus ik klik in Word op afdrukken, ik geef op 5 maal.
En dan wordt er voor of na dat het document wordt afgedrukt telkens 10 bijgeteld.
Bovendien blijft de andere inhoud (wat tekst en een afbeelding) van iedere cel staan.

Heb je dat al echt op die manier draaiend gezien?

Als dat zo is ben ik echt heel dom want hier krijg ik het zo niet voor elkaar.

Het enige wat hier draait is: als ik in VBA zelf op run klik wordt de inhoud van de cel verwijderd, er wordt in ieder cel 10 bijgeteld en het document wordt afgedrukt.

Maar ik blijf verder zoeken, er moet toch ergens een oplossing zijn.

Groetjes.
 
Ik heb het getest door het afdrukken te beginnen met het printicoontje in de menubalk.
Zie de bijlage
 

Bijlagen

Laatst bewerkt:
snb zei:
Ik heb het getest door het afdrukken te beginnen met het printicoontje in de menubalk.
Zie de bijlage
Klik om te vergroten...

Inderdaad indien je telkens op afdrukken klikt wordt de nummering afgedrukt.
Helaas kan ik geen aantallen opgeven en de andere inhoud van iedere cel
wordt netjes verwijderd.
Mijn tekst en mijn afbeelding zijn dan verdwenen.

Het gaat hier namelijk over bonnetjes voor een club.
Ik heb het op mij genomen om die te maken en ieder bonnetje te nummeren.
Dat is mij gelukt met die tekstboxen en een button, telkens goed voor één blad (10 bonnetjes).
Die moeten dan nog gesneden worden.
Daarom wilde ik graag bv. 10 vellen gelijk laten afdrukken dan kon ik ondertussen al verder knippen.
Maar dan moet wel de inhoud op ieder bonnetje blijven staan want daar gaat het juist om.
Een nummer alleen is niet genoeg :(

Groetjes.
 
Na nog een hele tijd het een ander te proberen
heb ik het nu toch maar opgegeven.

Of het is te moeilijk of ik ben te dom....ieder mag hier zelf invullen:)
Wat mij betreft mag er een slotje op.


Groetjes.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan