Код |
---|
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 |
МАКРОС надо переделать, чтобы макрос шла с 3ий страницы
15.05.2022 18:04:19
Сырым Жанжигитов, Вы до сих пор не ознакомились с правилами? Почта должна быть в профиле.
|
||||
|
|
|||