Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418179 Tue, 10 Nov 2009 14:07:56 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418179 Akina VB for Application https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418173 Tue, 10 Nov 2009 14:01:23 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418173 Цитата Akina @
Правильно ругается. Для выделения колонки используйте .SelectColumn

Если не трудно дайте ссылку где про этот SelectColumn() почитать можно?
Яндекс жадничает.]]> Саня87 VB for Application https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418121 Tue, 10 Nov 2009 13:12:29 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418121 Akina VB for Application https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418088 Tue, 10 Nov 2009 12:55:46 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418088 Цитата Akina @
Select этот столбец и делать поиск в выделенном :)

Ну я вроде это и делаю вот строка A = ActiveDocument.Tables(1).Columns(1).Select
потом уже A.Find.Text = "5"

Но оно ошибку выдаёт,ругается на select.]]> Саня87 VB for Application https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418050 Tue, 10 Nov 2009 12:26:12 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418050 Akina VB for Application https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418049 Tue, 10 Nov 2009 12:26:04 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418049
    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)]]> Саня87 VB for Application https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418037 Tue, 10 Nov 2009 12:16:07 +0000 Поиск в конкретном столбце таблицы https://forum.sources.ru/index.php?showtopic=286720&view=findpost&p=2418037
Догнать сам не могу,как можно сделать что бы поиск производился не по всему документу,а только в таблице,и в определённом столбце этой таблицы?

    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 VB for Application