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

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

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

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

@Sasha_Smirnov · 12.06.2011, 05:09

1. Вот

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

текст со шрифтом красного цвета

2. А вот текст красного цвета.

Какой вариант у вас? 1?

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

пока в таблице не останется ни одной ячейки с красным шрифтом

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

@diletant2 · 12.06.2011, 05:37 **[ТС]**

ну, если Вы можете зеленый текст записать красным шрифтом - то это хорошо!

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

нет, смысл не текст сделать обычным, а условие задать: пока в таблице есть хоть одна ячейка с красным текстом - выполняется некое действие, как только нету - Loop. условие задать можете?

@Sasha_Smirnov · 14.06.2011, 11:31

Для одной таблицы получилось так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub bull() 'выделяет жирным текст ячеек, если он весь красный
Dim n As Long, m As Long
If ActiveDocument.Tables.Count = 0 Then MsgBox "Таблиц нет.": Exit Sub
 
With ActiveDocument.Tables(1)       'ищем в 1-й таблице документа Word
    
    For m = 1 To .Rows.Count
        For n = 1 To .Columns.Count
        .Cell(m, n).Select          'выделили ячейку таблицы
        
        If Selection.Font.ColorIndex = wdRed Then
        Selection.Font.Bold = True 'применили к найденному тексту жирность
        '(здесь с ним можно делать не только это, а всё что угодно)
        End If
            
        Next n
    Next m
 
End With
End Sub

Если же в ячейке текст не весь красный (а частично), то

Visual Basic
1
If Selection.Font.ColorIndex = wdRed

замените на

Visual Basic
1
If Selection.Font.ColorIndex <> wdAuto

@diletant2 · 15.06.2011, 04:27 **[ТС]**

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

Для одной таблицы получилось так.

Visual Basic
1
Sub bull() 'выделяет жирным текст ячеек, если он весь красный

спасиба, канэшна, но требовалось условие для цикла Do While... Loop... м.б. find.found?

@Busine2009 · 15.06.2011, 18:42

Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub P1()
Dim Таблица As Word.Range
Dim Флаг As Boolean
Do
    'Помещать таблицу в переменную надо именно здесь,
    'иначе поиск заканчивается (не получается зациклить).
    Set Таблица = ActiveDocument.Tables(1).Range
    Флаг = False
    With Таблица.Find
        .Text = ""
        .Format = True
        .Font.ColorIndex = wdRed
        .Forward = True
        .Execute
        If .Found = True Then
            Флаг = True
        End If
    End With
Loop While Флаг = True
End Sub

@diletant2 · 16.06.2011, 01:09 **[ТС]**

спасибо! но не были бы Вы столь добры разжевать код в комментах, в частности:
1. мне нужно не первую табл. в документе, а текущую, выделенную: Selection.Tables(1).Range
2. что есть Флаг As Boolean и почему он получает такие значения и для чего?

@Busine2009 · 16.06.2011, 01:20

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

1. мне нужно не первую табл. в документе, а текущую, выделенную: Selection.Tables(1).Range

Visual Basic
1
Set Таблица = Selection.Tables(1).Range

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

2. что есть Флаг As Boolean и почему он получает такие значения и для чего?

Продолжать поиск, пока находится красный текст.

@diletant2 · 16.06.2011, 01:58 **[ТС]**

да, но что это Флаг?

@Busine2009 · 16.06.2011, 03:54

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

да, но что это Флаг?

просто переменная.

@diletant2 · 17.06.2011, 02:11 **[ТС]**

ОК, спасибо!
а можно теперь прикрутить в цикл последовательность действий:
1. найти ячейку с красным текстом в текущей таблице
2. выделить(выбрать) столбец, в котором она находится
3. заменить текст во всем столбце на авто
4. вставить столбец справа от выделенного(выбранного)?

@Busine2009 · 17.06.2011, 07:35

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

а можно теперь прикрутить в цикл последовательность действий:

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

