la création des tables dans MS Word à l'aide de VBA

Quels sont les codes pour créer une table dans MS Word?

J'ai utilisé la fonction d'enregistrement de macro pour voir comment il est écrit, et je n'ai aucune idée de comment l'interpréter.

et pouvez-vous ne pas attirer les tableaux lors de l'enregistrement d'une macro? C'gris la "dessiner un tableau" de la fonction.

J'ai besoin de faire une talbe qui a des cellules fusionnées au sein de la table - il serait plus facile si je peux dessiner le tableau et enregistrement à l'aide de la macro, mais il me semble que je ne peux pas faire ça...

J'ai utilisé la fonction draw pour dessiner le tableau de suivi, mais je ne peux pas l'enregistrer.

AIDER?!

Pourquoi ne pas simplement copier ce tableau à partir d'un modèle de document?
que voulez-vous dire modèle de document? le truc, c'est que je veux créer exactement la même table à chaque fois que je clique sur la macro. parce que j'ai besoin de créer la même table plusieurs fois
Je veux juste créer un tableau dans un document word, puis dans votre macro charger la doc et la copie de la table à l'endroit où vous en avez besoin.
mais chaque fois que j'exécute la macro, il ne collez pas la table, mais plutôt qu'il colle la page? je ne suis pas sûr si cela fait sens, lorsque j'essaie de copier la table lors de l'enregistrement d'une macro, je ne peux pas faire glisser et de mettre en évidence pour copier le tableau. alors, j'ai fait alt+A pour copier le tableau et collé. mais chaque fois que j'exécute la macro, il serait de coller la page lorsque je souhaite coller le tableau?

OriginalL'auteur Doolie1106 | 2012-11-13

Cela devrait vous obtenir a commencé.

Sub Tester()


    Dim x, w, c

    ThisDocument.Tables(1).Delete

    ThisDocument.Tables.Add Range:=Selection.Range, NumRows:=7, NumColumns:=1, _
                          DefaultTableBehavior:=wdWord9TableBehavior, _
                          AutoFitBehavior:=wdAutoFitFixed

    With ThisDocument.Tables(1)

        .Rows.Height = 70
        w = .Rows(1).Cells(1).Width

        .Rows(1).Cells(1).Split 1, 7
        .Rows(1).Cells(1).Width = w / 2
        For x = 2 To 7
            .Rows(1).Cells(x).Width = (w / 2) / 6
        Next x

        .Rows(5).Height = 15
        .Rows(7).Height = 15

        .Rows(7).Cells(1).Split 1, 7

        .Rows(6).Cells(1).Split 1, 4
        .Rows(6).Cells(2).Split 2, 1

        'Once you merge cells it gets difficult to use .Rows, but
        '  you can still address individual cells. Use the loop below to
        '  find out which one you need to operate on...
        x = 1
        For Each c In .Range.Cells
            c.Range.Text = x
            x = x + 1
        Next c

        .Range.Cells(16).Split 1, 4
        'you can figure out setting the exact required widths...
    End With
End Sub

Salut Tim,Désolé pour la réponse tardive. J'ai essayé ton code, mais il me donne une erreur que la collection n'existe pas. comment puis-je régler ce problème? Je suis en train d'interpréter le code que vous offrez, mais il est assez difficile de comprendre ce que vous avez fait depuis que je ne suis pas très familier avec vba (ex. je ne comprends pas comment ce code fait à l'aide de tables...x=x+1) je veux ajouter des textes et de remplir le tableau avec les couleurs, mais je ne suis pas sûr de la façon de le faire.
Commentaire de la ligne ThisDocument.Tables(1).Delete - qui était de mon test.
Salut Tim, j'obtiens une erreur que de la plage spécifiée n'est pas le bon document. comment puis-je régler ce problème?
désolé je l'ai eu. mais comment puis-je insérer des textes de la cellule individuelle? et comment puis-je faire en sorte que chaque fois que j'exécute la macro il serait de créer une nouvelle table dans une autre page?
Comment ajouter du texte dans une cellule est là, dans ma réponse. Je ne sais pas comment vous pouvez ajouter une nouvelle table dans une autre page.

OriginalL'auteur Tim Williams

la commande de base pour la réalisation d'un tableau est

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= 3

et de split/fusionner les cellules:

Selection.Cells.Split NumRows:=1, NumColumns:=2
Selection.Cells.Merge

OriginalL'auteur SeanC

0

Vous pouvez créer le tableau et ensuite de l'enregistrer comme une insertion automatique (sélectionner la table ALT+F3 - nom de l'insertion automatique). Puis, quand vous avez besoin le tableau dans un document, il suffit de taper le nom que vous avez donné et appuyez sur F3.

OriginalL'auteur Alain

Vous devez vous connecter pour publier un commentaire.