Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Марина020696
1 / 1 / 0
Регистрация: 21.02.2015
Сообщений: 53
1

Word : Выделить зелёным фоном то слово в выделенном абзаце, номер которого получен из функции InputBox

20.06.2015, 15:51. Просмотров 573. Ответов 2
Метки нет (Все метки)

1. Word : Выделить зелёным фоном то слово в выделенном абзаце, номер которого получен из функции InputBox . Если слова с таким номером в данном абзаце нет, выдать соответствующее сообщение через функцию MsgBox .
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2015, 15:51
Ответы с готовыми решениями:

Каждое чётное слово в выделенном абзаце изменить, приписав к нему "Чёт_" (VBA Word)
29. Word : Каждое чётное слово в выделенном абзаце изменить, приписав к нему «Чёт_». Например: из...

В выделенном абзаце подчеркнуть те слова, длина которых выражается чётным числом (Word)
Срочно нужна помощь в решении задачи 13. Word : В выделенном абзаце подчеркнуть те слова, длина...

Excel : В выделенном диапазоне выделить жёлтым фоном те ячейки, которые не содержат числовых значений
2. Excel : В выделенном диапазоне выделить жёлтым фоном те ячейки, которые не содержат числовых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Viltora
1 / 1 / 0
Регистрация: 06.12.2015
Сообщений: 37
18.12.2017, 12:35 2
Без абзацев, только номер слова
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub l12()
 
Dim count As Integer
 
count = InputBox("введите номер слова")
 
For i = 1 To count Step 1
    If i = count Then
   ActiveDocument.Words(i).Font.Color = wdColorGreen
   End If
Next i
 
 
End Sub
0
Казанский
14914 / 6315 / 1721
Регистрация: 24.09.2011
Сообщений: 9,977
20.12.2017, 00:29 3
Марина020696, Viltora,
только вот слово из коллекции Words существенно отличается от слова в обычном понимании
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Mary()
Dim r As Range, en&, count&
  Set r = Selection.Paragraphs(1).Range
  en = r.End
  With r.Find
    .ClearFormatting
    .Text = "<*>"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    For count = 1 To InputBox("введите номер слова")
      If Not .Execute Or r.End > en Then
        MsgBox "Нет столько слов в этом абзаце", vbExclamation
        Exit Sub
      End If
    Next
    r.Font.Shading.BackgroundPatternColor = vbGreen
  End With
End Sub
0
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.