привет

for each с in activedocument.charactars

if .... then
c.text="f"
end if

next c

у меня вопрос насчет этого цикла

я использую его для изменения некоторых characters но каждый раз когда я что нибуд меняю цикл начинается с начала как это предотвротить

заранее спасибо

whoismaiklНе мог бы Ты скинуть весь код?

For j = 1 To activedocument.Paragraphs.Count
l = 0
Set ss = activedocument.Paragraphs(j).Range
Set n = ss.Characters(1)
i = 0
For Each c In ss.Characters

If c = ChrW(1) Then
GoTo r
End If
i = i + 1
If (c.Font.Name = n.Font.Name) And (c.Font.Size = n.Font.Size) And (c.Font.Bold = n.Font.Bold) And (c.Font.Italic = n.Font.Italic) And (c.Font.Color = n.Font.Color) Then
l = l + 1

Else

ts = ss.SetRange(t + i - l, t + i)

d = rang(ss, ss.Font.Name, ComboBox1.Value)
' rang - это функция из dll которая меняет содержимое ss другим текстом но
' количесиво символов остается темже

l = 1
End If

r:
Set n = c
Next c
t = t + i
ts = ss.SetRange(t - l, t - 1)

d = rang(ss, ss.Font.Name, ComboBox1.Value)

next j

одним словом я беру одинаковые по font.name, font.size, font.color и т д регион range и меняю его другими символами тогоже количества
но когда вызывается функция rang то есть меняется range - ss цыкл начинается с начала и все путается

етот код работфет нормально когда в место цикла
For Each c In ss.Characters
я использую
for i = 1 to ss.characters.count
ss.characters(i)
next i

но он слишком медленно работает
надеюсь понято обяснил свою проблему также как и надеюсь на вашу помошь
спасибо

whoismaiklНе мог бы Ты скинуть весь код?


одним словом, я беру одинаковые по font.name, font.size, font.color и т д регион range и меняю его другими символами, тогоже количества.
но когда вызывается функция rang, то есть меняется range - ss, цыкл начинается с начала и все путается.

этот код работфет нормально когда в место цикла
я использую
но он слишком медленно работает
надеюсь понято обяснил свою проблему, также как и надеюсь на вашу помошь
спасибо