Добрый вечер! Есть у меня макрос, которые каждое третье слово меняет на код eq (ниже оставлю сам код). После запуска данного макроса, если выделить весь текст, то эти закодированные слова выделяется серым фоном. А надо сделать чтобы не выделялся при выделении. Я в интернете находил такой документ, где не видно этот серый фон, но самого кода не нашел, есть только с выделением. Помогите решить пожалуйста!!! Вот код:
Код
Sub EQScriptW()
Dim w As Range, j&, s$, nf0&, nf&, nw&, d0#, d#, d00#
Application.ScreenUpdating = False
d00 = Now
d0 = d00 + #12:00:01 AM#
Set w = ActiveDocument.Words.First
nw = ActiveDocument.Range.End
On Error Resume Next
While Not w Is Nothing
s = w.Text
If s Like "[А-Яа-яA-Za-z]*" Then
w.MoveEndWhile " ", wdBackward
j = j + 1
If j Mod 3 = 0 Then
With w.Fields.Add(Range:=w, Type:=wdFieldEmpty)
.Code.Text = "eq " & Trim$(s)
End With
nf = nf + 1
d = Now
If d >= d0 Then
Application.StatusBar = (w.Start - 5 * nf) * 100 \ nw & "% " & nf - nf0 & " полей/сек"
DoEvents
nf0 = nf
d0 = d + #12:00:01 AM#
End If
End If
End If
Set w = w.Next(wdWord)
Wend
Application.ScreenUpdating = True
d = Int((d - d00) * 86400)
If d = 0 Then d = 1
s = nf & " полей за " & d & " сек, " & Format(nf / d, "0.0 полей/сек")
MsgBox s, vbInformation
Debug.Print s
End Sub