Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
466 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2249324
yanounou91
Posté le 25-01-2015 à 23:50:30  profilanswer
 

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

mood
Publicité
Posté le 25-01-2015 à 23:50:30  profilanswer
 

n°2249414
yanounou91
Posté le 26-01-2015 à 19:08:52  profilanswer
 

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.

n°2249431
Arl Guhr
Posté le 26-01-2015 à 20:27:24  profilanswer
 

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

Code :
  1. for each ctrl in me.controls
  2.     ctrl.font = ...
  3. next ctrl


---------------
il s'appel le ronge me doute
n°2249447
yanounou91
Posté le 26-01-2015 à 23:06:55  profilanswer
 

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.

n°2249448
yanounou91
Posté le 26-01-2015 à 23:23:48  profilanswer
 

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

n°2249590
Arl Guhr
Posté le 28-01-2015 à 02:59:59  profilanswer
 

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 :
  1. for each shape in activedocument.shapes
  2. select case shapes.type
  3.   case msoTextBox
  4.    'on change
  5.    shape.uneprop = ...
  6.   case else
  7.    'on fait rien
  8.   end select
  9. next shape


---------------
il s'appel le ronge me doute
n°2249592
yanounou91
Posté le 28-01-2015 à 10:08:16  profilanswer
 

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
n°2249775
yanounou91
Posté le 29-01-2015 à 22:33:11  profilanswer
 

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

n°2249776
yanounou91
Posté le 29-01-2015 à 22:40:52  profilanswer
 

Bonsoir,
 
Pouvez vous me conseiller SVP ?
 
 

Code :
  1. Sub format()
  2.     For Each Shape In ActiveDocument.Shapes
  3.     Select Case Shapes.Type = msoFormControl
  4.       Case msoTextBox
  5.      
  6.        Shape.Font.Size = 10
  7.       Case Else
  8.        'on fait rien
  9.       End Select
  10.     Next Shape
  11. 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 :
  1. Sub Format()
  2.     With ActiveDocument
  3.         ComboBox1.Font.Name = "Arial"
  4.         ComboBox1.Font.Size = 14
  5.         'TextBox4.Font.Name = "Arial"
  6.         'TextoBox4.Font.Size = 14
  7.      End With
  8. 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

Aller à :
Ajouter une réponse
  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 divFaire apparaitre les valeurs de la liste d'un combo/text box directeme
Récupérer le numéro de la case contenant le boutonSuppression 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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR