Word 2007 Vba - Aller à l'espace réservé via macro

Question

Ok, donc je suis constamment aux prises avec Microsoft comme je crée plusieurs modèles pour quelques clients. Mon problème est le suivant, les espaces réservés simples TextBox dispersés tout autour d'un document me permet d'appuyer sur TAB pour aller à l'emplacement suivant. Tout comme l'ordre de tabulation dans Visual Studio. Mais pour une raison étrange, cela ne fonctionne pas avec des espaces réservés riches en TextBox. Et je dois utiliser du texte riche pour quelques zones de texte, car l'utilisateur doit être autorisé à modifier la mise en forme des caractères simples. Ceci est impossible avec textboxes simples.

Je pensais, cela pourrait être possible en utilisant des macros? Par exemple, si un espace réservé textbox est sélectionné et la macro est exécutée, allez à l'emplacement suivant?

Answer 1

Les objets Shape / TextBox est accessible via

ThisDocument.Shapes.Item(index)

et vérifier l'objet Shape retourné pour

theShape.Type = msoTextBox

Cependant, les objets de forme sera retourné dans l'ordre qu'ils ont été créés, et non pas leur ordre sur la page / document. Pour trouver le « suivant » TextBox, vous allez probablement devoir boucler à travers toutes les zones de texte et d'enquêter sur leur emplacement (.Top, .Left etc) afin de trouver le bon de passer à avec:

theNextShape.Select