Word 2010 code VBA pour trouver, sélectionner et supprimer une colonne dans une table avec une colonne spécifique titre

Le scénario est un tableau est reçu chaque semaine dans Word 2010 qui a besoin d'ajustements. Parmi les autres ajouts pour la macro, la colonne nommée "Site web" doit être supprimé. La colonne appelée "Site web" n'est pas toujours dans la même position, bien qu'.

J'ai besoin de connaître le code VBA pour la recherche, la sélection et la suppression d'une table spécifique colonne qui peut potentiellement changer de position, mais vous permettra de toujours garder le même titre de la colonne.

Est-il un moyen d'insérer un mot à rechercher dans le code vba qui va assurer la colonne de droite est supprimé, même si sa position dans le tableau peut changer à chaque fois qu'une table est ouvert dans Word?

Sub Test() ' ' Test Macro ' ' Selection.SelectColumn Selection.Columns.Delete End Sub C'est ce que montre quand je fais cela à l'aide de la fonctionnalité Rechercher dans Word 2010 pour trouver la clé de l'enregistreur de macro est en cours de lecture.

OriginalL'auteur user1951654 | 2013-01-05

  1. 3

    Essayer:

    Dim tbl As Table
Dim cl As Cell

''All tables
For Each tbl In ActiveDocument.Tables
    ''Look in row 1 only ...
    For Each cl In tbl.Rows(1).Cells
        ''For a cell containing website and end of cell
        If cl.Range.Text = "website" & Chr(13) & Chr(7) Then
            ''Select ...
            cl.Column.Select
            ''Allow the user to choose delete
            If MsgBox("Del selected?", vbYesNo) = vbYes Then
                cl.Column.Delete
            End If
        End If
    Next
Next
    Je viens de tester ton code et il fonctionne. Je vous remercie.
    Très agréable, pouvez-vous fournir une explication pour les caractères spéciaux de Word insère à des cellules de tableau? Je me demandais comment faire une rechercher et remplacer sur des mots spécifiques dans les cellules...

    OriginalL'auteur Fionnuala