@all_angarsk · 17.06.2011, 10:17

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

Для одной таблицы получилось так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub bull() 'выделяет жирным текст ячеек, если он весь красный
Dim n As Long, m As Long
If ActiveDocument.Tables.Count = 0 Then MsgBox "Таблиц нет.": Exit Sub
 
With ActiveDocument.Tables(1)       'ищем в 1-й таблице документа Word
    
    For m = 1 To .Rows.Count
        For n = 1 To .Columns.Count
        .Cell(m, n).Select          'выделили ячейку таблицы
        
        If Selection.Font.ColorIndex = wdRed Then
        Selection.Font.Bold = True 'применили к найденному тексту жирность
        '(здесь с ним можно делать не только это, а всё что угодно)
        End If
            
        Next n
    Next m
 
End With
End Sub

Если же в ячейке текст не весь красный (а частично), то

Visual Basic
1
If Selection.Font.ColorIndex = wdRed

замените на

Visual Basic
1
If Selection.Font.ColorIndex <> wdAuto

почему не работает? подскажи???

@all_angarsk · 17.06.2011, 10:25

условия все выполнил

@Busine2009 · 17.06.2011, 10:28

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

ActiveDocument

это объект Wordа.

@all_angarsk · 17.06.2011, 10:37

Да, не прочитал условие!!!!!!

@diletant2 · 17.06.2011, 12:00 **[ТС]**

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

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

да нет, я не студент: тема интересная и, думаю, практически важная.

@all_angarsk · 17.06.2011, 12:04

а в ексели, чтобы работала как поправить

@Busine2009 · 17.06.2011, 20:57

Что-то там (VBA в Wordе) всё очень сложно с поиском в заданном диапазоне, поэтому такое решение было найдено.

Код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.Tables(1).AutoFitBehavior wdAutoFitWindow
    End With
Loop
End Sub

@diletant2 · 17.06.2011, 22:36 **[ТС]**

ОК, а Вы запускать пробовали? при выполнении долго-долго вставляет столбцы пока не выскакивает ошибка: Run-time error "5257": превышено максимально допустимое число колонок.
м.б. вставлять столбцы не по Selection а по Range? или что?

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

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

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

@diletant2 6 / 4 / 0 Регистрация: 02.05.2011 Сообщений: 102
	16.06.2011, 01:09 [ТС]
	спасибо! но не были бы Вы столь добры разжевать код в комментах, в частности: 1. мне нужно не первую табл. в документе, а текущую, выделенную: Selection.Tables(1).Range 2. что есть Флаг As Boolean и почему он получает такие значения и для чего? 0

@diletant2 6 / 4 / 0 Регистрация: 02.05.2011 Сообщений: 102
	16.06.2011, 01:58 [ТС]
	да, но что это Флаг? 0

@diletant2 6 / 4 / 0 Регистрация: 02.05.2011 Сообщений: 102
	17.06.2011, 02:11 [ТС]
	ОК, спасибо! а можно теперь прикрутить в цикл последовательность действий: 1. найти ячейку с красным текстом в текущей таблице 2. выделить(выбрать) столбец, в котором она находится 3. заменить текст во всем столбце на авто 4. вставить столбец справа от выделенного(выбранного)? 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	17.06.2011, 10:25
	условия все выполнил Миниатюры 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	17.06.2011, 10:37
	Да, не прочитал условие!!!!!! 0

@all_angarsk 763 / 270 / 57 Регистрация: 13.12.2009 Сообщений: 1,110
	17.06.2011, 12:04
	а в ексели, чтобы работала как поправить 0

@diletant2 6 / 4 / 0 Регистрация: 02.05.2011 Сообщений: 102
	17.06.2011, 22:36 [ТС]
	ОК, а Вы запускать пробовали? при выполнении долго-долго вставляет столбцы пока не выскакивает ошибка: Run-time error "5257": превышено максимально допустимое число колонок. м.б. вставлять столбцы не по Selection а по Range? или что? 0