| romashkooff |
15-01-2020 17:19 2905159 |
Макрос для слова в обратном порядке
Столкнулся с задачей повернуть заданное слово задом наперёд с помощью макроса(Пример:*курсором тыкаю куда-то в центр любого слова и нажимаю сочетание клавиш макроса и слово пишется задом наперёд* *Пример*-*ремирП*). Макрос не должен быть написан с помощью VBA. Уважаемые знатоки, как это можно осуществить?
|
Цитата:
Цитата romashkooff
Макрос не должен быть написан с помощью VBA. »
|
Простите — а с помощью чего он должен быть написан?! Учитывая, что VBA — это единственный язык макросов в Microsoft Office (если не вспоминать про макросы Microsoft Excel 4.0). |
| romashkooff |
15-01-2020 18:20 2905184 |
Я говорю про кнопку "Запись макроса", а не написание его вручную. Т.е. макрос должен повторять действия записаные ранее.
|
romashkooff, так результатом как раз и будет VBA :). Внезапно.
|
romashkooff, попробуйте код ниже. Предполагаю, что речь идет о Word. Про макросы, кнопку запись и написание вручную не понял решительно ничего.
Код:
Sub StringReverse()
MsgBox StrReverse(Selection.Words.Item(1))
End Sub
|
Назначайте комбинацию клавиш и пользуйте:
Код:
Option Explicit
Sub RevertWord()
With Selection.Range
.Expand wdWord
If Right(.Text, 1) = " " Then
.MoveEnd Unit:=wdCharacter, Count:=-1
End If
.Text = StrReverse(.Text)
End With
End Sub
|
| romashkooff |
16-01-2020 00:18 2905241 |
В поставленной задаче нельзя открывать консоль VBA, только через запись действий, проделанных, нажав на кнопку "Запись макроса"
|
Поставленная задача бессмысленная. Блажь какая-то. Помечаю тему решенной и закрываю.
|
Время: 23:29.
© OSzone.net 2001-
