[a_axe]

vanvanov, объектную модель ворда я представляю смутно, с бедра на вскидку - такой код:

Код:

Sub Select_word()
Dim strTxt As String

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strTxt = Right(Selection.Text, 1)
Select Case strTxt
Case ".", ",", " ", "!", "?"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Select
End Sub

Ограничение - курсор должен стоять непосредственно перед тем словом, которое вы хотите выделить.
Соответственно, возможен вариант, чтобы курсор стоял в любом месте слова, тут однако код работает не совсем корректно в граничных условиях (при выделении в начале документа, скобочки и т.д.), если есть желание потестировать - попробуйте код ниже (остановить выполнение кода можно сочетанием ctrl+break , если вдруг зависнет)

Посмотреть код:

Код:

Sub s_wd()
Dim strTxt As String
Do
If Selection.Start = 0 Then Exit Do
If Selection.Information(wdFirstCharacterColumnNumber) = 1 Then Exit Do
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
strTxt = Selection.Text
If strTxt = " " Then Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=1

Loop Until strTxt = " "

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strTxt = Right(Selection.Text, 1)
Select Case strTxt
Case ".", ",", " ", "!", "?"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Select
    
End Sub

[vanvanov]

a_axe, спасибо большое! Ваш код работает (я пробовал 1-й вариант), однако, тут возникла другая проблема. Я назначил на макрос Ctrl+Shift+Стрелка вправо, чтобы использовать универсальные сочетания клавиш. Но раньше я мог зажать Ctrl+Shift и выделять соседние слова с помощью стрелки вправо, а теперь таким образом выделяется только текущее слово. Может, как-нибудь можно прописать дальнейшее выделение с помощью стрелки вправо?

[a_axe]

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

Код:

Sub Select_word()
Dim strTxt As String
If Len(Selection.Text) <> 1 Then
Selection.MoveRight Unit:=wdCharacter, Count:=2
End If

Select Case Selection.Text
Case ".", ",", " ", "!", "?"
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select

Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strTxt = Right(Selection.Text, 1)
Select Case strTxt
Case ".", ",", " ", "!", "?"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Select
End Sub

Альтернативный вариант кода:

читать дальше »

Код:

Sub s_wd()
Dim strTxt As String
If Len(Selection.Text) <> 1 Then
Selection.MoveRight Unit:=wdCharacter, Count:=2
End If

Select Case Selection.Text
Case ".", ",", " ", "!", "?"
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Select

Do
If Selection.Start = 0 Then Exit Do
If Selection.Information(wdFirstCharacterColumnNumber) = 1 Then Exit Do
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
strTxt = Selection.Text
If strTxt = " " Then Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=1

Loop Until strTxt = " "



Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

strTxt = Right(Selection.Text, 1)
Select Case strTxt
Case ".", ",", " ", "!", "?"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End Select
    
End Sub

[vanvanov]

a_axe, это уже ближе к истине, но не совсем то. Можно ли использовать стрелку вправо не для сдвига выделения на одно слово, а для расширения уже существующего выделения еще на одно слово (но без пробелов, пунктуации на конце)? Я сделал анимированный GIF, который показывает, как в моем представлении это должно происходить:

[LEmiD]

Шли годы, а решения так и нет.
Скажите в 10 винде это проблема осталась, а в 11 ? (ну то есть повод обновлять есть или нет, ну они же сделали копипасту в консоле)