Всем привет:)
Помогите советом.
Нужно выбрать из всей таблицы первый столбец и в нё
м произвести поиск (например
, все 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