VBA Word

VBA Word - Programmation

Marsh Posté le 13-08-2001 à 15:31:01    

Peut on rajouter un onglet dans la boite de dialogue "nouveau" de word et si oui, comment?

Reply

Marsh Posté le 13-08-2001 à 15:31:01   

Reply

Marsh Posté le 13-08-2001 à 16:06:20    

Peut tu etre un peu plus precis?


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 13-08-2001 à 16:44:02    

Lorsque je travaillais un peu sur le VBA de WORD, je n'ai pas réussie à modifier les menus de WORD, g du rajouter une barre de menu pour ajouter les fonctions utilisateurs
 
mais bon j'y ai pas passé bcp de temps ..si tu veux le code pour la barre d'outil demande


---------------
Galerie Photo (Canon)
Reply

Marsh Posté le 14-08-2001 à 13:33:12    

Je dois rajouter dans la boite de dialogue "Nouveau" (celle qui permet de sélectionner les modèles à utiliser), un onglet personnalisé dans lequel apparaîtrait mes propres modèles.
Je dois réellement passer, dans la mesure du possible par un nouvel onglet et non simplement ajouter mes nouveaux modèles dans un onglet déjà existant.
 
 

navarro a écrit a écrit :

Peut tu etre un peu plus precis?  



Reply

Marsh Posté le 14-08-2001 à 13:34:57    

Oui, ça m'intéresseraitr beaucoup de voir ton code pour la barre d'outils.
Merci

Styx0 a écrit a écrit :

Lorsque je travaillais un peu sur le VBA de WORD, je n'ai pas réussie à modifier les menus de WORD, g du rajouter une barre de menu pour ajouter les fonctions utilisateurs
 
mais bon j'y ai pas passé bcp de temps ..si tu veux le code pour la barre d'outil demande  



Reply

Marsh Posté le 14-08-2001 à 13:41:06    

La procédure ci dessous créé une nlle barre d'outil
et insère dedans 4 combos et bouton command  (d'autre type de controle peuvent etre insérer)
Et enfin elle affecte une procédure à l'évenement OnAction de chaque élément
 

Code :
  1. Public Sub CreationToolBar()
  2.      
  3.     Set objTlb = CommandBars.Add("BarreRIG", msoBarTop, False)
  5.     Set cboEDT = objTlb.Controls.Add(msoControlDropdown)
  6.     cboEDT.Visible = True
  7.    
  8.     Set cboETP = objTlb.Controls.Add(msoControlDropdown)
  9.     cboETP.Visible = True
  10.     cboETP.Width = 120
  11.    
  12.     Set cmdInsETP = objTlb.Controls.Add(msoControlButton)
  13.     cmdInsETP.Visible = True
  14.     cmdInsETP.Style = msoButtonCaption
  15.     cmdInsETP.Caption = "{~"
  16.     cmdInsETP.TooltipText = "Insérer l'Etape"
  17.    
  18.    
  19.     Set cboOPR = objTlb.Controls.Add(msoControlDropdown)
  20.     cboOPR.Visible = True
  21.     cboOPR.Width = 140
  23.     Set cmdInsOPR = objTlb.Controls.Add(msoControlButton)
  24.     cmdInsOPR.Visible = True
  25.     cmdInsOPR.Style = msoButtonCaption
  26.     cmdInsOPR.Caption = "{¤"
  27.     cmdInsOPR.TooltipText = "Insérer l'Opération"
  28.    
  29.     Set cboULT = objTlb.Controls.Add(msoControlDropdown)
  30.     cboULT.Visible = True
  31.     cboULT.Width = 140
  33.     Call Init_CBO ' remplit les combos à partir d'une base de donnée SQl Server , procédure non présente dans l'exemple
  34.    
  35.     cboEDT.OnAction = "cboEDT_Change"
  36.     cboETP.OnAction = "cboETP_Change"
  37.     cboOPR.OnAction = "cboOPR_Change"
  38.     cboULT.OnAction = "cboULT_Change"
  39.     cmdInsETP.OnAction = "cmdInsETP_Click"
  40.     cmdInsOPR.OnAction = "cmdInsOPR_Click"
  41.    
  42.     objTlb.Visible = True
  43. End Sub


---------------
Galerie Photo (Canon)
Reply

Marsh Posté le 14-08-2001 à 15:33:41    

J'ai un peu chercher et je crois que c'est pas possible de rajouter un onglet


---------------
Une ptite aide en VB et jVBien
Reply

Marsh Posté le 16-08-2001 à 09:12:33    

Merci pour les reponses apportées.

Reply

Marsh Posté le 16-08-2001 à 09:13:56    

Il suffit de créer un nouveau répertoire dans le répertoire des modèles de Word et de créer au moins un modèle (si le répertoire est vide il n'apparait pas comme onglet).
 
Pour trouver le répertoire des modèles, Outils/Options/dossiers par défaut
 
A+

Reply

Marsh Posté le 22-08-2001 à 17:40:12    

MERCI
 
autre question :
Peut on en VBA sous word récupérer une connexion Internet Explorer déjà lancée ?
a+
 

Sylderon a écrit a écrit :

Il suffit de créer un nouveau répertoire dans le répertoire des modèles de Word et de créer au moins un modèle (si le répertoire est vide il n'apparait pas comme onglet).
 
Pour trouver le répertoire des modèles, Outils/Options/dossiers par défaut
 
A+  



Reply

Marsh Posté le 22-08-2001 à 17:40:12   

Reply

Marsh Posté le 23-08-2001 à 16:30:12    

comment lancer un .chm depuis word (en vba)?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed