EliasAmado
Gebruiker
- Lid geworden
- 8 mrt 2005
- Berichten
- 33
Beste forumleden,
Ik heb het volgende probleem:
Ik heb een aantal brieven waarop de voettekst en de koptekst bewerkt moeten worden.
De koptekst en de voettekst komen uit een selectielijst (listbox) die in een aparte sjabloon (formulier met een listbox) opgenomen is. Het formulier met de selectielijst heb ik aan een werkbalk, werkbalk opgeslagen in mn normaal.dot, gehangen, zodat aanroepbaar is binnen alle brieven.
Het bewerken van de koptekst gaat perfect. Vervolgend gebruik ik dit stukje code om de cursor in de voettekst te krijgen:
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Dit gaat ook nog goed, maar vervolgens als onderstaande stukje code gerund wordt:
Selection.GoTo What:=wdGoToTable, Which:=wdGoToAbsolute, Count:=1
Deze heb ik ook geprobeerd:
Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1
Dan gaat gaat de cursor in een andere tabel in het document staan i.p.v. in de tabel van de voettekst van het document.
Weet iemand hoe ik de cursor in de juiste tabel (dus de tabel in voettekst) krijg?
Bijgevoegd Zie (*.zip) de 3 bestanden (Koptekst_ECD_Brieven.dot, hierin zit het formulier, Afdelingen.ini en Normal.dot, hierin zit het werkbalk met de knop) die gebruikt worden voor dit projectje.
Alvast dank.:thumb:
Gr,
Elias
Ik heb het volgende probleem:
Ik heb een aantal brieven waarop de voettekst en de koptekst bewerkt moeten worden.
De koptekst en de voettekst komen uit een selectielijst (listbox) die in een aparte sjabloon (formulier met een listbox) opgenomen is. Het formulier met de selectielijst heb ik aan een werkbalk, werkbalk opgeslagen in mn normaal.dot, gehangen, zodat aanroepbaar is binnen alle brieven.
Het bewerken van de koptekst gaat perfect. Vervolgend gebruik ik dit stukje code om de cursor in de voettekst te krijgen:
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Dit gaat ook nog goed, maar vervolgens als onderstaande stukje code gerund wordt:
Selection.GoTo What:=wdGoToTable, Which:=wdGoToAbsolute, Count:=1
Deze heb ik ook geprobeerd:
Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1
Dan gaat gaat de cursor in een andere tabel in het document staan i.p.v. in de tabel van de voettekst van het document.
Weet iemand hoe ik de cursor in de juiste tabel (dus de tabel in voettekst) krijg?
Bijgevoegd Zie (*.zip) de 3 bestanden (Koptekst_ECD_Brieven.dot, hierin zit het formulier, Afdelingen.ini en Normal.dot, hierin zit het werkbalk met de knop) die gebruikt worden voor dit projectje.
Alvast dank.:thumb:
Gr,
Elias
