Contare tabelle in una pagina doc Word da VB

martedì 24 ottobre 2006 - 20.56

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Anonimo Profilo | Senior Member

392 messaggi | Data Invio: mar 24 ott 2006 - 20:56

Aiuto!

Vorrei sapere urgentissimamente come posso contare le tabelle in una pagina di un documento Word da vb

la funzione ActiveDocument.Tables.Count restituisce tutte le tabelle del documento

vorrei creare un ciclo for sulle pagine tipo

for p=0 to Activedocument.ActiveWindow.ActivePane.Pages.Count-1

Per ogni pagina p conta il numero di tabelle nella pagina
next

Grazie grazie grazie

sisco22 Profilo | Newbie

43 messaggi | Data Invio: mer 25 ott 2006 - 11:35

Non ne sono molto sicuro ma prova con l'oggetto controls
Ciao

Anonimo Profilo | Senior Member

392 messaggi | Data Invio: mer 25 ott 2006 - 15:41

Non ho capito molto l'oggetto control....

cmq forse ho trovato un altro approccio al problema:

fare una Selezione pagina per pagina e contare le tabelle nella selezione!

il problema e che non so come fare la selezione di pagina

ho provato

Dim sel as Word.Selection
For p=1 to pagine

sel= Wordoc.ActiveWindow.ActivePane.pages(p)

tabelle= sel.Tables.Count
Next

Ma sel=... non va bene!
aiuto per selezione pagina
grazie

sisco22 Profilo | Newbie

43 messaggi | Data Invio: mer 25 ott 2006 - 16:03

Ti posto una mia funzione che uso per sapere se ho un form attivo contenuto in un controllo di tipo Panel è un pò spartana ma magari ti da una dritta per risolvere il tuo problema.

Public Function ControllaFormAttiva(ByVal nomeForm As String) As Boolean

nomeForm = LCase(nomeForm)

Dim currentForm As Form = Form.ActiveForm
Dim isAttiva As Boolean = False

With currentForm

Dim i As Integer, j As Integer
For i = 0 To .Controls.Count - 1

If .Controls(i).Name = "HstPanelForms" Then
For j = 0 To .Controls(i).Controls.Count - 1
If LCase(.Controls(i).Controls(j).Name) = nomeForm Then
isAttiva = True
Exit For
End If
Next j
End If
Next i
End With

Return (isAttiva)
End Function

Spero ti possa essere d'aiuto.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !