Récupérer dans des text/Combo Box le format du doc word

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupérer dans des text/Combo Box le format du doc word

yanounou91

Bonsoir,

J'ai un document Word sur lequel j'ai placé des textbox et Combobox (avec du VBA) afin de réduire le nombre de saisies manuelles.

Savez vous comment je peux (via les propriétés des Box ou un code dans VBA) appliquer automatiquement à toutes les Box le format (type de police et sa taille) du texte du document Word ?

En vous remerciant.

Yannick

Publicité

yanounou91

A priori c'est impossible. Il faut aller dans les propriétés de chaque combobox et textbox afin d'y appliquer les polices et tailles souhaitées.

Arl Guhr

Tu devrais pouvoir faire qq chose comme:
Dans le initialize du formulaire

Code :

for each ctrl in me.controls
ctrl.font = ...
next ctrl

---------------
il s'appel le ronge me doute

yanounou91

Bonsoir,

Merci je n'y avait pas pensé. Mes Box sont dans un fichier word mais je vais tester cela tout de suite. Ca pourrait donner un tres bon compromis.

yanounou91

Mes box sont dans un document Word, cela doit poser probleme du coup. J'ai essayé de remplacer "me" par activedocument mais sans succes. je vais continuer à tester.

Merci pour la piste

Arl Guhr

il faut p-e chercher dans active document.shapes plutot,
puis tester le ctrl.type = ...un truc qui correspond à une textbox
en utilisant : http://stackoverflow.com/questions [...] -using-vba
et https://msdn.microsoft.com/en-us/li [...] e.12).aspx
et en ayant ça aussi sous les yeux : https://msdn.microsoft.com/en-us/li [...] e.15).aspx
ça donnerai un truc du genre:

Code :

for each shape in activedocument.shapes
select case shapes.type
case msoTextBox
'on change
shape.uneprop = ...
case else
'on fait rien
end select
next shape

---------------
il s'appel le ronge me doute

yanounou91

Merci beaucoup; je vais regarder tout cela. Car j'ai testé des choses du genre Dim CC as control et du coup CC.font.size=10 et cela renvoie une erreur car il ne comprend pas l'objet. C'est peut etre le mot shape qui me manquait.

CDT.

Message édité par yanounou91 le 28-01-2015 à 10:08:46

yanounou91

Bonsoir,

Cela ne fonctionne pas. Ou du moins je ne parviens pas à l'adapter. le font.size est refusée semble t il.

yanounou91

Bonsoir,

Pouvez vous me conseiller SVP ?

Code :

Sub format()
For Each Shape In ActiveDocument.Shapes
Select Case Shapes.Type = msoFormControl
Case msoTextBox
Shape.Font.Size = 10
Case Else
'on fait rien
End Select
Next Shape
End Sub

Il ne parvient pas à trouver le membre de la methode ou les données. Pourtant j'ai bien des text et combo box sur la page word active.

J'ai heureusement la solution de changer les polices par les propriétés des textbox dans le mode création.

Code :

Sub Format()
With ActiveDocument
ComboBox1.Font.Name = "Arial"
ComboBox1.Font.Size = 14
'TextBox4.Font.Name = "Arial"
'TextoBox4.Font.Size = 14
End With
End Sub

Ce code fonctionne,quand on nomme la box, et encore cela ne marche que pour les combobox. Pour la textobox VBA demande un objet requis.

Yannick

Message édité par yanounou91 le 29-01-2015 à 22:43:01

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Récupérer dans des text/Combo Box le format du doc word

Sujets relatifs
Comment executer un code sur des combobox dès l'ouverture de word ?	Recuperer la classe des objets d une liste
[RESOLU] Preg_matche_all récupérer contenu div	Faire apparaitre les valeurs de la liste d'un combo/text box directeme
Récupérer le numéro de la case contenant le bouton	Suppression ligne en fonction du format d'une cellule
PowerShell - Récupérer le répertoire d'un fichier donné	Récupérer TOUT les fichiers contenus dans TOUT les dossiers
Recuperer des fichiers txt d'un ftp sur access 2013
Plus de sujets relatifs à : Récupérer dans des text/Combo Box le format du doc word

Page générée en 0.066 secondes