Страницы: 1
RSS
Макрос Word, Надо написать макрос для ворда
 
Добрый вечер! Есть у меня макрос, которые каждое третье слово меняет на код 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
Изменено: Сырым Жанжигитов - 13.04.2022 13:08:55
 
Сырым Жанжигитов,  код следует оформлять соответствующим тегом. Ищите кнопку <...> и исправьте своё сообщение.
 
Юрий М, все исправил, спасибо за совет, в будущем буду иметь ввиду
Изменено: Сырым Жанжигитов - 13.04.2022 13:11:56
Страницы: 1
Наверх