Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Помогите пожалуйста решить задачу на VBA(Word)!!!! Добавлено: 20.12.08 22:03  

Автор вопроса:  Cherry
Здравствуйте!!!Помогите пожалуйста решить следующую задачу: Выделить в тексте все буквы "а" красным цветом / снять выделение. Т.е. допустим мы пишем какой-либо текст в Word, а при нажатии на кнопку он должен все буквы "а" выделить красным цветом.

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #1 		Добавлено: 20.12.08 23:10
  1.  
  2. Sub macros()
  3.     Dim b As Boolean
  4.     b = True
  5.     Selection.Start = 0
  6.     Selection.End = 0
  7.     While b
  8.         Selection.Find.ClearFormatting
  9.         With Selection.Find
  10.             .Text = "à"
  11.             .Replacement.Text = ""
  12.             .Forward = True
  13.             .Wrap = wdFindStop
  14.             .Format = False
  15.             .MatchCase = False
  16.             .MatchWholeWord = False
  17.             .MatchWildcards = False
  18.             .MatchSoundsLike = False
  19.             .MatchAllWordForms = False
  20.         End With
  21.         Selection.Find.Execute
  22.         Selection.Font.Color = wdColorRed
  23.         b = Selection.Find.Found
  24.     Wend
  25. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #2 		Добавлено: 20.12.08 23:13
.Text = "а"

Ответить

Номер ответа: 3
Автор ответа:
 Cherry



Вопросов: 2
Ответов: 3
  Профиль | | #3 Добавлено: 21.12.08 13:42
Большое спасибо!Но вот боюсь что препод будет придираться. А вот в таком варианте решения задачи возможно?:
  Private Sub CommandButton1_Click()
  ;Dim счетчик As String
  ;Dim буква As String
  ;Dim слов As String
  слов = ActiveDocument.Words.Count
  счетчик = 0
  ;Do While счетчик < слов
  счетчик = счетчик + 1
If ActiveDocument.Words(счетчик).Characters.Count = "а" Then
ActiveDoument.Words(счетчик).Characters.First.FontColor = wdColorRed
End If
Loop
Unload UserForm1
End Sub
 Заранее спасибо.

Ответить

Номер ответа: 4
Автор ответа:
 Cherry



Вопросов: 2
Ответов: 3
  Профиль | | #4 Добавлено: 21.12.08 13:43
  1.  
  2. Private Sub CommandButton1_Click()
  3. Dim счетчик As String
  4. Dim буква As String
  5.  Dim слов As String
  6. сло = ActiveDocument.Words.Count
  7. счетчик = 0
  8. Do While счетчик < слов
  9. счетчик = счетчик + 1
  10. If ActiveDocument.Words(счетчик).Characters.Count = "а" Then
  11. ActiveDoument.Words(счетчик).Characters.First.FontColor = wdColorRed
  12. End If
  13. Loop
  14. Unload UserForm1
  15. End Sub
  16.  

Ответить

Номер ответа: 5
Автор ответа:
 Skywalker



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #5 		Добавлено: 21.12.08 14:04
  1. Private Sub CommandButton1_Click()
  2.     Dim i As Long
  3.     For i = 1 To ActiveDocument.Characters.Count
  4.         If ActiveDocument.Characters(i) = "а" Then
  5.             ActiveDocument.Characters(i).Font.Color = wdColorRed
  6.         End If
  7.     Next
  8.     Unload UserForm1
  9. End Sub

Ответить

Номер ответа: 6
Автор ответа:
 Cherry



Вопросов: 2
Ответов: 3
  Профиль | | #6 Добавлено: 21.12.08 17:06
Большое спасибо!!!Вы мне очень помогли!!!

Ответить

Номер ответа: 7
Автор ответа:
 Марина



Вопросов: 1
Ответов: 1
  Профиль | | #7 Добавлено: 16.05.11 14:32
Помогите, пожалуйста,решить задачу в VBA. Подсчитать количество положительных значений функции Z=2*C - 3*n^2 , при n = 0, 2, ..m

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам