Условие для цикла Do While

@diletant2 · Регистрация: 02.05.2011

Студворк — интернет-сервис помощи студентам

имеется таблица MS Word, в некоторых ячейках которой имеется текст со шрифтом красного цвета. в процессе работы программы в некоторых ячейках цвет шрифта заменяется на обычный. эту программу нужно повторять до тех пор, пока в таблице не останется ни одной ячейки с красным шрифтом. так вот, как задать это условие - наличие красного текста в таблице?

@Busine2009 · 17.06.2011, 22:59

diletant2,
чтобы узнать, сколько в Word в одной таблице может быть максимальное количество столбцов:
при вставке таблицы через интерфейс Word - укажите количество столбцов 1000. Появится сообщение, сколько в таблице может быть максимально столбцов.

Сообщение от diletant2

ОК, а Вы запускать пробовали?

да, я как правило тестирую все коды, которые выкладываю на форумах.

Сообщение от diletant2

м.б. вставлять столбцы не по Selection а по Range? или что?

только по Selection вставляются столбцы.

Добавлено через 8 минут
diletant2,
да, что-то не то с кодом (сейчас попробовал).

@diletant2 · 17.06.2011, 23:54 **[ТС]**

Сообщение от Busine2009

diletant2,

да, я как правило тестирую все коды, которые выкладываю на форумах.

да, что-то не то с кодом (сейчас попробовал).

интересно, что для одной ячейки с красным текстом - работает
__|__|__|__|
|rd|__|__|__|
__|__|__|__|

для нескольких, не связанных между собой - тоже:

__|__|__|__|
|rd|__|rd|__|
__|__|__|__| или

__|__|__|__|
|rd|__|__|__|
__|__|rd|__|

но для смежных ячеек - уже идет бесконечная вставка столбцов (причем, если включить отображение непечатаемых символов, видно, что во вставленных столбцах - сохраняется красный цвет: символ конца ячейки красный):

__|__|__|__|
|rd|rd|__|__|
__|__|__|__| или

__|__|__|__|
|rd|__|__|__|
__|rd|__|__|

в чем же дело?

@Busine2009 · 17.06.2011, 23:57

Сообщение от diletant2

в чем же дело?

не знаю. Не убирается красный цвет, если полностью вся ячейка выделена красным цветом. Там такая ситуация, что добавляется новый столбец справа с характеристиками не того столбца, который выделен, а смежного (тот, который справа). Если в этом столбце справа вся ячейка выделена красным, то новый добавляемый столбец содержит красный цвет. Что-то с этим связано.

Сейчас ищу способ другой.

В Worde полно всякого такого непонятного.

@diletant2 · 18.06.2011, 00:06 **[ТС]**

Сообщение от Busine2009

В Worde полно всякого такого непонятного.

интирресно!..

@Busine2009 · 18.06.2011, 00:22

Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub P2()
Dim i As Integer
Dim КолСтолбцов As Integer
КолСтолбцов = Selection.Tables(1).Columns.Count
'Двигаемся от последнего столбца к первому.
For i = КолСтолбцов To 1 Step -1
    'Выделяем каждый столбец.
    Selection.Tables(1).Columns(i).Select
    'Ищем в выделенном диапазоне красный шрифт.
    With Selection.Range.Find
        .Format = True
        .Font.ColorIndex = wdRed
        .Wrap = wdFindStop
        .Execute
        If .Found = True Then
            Selection.Font.ColorIndex = wdAuto
            Selection.InsertColumnsRight
            Selection.Tables(1).AutoFitBehavior Behavior:=wdAutoFitWindow
        End If
    End With
Next i
End Sub

Если таблицы небольшие (мало ячеек) и таблиц немного в документе, то можно Find заменить просмотром всех ячеек.

@diletant2 · 18.06.2011, 02:14 **[ТС]**

Busine2009

ОК! я просто в Ваш предыдущий код вставил всего одну строчку - и все срослось:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub P1()
Do
    With Selection.Tables(1).Range.Find
        .Format = True
        .Font.ColorIndex = wdRed
        .Wrap = wdFindStop
        .Execute
        If .Found = False Then
            Exit Do
        End If
        .Parent.Columns(1).Select
        Selection.Font.ColorIndex = wdAuto
        Selection.InsertColumnsRight
        Selection.Font.ColorIndex = wdAuto ' <--- просто во вставленном столбце тоже делаем цвет авто
        'При добавлении столбца почему-то изменяется ширина таблицы.
        Selection.Tables(1).AutoFitBehavior wdAutoFitWindow
    End With
Loop
End Sub

Добавлено через 1 час 45 минут
ха, столкнулся с проблемой: если в таблице полностью выделить строку вместе со знаком строки и заменить текст в ячейках на красный
|__|__|__|__|о
|__|__|__|__|о
|__|__|__|__|о
а затем выделить все ячейки в этой строке без выделения знака строки и заменить текст на авто, то знак строки не заменится и останется красным
|__|__|__|__|о
|__|__|__|__|о
|__|__|__|__|о

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

@Busine2009 · 18.06.2011, 07:49

Код:

Visual Basic
1
2
3
4
5
6
Sub P2()
Dim Строка As Word.Row
For Each Строка In Selection.Tables(1).Rows
    Строка.Range.Characters.Last.Font.ColorIndex = wdAuto
Next Строка
End Sub

Я писал, что только через Selection можно добавлять столбцы в таблицу. Есть ещё способ:

Visual Basic
1
2
3
Sub P1()
ActiveDocument.Tables(1).Columns.Add BeforeColumn:=ActiveDocument.Tables(1).Columns(2)
End Sub

@diletant2 · 18.06.2011, 11:57 **[ТС]**

Сообщение от Busine2009

Sub P2() Dim Строка As Word.Row For Each Строка In Selection.Tables(1).Rows Строка.Range.Characters.Last.Font.ColorI ndex = wdAuto Next Строка End Sub

спасибо, работает!

интересно, а без цикла - никак нельзя?

Новые блоги и статьи Все статьи Все блоги /
SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .	Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Новости компьютерного мира и их обсуждение (4) Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании (вариант 2) Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .

@diletant2 6 / 4 / 0 Регистрация: 02.05.2011 Сообщений: 102

	Условие для цикла Do While 11.06.2011, 22:38. Показов 5319. Ответов 27 Метки нет (Все метки) имеется таблица MS Word, в некоторых ячейках которой имеется текст со шрифтом красного цвета. в процессе работы программы в некоторых ячейках цвет шрифта заменяется на обычный. эту программу нужно повторять до тех пор, пока в таблице не останется ни одной ячейки с красным шрифтом. так вот, как задать это условие - наличие красного текста в таблице? 0