Toon posts:

[VBA/Word] on next page actie *

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik ben bezig met een word project, zodra men naar een nieuwe pagina gaat moeten er diverse bedragen van die pagina worden opgeteld en bovenaan op de volgende pagina getoond worden.

Hoe kan ik zoiets realiseren ? is er een soort actie bij on next page of zoiets ?!

Kan iemand mij wat op gang helpen?! heb al gezocht op internet maar weining gevonden..

Alvast bedankt..

Verwijderd

Topicstarter
voor de volledigheid:

Deze code gebruik ik nu om de tabel overal op iedere pagina even hoog te hebben..

Alleen moet de laatste rij van iedere pagina een totaalbedrag worden...

code:
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub tabelaanpas()
 'Positie verticaal van de laatste rij op de pagina krijgen
  rijindex = ActiveDocument.Tables(3).Rows.Count
  ActiveDocument.Tables(3).Cell(rijindex, 4).Select
  Positie = Selection.Information(wdVerticalPositionRelativeToPage)
  Onderkant = CentimetersToPoints(21.4)
  verschil = Onderkant - Positie
  If verschil > 0 Then
    ActiveDocument.Tables(3).Rows(rijindex).Height = verschil
    ActiveDocument.Tables(3).Rows(rijindex).HeightRule = wdRowHeightExactly
  End If
End Sub