Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день.
Нужна помощь знающих людей...
В word есть таблица. В одном из столбцов (столбец 5) присутствует дата. Необходимо, если это вообще возможно, сделать автоматическое выделение красным цветом всей строки, при условии, что дата просрочена на текущий момент. И еще, если до истечении даты осталось 15 дней, то выделить это строку желтым цветом.
Пример таблицы в приложении.
Покраска строки Вашей таблицы (из 7 столбцов) в красный и желтый цвета:
Sub LineRed()
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorRed
End SubSub LineYellow()
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend
Selection.Shading.Texture = wdTextureNone
Selection.Shading.ForegroundPatternColor = wdColorAutomatic
Selection.Shading.BackgroundPatternColor = wdColorYellow
End SubДля обхода текущей таблицы по строкам попробуйте выполнить следующие действия:
Sub CellsInRow1()
'Обход всех ячеек таблицы по строкам
Dim rngTable As Range
Dim oTable As Table
Dim oRow As Row
Dim oCell As Cell
Dim sStr As String
Set rngTable = Selection.Range
Set oTable = Selection.Tables(1)
If Not rngTable.Information(wdWithInTable) Then
MsgBox prompt:="Курсор находится вне таблицы"
Else
With oTable
For Each oRow In .Rows
For Each oCell In oRow.Cells
'Сюда можно вставить текст обработки ячеек
Next oCell
Next oRow
End With
End If
End Sub
Как стоки таблицы не знаю, а текст покрасить вполне можно с помощью полей:
{ If Z = 1 "Красный" "Желтый" }
Поле выводит Красный, если закладка Z содержит 1, иначе – Желтый.
Если эти слова раскрасить, то…
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Автоматическое выделение цветом строк таблицы
Различные проблемы, возникающие при написании или редактировании текстов в редакторе Ворд, можно решить несколькими способами. Наш сайт о Microsoft Office Word даст ответ про: как мне пронумеровать странице в ворде. Ворд – программа многозадачная и поливариантная. Но чтобы выбрать оптимальный способ и подходящие настройки, необходимо разобраться в приложении достаточно глубоко. На портале о Microsoft Office Word вы узнаете про: замена символа через ctrl f.
Этим вопросам посвящен форум сайта Ворд Эксперт. Участники делятся друг с другом своими наработками и секретами, предлагают различные способы настроек, макросы и шаблоны для вордовских операций, как готовые, так и принципы создания. На портале о Microsoft Office Word вы узнаете про: офис 2003 как сделать текст в рамке.
Все это описывается очень простым языком, в котором разберется любой пользователь. Кроме того, на форуме можно найти готовые решения, существует возможность создать заявку для решения вашей проблемы. На портале о Microsoft Office Word вы узнаете про: ключи активации офис 10.