Еще один способ обойти антиплагиат
В ответ на пост http://pikabu.ru/story/_3295164
@saysmonic , для ускорения работы макроса надо отключить обновление экрана.
Пропиши в начале кода:
Application.ScreenUpdating = False
Пропиши в конце кода:
Application.ScreenUpdating = True
Пропиши в начале кода:
Application.ScreenUpdating = False
Пропиши в конце кода:
Application.ScreenUpdating = True
раскрыть ветку (14)
@saysmonic, ага, а если ещё не заставлять ворд выделять селектом все подряд, то вообще будет гуд. Как именно в ворде это сделать не знаю, работаю только с экселем. Но одно могу сказать точно, забрать все значения и вывести с учётом этого символа будет на порядок(может даже 2) быстрее...
Главное чтобы никто не захотел пруфов в час ночи...
Главное чтобы никто не захотел пруфов в час ночи...
раскрыть ветку (11)
раскрыть ветку (9)
Я хочу Вас огорчить: у Вас другой часовой пояс... и ботинки...
Поскольку тратить своё РАБОЧЕЕ время на то, чтобы разобраться с названиями переменных в WORD я не хочу, вот тебе готовое решение (без выделения текста, найденное на просторах за 3 минуты):
Sub bb()
Dim i&
With ActiveDocument
For i = .Range.End - 1 To 1 Step -1
If .Range(i - 1, i).Font.Size = 14 Then .Range(i, i).InsertAfter "*"
Next
End With
End Sub
Макрос был создан автором для пометки звёздочкой символов с размером шрифта 14. Но для описанной задачи - вполне подойдёт.
1. ОТКРЫВАЕМ VBA (ctrl+f11)
2. Копируем текст оригинального макроса выше.
2. Вместо "14" пишем ваш размер шрифта. [переберёт весь документ и поставит после каждого символа c указанным размером знак "*"]
3. Вместо "*" ставим ваш НЕВИДИМЫЙ символ.
4. пользуемся.
@reyka00, Пойдёт в виде пруфа, друг?
@saysmonic, можно использовать ин-фо для ускорения процесса, как Вы и хотели.
Поскольку тратить своё РАБОЧЕЕ время на то, чтобы разобраться с названиями переменных в WORD я не хочу, вот тебе готовое решение (без выделения текста, найденное на просторах за 3 минуты):
Sub bb()
Dim i&
With ActiveDocument
For i = .Range.End - 1 To 1 Step -1
If .Range(i - 1, i).Font.Size = 14 Then .Range(i, i).InsertAfter "*"
Next
End With
End Sub
Макрос был создан автором для пометки звёздочкой символов с размером шрифта 14. Но для описанной задачи - вполне подойдёт.
1. ОТКРЫВАЕМ VBA (ctrl+f11)
2. Копируем текст оригинального макроса выше.
2. Вместо "14" пишем ваш размер шрифта. [переберёт весь документ и поставит после каждого символа c указанным размером знак "*"]
3. Вместо "*" ставим ваш НЕВИДИМЫЙ символ.
4. пользуемся.
@reyka00, Пойдёт в виде пруфа, друг?
@saysmonic, можно использовать ин-фо для ускорения процесса, как Вы и хотели.
раскрыть ветку (8)
раскрыть ветку (5)
раскрыть ветку (4)
посмотри все мои комменты, с этим у меня вечные проблемы, помоему было правило в интернете, если тебя поняли значит ошибки не было.
раскрыть ветку (3)
Я не случайно использовал паузу в работе, а так же разбил на два цикла. Попробовал ваш вариант, убивает ворд( Все, чтобы я не делал не приносит успеха, кроме как добавить еще циклов вложенных. Возможно это специфика vba, возможно у меня компьютер слабый, но добиться какой то человеческой скорости работы макроса не получается иначе, как в случае, что написал я.
раскрыть ветку (1)
Попробуйте увеличить интервал с 1 до 3 в большом вордовском документе, увидете прирост к скорости выполнения.
Оптимизация вообще отдельная история...
Оптимизация вообще отдельная история...