Tabellen aanpassen

[DutchOirs]

Goedemiddag,
Heb er weer eentje :-(
Ben bezig een Word 2003 document met Tabellen over te zetten op Word 2019 document.
Dit doe ik doe door het Word 2003 document te openen met Word 2019 en dan op te slaan als: Word-document met ingeschakelde macro's.
Tja en dan komen de problemen :-(
1e: Er zitten meerdere tabellen in dit document en enige gaan op volgende pagina staan en met geen mogelijkheid krijg ik hem daar weg.

2e hij mist een Tabelnummer, hoe kom ik daar achter?

Iemand een idee?

Zal het vb-tje erbij doen.

Thanks already..

Dutch

 

[OctaFish]

Ik wil er zo wel even naar kijken, maar ik snap niet helemaal wat je bedoelt met 'tabelnummer'?
Overigens is het Word 2k3 document wellicht ook handig om erbij te doen.

 

[DutchOirs]

Hoi OctaFish,
Je zal je naam nog wel tegenkomen in het document
Je had me jaren geleden al raad gegeven met bepaalde dingen..
Jij bent zeker de Tabel expert hier
Zal de 2003 versie ook even uploaden

Bij het opstarten vanuit een excel file, krijg ik een foutmelding (Fout 5941) Het gevraagde lid v/d collectie bestaat niet.
Dit zou wel eens kunnen komen doordat er tabellen op de 2e pagina zijn gezet, met het opslaan als 2019-file.
Onder 2003 draait het perfect
Probeer nu alle Tabellen weer op één pagina te krijgen, maar loop vast op het fenomeen dat ik de grote tabel op pag. 2 niet kan verplaatsen, daar hij tegen de rand van de bovenkant v/d pagina zit??

 

[snb]

eem tweetal figuren wordt niet gevonden.

 

[DutchOirs]

zover was ik nog niet snb,

Probeer eerst alle tabellen weer op hun plek te krijgen, op één pagina.

 

[DutchOirs]

Klein stukje verder.
- Onderste tabel is los van Paginarand.
- Alles naast elkaar op één pagina

Nu nog de fouten eruit halen.
Maar dat is voor morgen.

 

[DutchOirs]

Goedemorgen,
Even naar de vraag van Octafish op #2
Wat ik bedoel met Tabelnummer.
Krijg een foutmelding op:

Set PrijsTbl = ActiveDocument.Tables(9).Cell(Row:=2, Column:=4).Range

Fout 5941 tijdens uitvoering
Het gevraagde lid van de collectie bestaat niet.
Dus wilde benummering v/d Tabels boven water halen om te checken..

Dacht eerst dat het lag omdat de tabels werden verdeeld over 2 pagina's.
Maar dat is nu weer een, dus zou moeten werken.

 

[OctaFish]

Als ik de macro in zijn geheel als commentaar markeer, ziet het document er m.i. prima uit, op één pagina. Jouw tweede document gaat al gelijk op de regel Set.. in de fout, dus daarom dat eerst maar even gedaan. Dus het probleem zit 'm in je macro.

 

[DutchOirs]

Goedemiddag Octafish,
Klopt, met het omzetten naar 2019 heeft men de tabellen volgorde iets veranderd.
Ben er mee bezig, maar ja ook nog andere dingen te doen.
Ben al blij dat ik alles op één pagina hebt.
Heb Tabel 8 nu in een tekstveld gezet, dit werkt beter om ze te plaatsen
Zie m'n update Basis Udate #2

 

[OctaFish]

Ik vind het een beetje vreemde code. Wat wil je er mee bereiken?
Vreemd is bijvoorbeeld dit:

Dim myDoc, PrijsTbl As Range, PrijsTbl2 As Range
Set myDoc = CreateObject(ActiveDocument.FullName)

Waarom niet dit?

Dim myDoc As Document, PrijsTbl As Range, PrijsTbl2 As Range
Set myDoc = ActiveDocument.FullName

En vervolgens gebruik je MyDoc niet eens:

Set PrijsTbl = ActiveDocument.Tables(9).Cell(Row:=2, Column:=4).Range

In plaats van

Set PrijsTbl = myDoc.Tables(9).Cell(Row:=2, Column:=4).Range

En dat geldt ook voor de hele riedel

ActiveDocument.Shapes("Tb4").Visible
...
ActiveDocument.Shapes("TbNum17").Visible = True

Ook dat kan netter:

 With myDoc
    .Shapes("Tb4").Visible = True
...
    .Shapes("TbNum17").Visible = True
End With

Al zal dat de fouten niet oplossen .

 

[DutchOirs]

hoi OctaFish, komt goed, alleen veel werk.
had nog wel een vraagje:
Onder dat file zit een mogelijkheid (van jouw) om de namen boven water te krijgen en aan te passen.
Nu heb ik meer vormen dan er te zien zijn.
Dus waarschijnlijk verborgen achter de anderen.
Dit is de macro:

Private Sub OctaFish()
  Dim shp As Shape, tmp As String, myDoc, i As Integer
  i = 0
  For Each shp In ActiveDocument.Shapes
    i = i + 1
    shp.Select
    Application.ScreenRefresh
    tmp = InputBox("IndexNr = " & i, "", shp.Name)
    shp.Name = tmp
  '  shp.Name.naar voren halen??????
  Next shp
  'Om een vorm zichtbaar / onzichtbaar te maken"
  ' ActiveDocument.Shapes("Tb4").Visible = True/false
End Sub

en als vraag is het ook mogelijk dat hij bovenaan het document begint met de lus?
iedere keer is de volgorde weer anders?