ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word - очистка содержимого ячейки по условию
7 сообщений из 7, страница 1 из 1
Word - очистка содержимого ячейки по условию
    #34986622
LeCrunch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeCrunch
Гость
Подскажите, как реализовать в коде следующую построчную проверку таблицы - если во втором столбце, среди прочих слов не_содержится знак № , то нужно удалить содержимое первой ячейки в этой строке (в ячейках первого столбца - нумерованный список), попутно получая его автоматическую перенумерацию.

Интересует алгоритм, как в MS Word программно определять факт наличия требуемого слова в ячейке таблицы.
...
Рейтинг: 0 / 0
04.12.2007, 23:46:54
| Ответить | Цитировать | Написать  
Word - очистка содержимого ячейки по условию
    #34986649
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
На, поиграйся:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub a()
    Dim c As Cell
    For Each c In ActiveDocument.Tables( 1 ).Columns( 2 ).Cells
        If InStr(c.Range, "#") Then
            ActiveDocument.Tables( 1 ).Columns( 1 ).Cells(c.RowIndex).Range = "AAAA"
        End If
    Next
End Sub
...
Рейтинг: 0 / 0
05.12.2007, 00:10:06
| Ответить | Цитировать | Написать  
Word - очистка содержимого ячейки по условию
    #34986773
LeCrunch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeCrunch
Гость
А как грамотно организовать проверку именно на не_содержание знака № ?
...
Рейтинг: 0 / 0
05.12.2007, 07:25:33
| Ответить | Цитировать | Написать  
Word - очистка содержимого ячейки по условию
    #34999711
LeCrunch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeCrunch
Гость
Что-то не получается...
Пробую с таким фрагментом кода:
Код: plaintext
1.
2.
3.
4.
5.
For Each c In ActiveDocument.Tables( 1 ).Columns( 2 ).Cells
        If Not InStr(c.Range, "№") Then
            ActiveDocument.Tables( 1 ).Columns( 1 ).Cells(c.RowIndex).Range.Delete
        End If
Next
Но ничего в первой колонке не происходит...
Может, нужно ещё как-то дополнительно учитывать, что в первом столбце - не простое содержимое, а список?
Как из него удалять только выборочные значения?
...
Рейтинг: 0 / 0
10.12.2007, 23:49:36
| Ответить | Цитировать | Написать  
Word - очистка содержимого ячейки по условию
    #35002254
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
LeCrunchЧто-то не получается...
Пробую с таким фрагментом кода:
Код: plaintext
1.
2.
For Each c In ActiveDocument.Tables( 1 ).Columns( 2 ).Cells
        If Not InStr(c.Range, "№") Then
Но ничего в первой колонке не происходит...Потому что № не простой символ а юникодный, InStr его не находит. Можно вот так вот:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    For Each c In ActiveDocument.Tables( 1 ).Columns( 2 ).Cells
        For i =  1  To Len(c.Range)
            If AscW(Mid(c.Range, i,  1 )) =  8470  Then
                ActiveDocument.Tables( 1 ).Columns( 1 ).Cells(c.RowIndex).Range.Delete
                Exit For
            End If
        Next
    Next
...
Рейтинг: 0 / 0
11.12.2007, 18:12:32
| Ответить | Цитировать | Написать  
Word - очистка содержимого ячейки по условию
    #35019012
LeCrunch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeCrunch
Гость
Наконец-то удалось добиться требуемого! :)
Правда, для определения на не_содержание знака № используется дополнительная проверка на соответствие флагу (интересно, а какие ещё есть варианты?) и с удалением отдельных значений автоматической нумерации - используется специальный метод:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
For Each c In ActiveDocument.Tables( 1 ).Columns( 2 ).Cells

    flag = False
        
        For i =  1  To Len(c.Range)
            If AscW(Mid(c.Range, i,  1 )) =  8470  Then
                flag = True
            End If
        Next i
            
        If flag = False Then
            ActiveDocument.Tables( 1 ).Columns( 1 ).Cells(c.RowIndex).Range.ListFormat.RemoveNumbers
        End If
        
    Next c
...
Рейтинг: 0 / 0
18.12.2007, 22:39:57
| Ответить | Цитировать | Написать  
Word - очистка содержимого ячейки по условию
    #35019050
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
LeCrunchНаконец-то удалось добиться требуемого! :)
Правда, для определения на не_содержание знака № используется дополнительная проверка на соответствие флагу (интересно, а какие ещё есть варианты?)Ну можно играться с разными типами циклов, кстати не забывай о команде exit for очень удобная вещь если точно знаешь что больше крутится в цикле не нужно.

А вообще-то, есть и более простой способ, только я про него забыл сначала :)
Код: plaintext
1.
If InStrB(c.Range, ChrW( 8470 ))= 0  Then
    ....
...
Рейтинг: 0 / 0
18.12.2007, 23:34:04
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word - очистка содержимого ячейки по условию
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35002254&tid=2181683]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 201ms
total:  321ms
созд. / загр.: 321ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]