none
Insérer un champ dans une cellule d'un tableau word RRS feed

  • Question

  • Bonjour je cherche a jouter un champ par exemple le champ "date" dans un cellule d'un tableau word 2016 à l'aide de visual basic

    Pour l'instant tout ce que j'ai essayé plante mon prog à l'exécution

     oWord.ActiveDocument.Tables.Add(Range:=oWord.Selection.Range, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=WdDefaultTableBehavior.wdWord9TableBehavior, AutoFitBehavior:=WdAutoFitBehavior.wdAutoFitFixed)
    
    oWord.ActiveDocument.Tables(5).Cell(1, 1).select()
    with oword.selection
         .Fields.Add(Range:=oWord.selection.range,    Type:=WdFieldType.wdFieldEmpty, Text:="Date")
    
    end with
    

    les lignes ci-dessus compile, mais génère l'erreur comme quoi la commande demandée n'existe pas.

    jeudi 17 janvier 2019 13:21

Réponses

  • Bonjour


    Pour l'instant tout ce que j'ai essayé plante mon prog à l'exécution

    dans des cas comme ça, indiquez à quelle ligne ça plante et le code d'erreur correpondant, ça évite de tout recopier pour trouver.
    Essayez (attention aux retours à la ligne intempestifs  :
     Sub ajoutChamp()
    Dim t As Table
    Dim c As Field
    Set t = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, _
    NumColumns:=1, DefaultTableBehavior:=WdDefaultTableBehavior.wdWord9TableBehavior, _
    AutoFitBehavior:=WdAutoFitBehavior.wdAutoFitFixed)
    Set c = t.Cell(1, 1).Range.Fields.Add(Range:=Selection.Range, _
    Type:=WdFieldType.wdFieldEmpty, Text:="Date")

    End Sub

    jeudi 17 janvier 2019 16:03

Toutes les réponses

  • Bonjour


    Pour l'instant tout ce que j'ai essayé plante mon prog à l'exécution

    dans des cas comme ça, indiquez à quelle ligne ça plante et le code d'erreur correpondant, ça évite de tout recopier pour trouver.
    Essayez (attention aux retours à la ligne intempestifs  :
     Sub ajoutChamp()
    Dim t As Table
    Dim c As Field
    Set t = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, _
    NumColumns:=1, DefaultTableBehavior:=WdDefaultTableBehavior.wdWord9TableBehavior, _
    AutoFitBehavior:=WdAutoFitBehavior.wdAutoFitFixed)
    Set c = t.Cell(1, 1).Range.Fields.Add(Range:=Selection.Range, _
    Type:=WdFieldType.wdFieldEmpty, Text:="Date")

    End Sub

    jeudi 17 janvier 2019 16:03
  • Bonjour,

    Je n'ai pas travaillé sur ce projet depuis février....

    Merci pour cette réponse cela fonctionne bien comme je le souhaite.

    J'ai bien noté aussi les remarques... je ferai attention lors de mes prochaines questions.


    elbege21

    mercredi 3 juillet 2019 07:33