Symphysodon
Gebruiker
- Lid geworden
- 14 dec 2012
- Berichten
- 468
Beste forummers,
Ik sta voor een uitdaging. Stel je hebt een rapport met honderden tabellen, waarvan elke tabel begint met "Tabel" gevolgd door een nummer en een titel. De tabellen komen uit Excel en staan met twee regels gescheiden van elkaar. Hierdoor komt het voor dat sommige tabellen niet op 1 pagina meer passen.
Wat ik nu graag zou willen is dat op het moment dat het gebeurt dat een tabel onderbroken wordt, de gehele tabel op de volgende pagina geplaatst wordt, of dat alleen de tabeltitel met tabelkoppen (2 regels) boven het onderbroken gedeelte op de volgende pagina wordt gekopieerd. Als bijvoorbeeld onderaan een pagina alleen de eerste regel + koppen en titel zichtbaar is dan is het beter om de gehele tabel op de volgende pagina te zetten en vice versa.
In de bijlage staat al een stukje code om er een mooie Word tabel van te maken. De code is niet helemaal zoals ik het wil omdat ik eerst een selectie moet maken van de tabellen voordat de tabel aangepast wordt. Het mooiste zou zijn dat de code de tabel herkent en dan aan de slag gaat.
In dat stukje code wou ik ook iets maken dat de kolommen gelijkmatig verdeeld, maar dat werkt niet omdat er samengevoegde cellen in staan. Als het mogelijk is moeten de kolommen waar geen samengevoegde cellen in staan gelijkmatig verdeeld worden.
In de bijlage een voorbeeld bestand. Het is zonder macro. Het is blijkbaar niet mogelijk een docm-bestand toe te voegen
Veel vragen, vba Excel is al moeilijk, maar Word lijkt nog veel lastiger.
Bekijk bijlage Format_tabellen2.docx
Mvg
Marco
Ik sta voor een uitdaging. Stel je hebt een rapport met honderden tabellen, waarvan elke tabel begint met "Tabel" gevolgd door een nummer en een titel. De tabellen komen uit Excel en staan met twee regels gescheiden van elkaar. Hierdoor komt het voor dat sommige tabellen niet op 1 pagina meer passen.
Wat ik nu graag zou willen is dat op het moment dat het gebeurt dat een tabel onderbroken wordt, de gehele tabel op de volgende pagina geplaatst wordt, of dat alleen de tabeltitel met tabelkoppen (2 regels) boven het onderbroken gedeelte op de volgende pagina wordt gekopieerd. Als bijvoorbeeld onderaan een pagina alleen de eerste regel + koppen en titel zichtbaar is dan is het beter om de gehele tabel op de volgende pagina te zetten en vice versa.
In de bijlage staat al een stukje code om er een mooie Word tabel van te maken. De code is niet helemaal zoals ik het wil omdat ik eerst een selectie moet maken van de tabellen voordat de tabel aangepast wordt. Het mooiste zou zijn dat de code de tabel herkent en dan aan de slag gaat.
In dat stukje code wou ik ook iets maken dat de kolommen gelijkmatig verdeeld, maar dat werkt niet omdat er samengevoegde cellen in staan. Als het mogelijk is moeten de kolommen waar geen samengevoegde cellen in staan gelijkmatig verdeeld worden.
Code:
Sub Tabelopmaak_in_Word()
'Programma format tabellen
'Selection.Cells.DistributeWidth
With Selection.ParagraphFormat
.SpaceBefore = 4
.SpaceAfter = 2
End With
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow)
End Sub
In de bijlage een voorbeeld bestand. Het is zonder macro. Het is blijkbaar niet mogelijk een docm-bestand toe te voegen
Veel vragen, vba Excel is al moeilijk, maar Word lijkt nog veel lastiger.
Bekijk bijlage Format_tabellen2.docx
Mvg
Marco
Laatst bewerkt: