[VBA] Identificare una tabella in un file .doc

[YuZzoLo]

ciao a tutti

Come faccio a identificare una specifica tabella in un documento word nel quale ci sono x tabelle?

Apro un documento in cui sopra ci sono x tabelle, non so quante, e poi c'è quella che mi serve. Dopo la mia possono esserci altre x tabelle. Esiste un identificativo univoco per quella tabella?

Item mi cambia a seconda del numero di tabelle.


In alternativa, è possibile selezionare una tabella subito dopo un bookmark?

[alka]

Di quale versione di Visual Basic si parla?
Così correggo il titolo e sposto...

Ciao!

[YuZzoLo]

6.3

scusate l'errore di pubblicazione

[Grumpy]

Originariamente inviato da YuZzoLo
6.3

Immaginiamo che tu intenda dire 6.0 con SP3. (perché dobbiamo sempre immaginare?)
In un documento Word le tabelle fanno parte della collection Tables e sono quindi individuabili mediante un indice che corrisponde alla posizione occupata nel documento.

[YuZzoLo]

esatto, ma appena la posizione cambia , cambia anche l'indice.
Se uso indice 2 per identificare una tabella, poi inserisco una tabella sopra, la tabella che uso ha indice 3.

Immaginando di non sapere quante tabelle ho sopra, esiste un modo di identificarle univocamente? tipo un puntatore?

"Immaginiamo che tu intenda dire 6.0 con SP3"
Lo immagino anche io non sono programmatore vb, in ufficio uso progress e quanto chiedo mi serve per integrare una stampa word nel codice progress.

[Grumpy]

Puoi mettere un Bookmark all'interno della tabella, per esempio nella prima cella della prima riga.

[gibra]

Originariamente inviato da Grumpy
Immaginiamo che tu intenda dire 6.0 con SP3.

Invece secondo me intende proprio VB 6.3, solo che NON si riferisce a VB6.0,
ma al VBA 6.3 ovvero Visual Basic for Applications di Word.

[Grumpy]

Originariamente inviato da gibra
Invece secondo me intende proprio VB 6.3, solo che NON si riferisce a VB6.0,
ma al VBA 6.3 ovvero Visual Basic for Applications di Word.

Temo che tu abbia ragione.

[lvan]

E' passato molto tempo, ma prova con questa semplice macro:
--------------------------------------------
Selection.Bookmarks.Add ("Segnalibro_Tmp")
For I = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(I).Select
If Selection.Bookmarks.Exists("Segnalibro_Tmp") Then Indice = I: Exit For
Next I
ActiveDocument.Bookmarks("Segnalibro_Tmp").Select
ActiveDocument.Bookmarks("Segnalibro_Tmp").Delete
MsgBox "Indice: " & Indice