Страницы: 1
RSS
МАКРОС надо переделать, чтобы макрос шла с 3ий страницы
 
Код
Sub cod()
'
' cod Макрос
'
'
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 2 = 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
Добрый день! Есть вот готовый макрос для ворда. (eq кодировка) Надо сделать так чтобы данный макрос шла с 3ий страницы, на не с 1ой! Моя почта:  УДАЛЕНО. Буду ждать, спасибо!
 
Сырым Жанжигитов,  Вы до сих пор не ознакомились с правилами? Почта должна быть в профиле.
Страницы: 1
Наверх