Rechercher : dans
Par :

VBA Word - Macro commande

'sup, le 29 jui 2008 à 09:36:38 
 Signaler ce message aux modérateurs

Bonjour, j'aimerai créer une macro commande qui crée un "champ"

Pour cela j'ai utilisé le mode de création des macro, qui enregistre tout ce qu'on fait a l'écran jusqu'a ce qu'on arrete l'enregistrement.

Voici le code qui traduit mon enregistrement:

 
' Dans un 1er tps on cherche et va au signet dont le nom est "isohistoriqueP1"
Selection.GoTo What:=wdGoToBookmark, Name:="ISOHistoriqueP1"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
'puis on déplace le curseur de 17 colonne vers le haut, et 18 vers la droite
    Selection.MoveUp Unit:=wdLine, Count:=17
    Selection.MoveRight Unit:=wdCharacter, Count:=18
    CommandBars("Forms").Visible = True
' enfin, nous créons le champ (comme un signet) voulu, qui était ici notre objectif
    Selection.FormFields.Add Range:=Selection.Range, Type:= _
        wdFieldFormTextInput


le probleme est que lors de cette opération, l'utilisateur ne peut pas choisir le nom qu'il donne au champ, et donc un nom par default est crée, a savoir "Texte1". ( si l'on en crée un 2eme, ce sera Texte2 )
Mon probleme est qu'il ne faut absolument pas que le champ prenne ce nom la! car il fait planter mon programme par la suite.
Ma quesiton est: que dois-je rajouter a mon code, pour attribuer un nom particulier au champ que je viens de créer?

merci pour toute information.

'sup
Configuration: Windows XP
Firefox 2.0.0.16

Meilleures réponses pour « VBA Word Macro commande » dans :
[Word] Suivi des modifications VoirMicrosoft Word possède un outil très astucieux : le suivi des modifications. Il se peut que des personnes viennent corriger, modifier un document que vous venez de créer. Cependant, vous désirez savoir ce qu'ils ont modifié dans votre...
VBA Ajouter commandButton et le code qui va avec VoirCode relativement simple et qui ne nécessite pas d'explication complémentaire. Coller ces deux sub dans un module général (Module1 par exemple). Sub CréerBouton() Dim Obj As Object Dim Code As String Sheets("Feuil1").Select 'crée le...
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...