Поиск в конкретном столбце таблицы -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.21]

Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение

Популярные разделы FAQ: user posted image

Общие вопросы user posted image

Особенности VBA-кода user posted image

Оптимизация VBA-кода user posted image

Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.

Модераторы: Old Bat, MIF

Новое голосование

Поиск в конкретном столбце таблицы

Саня87

Сообщ. #1 , 10.11.09, 12:16

Unregistered

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

Догнать сам не могу,как можно сделать что бы поиск производился не по всему документу,а только в таблице,и в определённом столбце этой таблицы?

Selection.Find.Replacement.ClearFormatting

Selection.Find.ClearFormatting

With Selection.Tables(1).Columns(1)

.Find.Text = "5"

.Find.Replacement.Font.Superscript = True

.Find.Replacement.Font.Subscript = False

.Find.Replacement.Text = "йцукен"

.Find.Forward = True

.Find.Wrap = wdFindContinue

.Find.Format = True

.Find.MatchCase = False

.Find.MatchWholeWord = False

.Find.MatchWildcards = False

.Find.MatchSoundsLike = False

.Find.MatchAllWordForms = False

.Find.Execute Replace:=wdReplaceAll

End With

шото типа этого, но не то...
Если кто знает,подскажите в каком направлении идти:))

Саня87

Сообщ. #2 , 10.11.09, 12:26

Unregistered

Selection.Find.Replacement.ClearFormatting

Selection.Find.ClearFormatting

A = ActiveDocument.Tables(1).Columns(1)

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)

Akina	Сообщ. #3 , 10.11.09, 12:26
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Select этот столбец и делать поиск в выделенном

Саня87	Сообщ. #4 , 10.11.09, 12:55
Unregistered	Цитата Akina @ 10.11.09, 12:26 Select этот столбец и делать поиск в выделенном Ну я вроде это и делаю вот строка A = ActiveDocument.Tables(1).Columns(1).Select потом уже A.Find.Text = "5" Но оно ошибку выдаёт,ругается на select.

Akina	Сообщ. #5 , 10.11.09, 13:12
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Правильно ругается. Для выделения колонки используйте .SelectColumn

Саня87	Сообщ. #6 , 10.11.09, 14:01
Unregistered	Цитата Akina @ 10.11.09, 13:12 Правильно ругается. Для выделения колонки используйте .SelectColumn Если не трудно дайте ссылку где про этот SelectColumn() почитать можно? Яндекс жадничает.

Akina	Сообщ. #7 , 10.11.09, 14:07
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Не поверите - во встроенной справке по Word VBA. Это метод объектов Selection, Table и некоторых других.

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0249 ] [ 15 queries used ] [ Generated: 25.06.25, 12:50 GMT ]