Вопрос № 95566: Уважаемые эксперты! Помогите пожалуйста решить задание!
Даны натуральное число n, символы s1,...,sn. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти какое нибудь ...
Вопрос № 95.566
Уважаемые эксперты! Помогите пожалуйста решить задание!
Даны натуральное число n, символы s1,...,sn. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти какое нибудь слово, начинающееся на букву a.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Максим Сергеевич!
Откройте любой Документ Microsoft Word, скопируйте в него любой текст, создайте макрос:
Сервис-Макрос-Макросы...
в появившемся окне в графе Имя: напишите любое имя и нажмите кнопку "Создать"
в появившемся окне, где окажетстя, курсор вставьте этот код и нажмите F5
(не забудьте поставить оценку за код :-))
Selection.EndKey Unit:=wdStory
Selection.TypeText Text:=Chr(182)
Selection.HomeKey Unit:=wdStory
Slovo$ = ""
10 simvol$ = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 1)
DvaSimvola$ = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End + 2)
If Flag = 1 Then Slovo$ = Slovo$ + simvol$
If simvol$ = " " Then
Flag = 0
If Slovo <> "" Then
Selection.EndKey Unit:=wdStory
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete
GoTo 20
End If
End If
If DvaSimvola$ = " À" Or DvaSimvola$ = " à" Or DvaSimvola$ = " A" Or DvaSimvola$ = " a" Then
Flag = 1
End If
If simvol$ = Chr(182) Then
Selection.Delete
GoTo 20
End If
Selection.MoveRight Unit:=wdCharacter, Count:=1
GoTo 10
20 MsgBox ("Pervoe slovo, nachinayusheecya na A - " & Slovo)
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 2-ой класс)
Ответ отправлен: 18.07.2007, 19:40 Оценка за ответ: 5
