Макрос в Word'е

@~~Dzhej-Dzhej~~ · 02.09.2011, 11:14. **Показов** 1852. **Ответов** 7

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

Всем доброго времени суток.

Ситуация такова:
есть документ со строками типа

02 00 00 00 AD B4 10 00 9B 90 4E 1E 00 00 DE 02 00
04 00 00 00 AD B4 10 00 9B 90 4E 1E 00 00 FC 02 00
70 00 00 00 AD B4 10 00 9B 90 4E 1E 00 00 FC 02 00
...

то-есть протокол обмена в 16-ричном виде.

Я пытаюсь сделать вот что: выделяю 2-4 байта(один байт, например "FC") и запускаю макрос.
Он должен сделать следующее: покрасить выделенное в красный цвет, перед выделением поставить #, перейти в конец строки, перевести то что было выделено из 16-ричной в 10-ичную, записать в конце строки и покрасить то что записал.

Так как с макросами я не ознакомлен, в основном пишу код через запись макроса, возникают трудности.
Попытался написать, но макрос получился глючный, то работает, то вылетает на начало страницы, то "непонятно".
То что написал:

Visual Basic

    Dim s As String, n As Long, z() As String, i As Integer
    Dim pos1 As Integer, pos2 As Integer
    n = 0
    pos1 = Selection.Start
    'pos2 = Selection.End
    Selection.Font.Color = wdColorRed
    z = Split(Trim(Selection.Text), " ")
    Selection.End = pos1
    Selection.TypeText Text:="#"
    's = ""
    For i = LBound(z) To UBound(z)
        n = n + (CLng(CLng("&H" + z(i)) * 2 ^ (i * 8)))
    Next
    Selection.EndKey Unit:=wdLine
    pos1 = Selection.Start
    Selection.TypeText Text:="  "
    Selection.TypeText Text:=(CStr(n / 10))
    Selection.TypeText Text:=" êã."
    pos2 = Selection.End
    Selection.Start = pos1
    Selection.MoveRight Unit:=wdCharacter, Count:=pos2 - pos1, Extend:=wdExtend
    Selection.Font.Color = wdColorRed

Как сделать чтоб он работал(оптимизация кода не важна)?

Vourhey · 02.09.2011, 11:30

Сообщение от Dzhej-Dzhej

то работает, то вылетает на начало страницы, то "непонятно".

В VBA есть дебаггер. Пошаговая отладка еще никому не вредила.

@~~Dzhej-Dzhej~~ · 02.09.2011, 11:41 **[ТС]**

Хорошо погоняю дебаггером.

Еще есть вопрос: как поставить каретку в определенную позицию?

Vourhey · 02.09.2011, 12:09

Сообщение от Dzhej-Dzhej

как поставить каретку в определенную позицию?

используй методы объекта Selection

@~~Dzhej-Dzhej~~ · 02.09.2011, 12:32 **[ТС]**

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

используй методы объекта Selection

Думал, что что-то специальное есть.

Vourhey · 02.09.2011, 12:34

Сообщение от Dzhej-Dzhej

Думал, что что-то специальное есть.

Не понял фразы. Вообще-то объект selection и есть это "специальное". Позиция курсора - это выделение длиной в 0. Что еще нужно для счастья...

@~~Busine2009~~ · 06.09.2011, 11:18

Dzhej-Dzhej,
а так:

Код:

Visual Basic

Sub Процедура1()
    Dim s As String, n As Long, z() As String, i As Integer
    z = Split(Trim(Selection.Text), " ")
    Selection.Font.Color = wdColorRed
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=False
    Selection.TypeText Text:="#"
    For i = LBound(z) To UBound(z)
        n = n + (CLng(CLng("&H" + z(i)) * 2 ^ (i * 8)))
    Next
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="  "
    Selection.TypeText Text:=(CStr(n / 10))
    Selection.TypeText Text:=" кг."
End Sub

@~~Dzhej-Dzhej~~ · 06.09.2011, 11:27 **[ТС]**

так не идет

в конечном итоге сделал так

код

Visual Basic

    Dim s As String, n As Long, z() As String, i As Integer
    Dim pos1 As Long, pos2 As Long
    n = 0
    pos1 = Selection.Start
    Selection.Font.Color = wdColorRed
    z = Split(Trim(Selection.Text), " ")
    Selection.End = pos1
    Selection.TypeText Text:="#"
    For i = LBound(z) To UBound(z)
        n = n + (CLng(CLng("&H" + z(i)) * 2 ^ (i * 8)))
    Next
    Selection.EndKey Unit:=wdLine
    pos1 = Selection.Start
    Selection.TypeText Text:="  "
    Selection.TypeText Text:=(CStr(n / 10))
    Selection.TypeText Text:=" кг."
    pos2 = Selection.End
    Selection.Start = pos1
    Selection.Font.Color = wdColorRed

вроде работает, и хорошо, всеравно это промежуточное звено

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	02.09.2011, 11:30	2
	Сообщение от Dzhej-Dzhej то работает, то вылетает на начало страницы, то "непонятно". В VBA есть дебаггер. Пошаговая отладка еще никому не вредила. 1

@~~Dzhej-Dzhej~~ Заблокирован
	02.09.2011, 11:41 [ТС]	3
	Хорошо погоняю дебаггером. Еще есть вопрос: как поставить каретку в определенную позицию? 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	02.09.2011, 12:09	4
	Сообщение от Dzhej-Dzhej как поставить каретку в определенную позицию? используй методы объекта Selection 1

@~~Dzhej-Dzhej~~ Заблокирован
	02.09.2011, 12:32 [ТС]	5
	Сообщение от Vourhey используй методы объекта Selection Думал, что что-то специальное есть. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	02.09.2011, 12:34	6
	Сообщение от Dzhej-Dzhej Думал, что что-то специальное есть. Не понял фразы. Вообще-то объект selection и есть это "специальное". Позиция курсора - это выделение длиной в 0. Что еще нужно для счастья... 1

	06.09.2011, 11:27