1 Тема от Dufi_man

  • Dufi_man
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.12.2016
  • Сообщений: 3

Тема: Проверить, совпадают ли первое и последнее слова word

Написать в среде Word макрос, который в выделенном фрагменте документа должен выполнять заданные действия и записывать ре¬зультат после исходного текста:
Проверить, совпадают ли первое и последнее слова (считать, что
слова в тексте разделены пробелами).

2 Ответ от viter.alex

  • Проверить, совпадают ли первое и последнее слова word
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 1

Re: Проверить, совпадают ли первое и последнее слова 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 Sub
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Dufi_man

  • Dufi_man
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.12.2016
  • Сообщений: 3

Re: Проверить, совпадают ли первое и последнее слова word

viter.alex пишет:
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 Sub

А можно объяснить что от куда

4 Ответ от Dufi_man

  • Dufi_man
  • рядовой
  • Неактивен
  • Зарегистрирован: 02.12.2016
  • Сообщений: 3

Re: Проверить, совпадают ли первое и последнее слова word

Words(1)  Объяите что  значит (1)

5 Ответ от Alex_Gur

  • Проверить, совпадают ли первое и последнее слова word
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Проверить, совпадают ли первое и последнее слова word

Dufi_man пишет:

Words(1)  Объяите что  значит (1)


Selection.Words(1), насколько я понимаю, - это первое слово в выделенном фрагменте.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

6 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110

Re: Проверить, совпадают ли первое и последнее слова word

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  --> последний