Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Написать в среде Word макрос, который в выделенном фрагменте документа должен выполнять заданные действия и записывать ре¬зультат после исходного текста:
Проверить, совпадают ли первое и последнее слова (считать, что
слова в тексте разделены пробелами).
Sub IsWordsMatch()
Dim result$
If Selection.Words(1).Text = Selection.Words(Selection.Words.Count).Text Then
result = "Совпадают"
Else
result = "Не совпадают"
End If
Selection.Collapse wdCollapseEnd
Selection.TypeParagraph
Selection.TypeText result
End SubSub IsWordsMatch() Dim result$ If Selection.Words(1).Text = Selection.Words(Selection.Words.Count).Text Then result = "Совпадают" Else result = "Не совпадают" End If Selection.Collapse wdCollapseEnd Selection.TypeParagraph Selection.TypeText result End Sub
А можно объяснить что от куда
Words(1) Объяите что значит (1)
Words(1) Объяите что значит (1)
Selection.Words(1), насколько я понимаю, - это первое слово в выделенном фрагменте.
Dufi_man, Две нижеприведенные строки кода дают одинаковый результат
If Selection.Words(1).Text = Selection.Words(Selection.Words.Count).Text Then If Selection.Words.First.Text = Selection.Words.Last.Text Thenдля справки
По первой строке кода
Selection.Words.Count --> количество слов в выделенном фрагменте
Поэтому
Selection.Words(Selection.Words.Count).Text --> текстовое содержимое последнего слова в выделенном фрагменте документа
По второй строке кода, если туго с английским
First --> первый
Last --> последний
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Проверить, совпадают ли первое и последнее слова word
Для тех, кто хочет превратить процесс создания, проверки и редактирования, оформления и форматирования текстов из рутины и нудной механической работы в удовольствие, существует прекрасная возможность перенять приемы по автоматизации работы в Ворде, а также познакомиться с тонкими и редко используемыми настройками приложения на форуме сайта Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: в ворде весь текст жирным.
На форуме обсуждаются любые вопросы, связанные с программой. В первую очередь это написание всевозможных макросов и шаблонов для тех, либо иных операций. На портале о Microsoft Office Word вы узнаете про: как нумеровать страницу со второго листа 2007. Участники делятся секретами настроек приложения, оптимизации своей работы, предлагают готовые решения или схемы, по которым можно разработать решения самому. На портале о Microsoft Office Word вы узнаете про: применить один форматв ворде ко всему тексту. Также в специальном подфоруме есть возможность оставить заявку с описанием своей проблемы.