Вычисления в Word

@a_krut · Регистрация: 27.04.2015

Author24 — интернет-сервис помощи студентам

Мне иногда приходится делать в Word простые вычисления. Хочется немного упростить этот процесс.
Для этого вынес на панель команду "Вычислить значение" из меню "Сервис" (исподьзую Word 2003).
Все работает. Набираю формулу, выделяю ее, нажимаю кнопочку - в буфере результат.
Набираю знак =, вставляю результат. Красиво, но долго.
Пытаюсь сделать это с помощью макроса. Записал макрос со всеми вышеперечисленными действиями.

Visual Basic

Sub Макрос()
    Selection.Calculate
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="="
    Selection.PasteAndFormat (wdPasteDefault)
End Sub

Не работает. Просто вставляет из буфера последнее значение. Почему? Возможно ли исправить?

@ViterAlex · 02.12.2016, 10:15

Visual Basic

Sub Calc()
    Dim result!
    result = Selection.Calculate
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="=" & result
End Sub

@a_krut · 02.12.2016, 11:32 **[ТС]**

Спасибо, все работает. Понятно, буфер обмена не используется.
Если можно, ответьте на 2 вопроса.
1) Что значит ! в описании переменной?
2) Таким ухищрением обходится ошибка майкрософтовцев? Я где-то находил, что в более старых версиях (типа 97-го ворда) работало и так, как я написал?

@ViterAlex · 02.12.2016, 12:36

Сообщение от a_krut

1) Что значит ! в описании переменной?

Сокращённое обозначение типа переменной. Полностью запись выглядит так:

Visual Basic

1	Dim result As Single

Сообщение от a_krut

Таким ухищрением обходится ошибка майкрософтовцев?

Никакой ошибки. Когда работа выполняется из макроса, то использовать буфер обмена нужно очень аккуратно.

@a_krut 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 18
	02.12.2016, 11:32 [ТС]	3
	Спасибо, все работает. Понятно, буфер обмена не используется. Если можно, ответьте на 2 вопроса. 1) Что значит ! в описании переменной? 2) Таким ухищрением обходится ошибка майкрософтовцев? Я где-то находил, что в более старых версиях (типа 97-го ворда) работало и так, как я написал? 0

	02.12.2016, 12:36

Вычисления в Word

Решение