Выбор столбца таблицы Word

[Саша]

Всем привет:)

Помогите советом. Нужно выбрать из всей таблицы первый столбец и в нём произвести поиск (например, все 5 заменить на 1), я вот что-то уже с этим столбцом запарился, понять не могу, как работает SelectColumn, вот код написал:

Код:

 Selection.Find.Replacement.ClearFormatting
        Selection.Find.ClearFormatting
        A = ActiveDocument.Tables(1).Columns(1)
        Selection.SelectColumn
        A.Find.Text = "5"
        A.Find.Replacement.Font.Superscript = True
        A.Find.Replacement.Font.Subscript = False
        A.Find.Replacement.Text = "йцукен"
       A.Find.Forward = True
        A.Find.Wrap = wdFindContinue
        A.Find.Format = True
        A.Find.MatchCase = False
        A.Find.MatchWholeWord = False
        A.Find.MatchWildcards = False
        A.Find.MatchSoundsLike = False
        A.Find.MatchAllWordForms = False
        A.Find.Execute Replace:=wdReplaceAll

Вот эти строки - это, как я думаю, выбор первого столбца:
 A = ActiveDocument.Tables(1).Columns(1)- в этой строке выдаёт ошибку, что, мол, Отсутствует доступ к отдельным столбцам, поскольку ячейки таблицы имеют разную ширину.
 
Selection.SelectColumn

[HandKot]

в таблице нет объединенных ячеек?

[Саша]

в таблице нет объединенных ячеек?

Две последние строки, вроде как.

Подскажите тогда, как можно выбрать не целый столбец, а, например, все ячейки за исключением двух последних.

[HandKot]

Код:

    'встаем на ячейку нужного столбца (здесь 1)
    ThisDocument.Tables(1).Cell(1, 1).Select
    'выделяем весь столбец
    Selection.SelectColumn
    'делаем замену
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "q"
        .Replacement.Text = "a"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

ЗЫЖ применяйте "запись макросов" - очень хорошо помагает

[Саша]

Спасибо!:)

Я сделал форму, там поле для ввода текста, вводишь номер столбца, и он проверяет этот столбец. Но есть у меня таблица (например), из 7 столбцов, если указать с 1 по 6, то всё проверяет, всё нормально, но как только указываю 7ой, то вылетает ошибка: Запрашиваемый номер семейства не существует.
В этой строке :ActiveDocument.Tables(1).Cell(4, num).Select
Я проверял через ActiveDocument.Tables(1).Columns.Count пишет, что их 7, не подскажЕте, что это может быть?


P.S. за ошибки извиняюсь, спешка чтоб её:)

[HandKot]

посмотреть внимательней
если пишет нет, то значит нет