Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2015, 22:17   #1
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию Переменные и циклы в ворде

Форумчане, подскажите как присвоить переменной выделенное слово?
Цикл перебора (с поочередным выделение всех слов) в тексте?
Demetros вне форума Ответить с цитированием
Старый 02.07.2015, 12:45   #2
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

Цитата:
Сообщение от Demetros Посмотреть сообщение
Форумчане, подскажите как присвоить переменной выделенное слово?
Цикл перебора (с поочередным выделение всех слов) в тексте?
На 1 вопрос нашел ответ:
sss=Selection.Words.First.Text: msgbox sss
Demetros вне форума Ответить с цитированием
Старый 02.07.2015, 16:28   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от Demetros Посмотреть сообщение
Цикл перебора (с поочередным выделение всех слов) в тексте?
В простейшем случае так
Код:
Sub Demetros()
Dim w As Range
For Each w In ActiveDocument.Words
  If LCase$(Trim$(w.Text)) Like "[a-zа-яё]*" Then
    w.Select
    MsgBox "очередное слово"
  End If
Next
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 02.07.2015, 17:12   #4
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию С помощью Selection.Find

Код:
    ЧтоИщем = "<[!^32]@>"       'шаблон поиска слов в тексте документа (не самый аккуратный)
Пример использования:
Изображения
Тип файла: jpg 2015-07-02_174208.jpg (25.0 Кб, 144 просмотров)
Вложения
Тип файла: doc 2015-LetterIndex.doc (53.0 Кб, 9 просмотров)

Последний раз редактировалось Sasha_Smirnov; 02.07.2015 в 19:17. Причина: адекватный документ.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 02.07.2015, 18:55   #5
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
В простейшем случае так
Код:
Sub Demetros()
Dim w As Range
For Each w In ActiveDocument.Words
  If LCase$(Trim$(w.Text)) Like "[a-zа-яё]*" Then
    w.Select
    MsgBox "очередное слово"
  End If
Next
End Sub
спасибо, то что нужно.
Demetros вне форума Ответить с цитированием
Старый 02.07.2015, 19:11   #6
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
В простейшем случае так
Код:
Sub Demetros()
Dim w As Range
For Each w In ActiveDocument.Words
  If LCase$(Trim$(w.Text)) Like "[a-zа-яё]*" Then
    w.Select
    MsgBox "очередное слово"
  End If
Next
End Sub
глюк какой-то, страниц 6-7 проходит и виснет.
Demetros вне форума Ответить с цитированием
Старый 02.07.2015, 19:21   #7
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Demetros, скакать по словам лучше без макросов: стрелки вправо/влево с зажатой клавишей Control.

Вы б рассказали форуму о перспективах — а то неясно, к чему всё это.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 02.07.2015, 19:54   #8
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

Цитата:
Сообщение от Sasha_Smirnov Посмотреть сообщение
Demetros, скакать по словам лучше без макросов: стрелки вправо/влево с зажатой клавишей Control.

Вы б рассказали форуму о перспективах — а то неясно, к чему всё это.
Почти закончил писать макрос для антиплагиата
Demetros вне форума Ответить с цитированием
Старый 03.07.2015, 08:14   #9
Demetros
Форумчанин
 
Регистрация: 28.01.2014
Сообщений: 126
По умолчанию

Цитата:
Сообщение от Sasha_Smirnov Посмотреть сообщение
Demetros, скакать по словам лучше без макросов: стрелки вправо/влево с зажатой клавишей Control.

Вы б рассказали форуму о перспективах — а то неясно, к чему всё это.
Этот способ не работает с текстом в таблице.
Demetros вне форума Ответить с цитированием
Старый 03.07.2015, 12:29   #10
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Shift — с выделением. Как не работает? Переход по ячейкам, а там так же.
Sasha_Smirnov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Циклы и переменные. _PROGRAMM_ Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 15 31.12.2011 18:05
Переменные экземпляра,класса, константы и переменные cop08 Общие вопросы .NET 3 20.12.2010 21:56
в Ворде talismanv90 Паскаль, Turbo Pascal, PascalABC.NET 1 07.06.2010 00:05
закладки в ворде delphi7 Помощь студентам 9 17.07.2009 11:10
Скрипт в ворде. NSvirus Фриланс 10 30.11.2008 13:17