![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 23.03.2011
Сообщений: 3
|
![]()
Подскажите где в макросе ошибка? Может где-то в условии...
Dim oRng As Range Dim oDoc As Document Dim oPar As Paragraph Set oDoc = ActiveDocument For Each oPar In oDoc.Paragraphs Set oRng = oDoc.Range With oRng.Find .Text = "$&&^p" .Format = False .MatchWildcards = True While .Execute .Parent.Select With Selection .MoveLeft Unit:=wdCharacter, Count:=1 .MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend .Delete .MoveUp Unit:=wdParagraph, Count:=1 .HomeKey Unit:=wdLine .TypeText Text:="$&&" End With Wend End With Next End Sub |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
![]()
на этой строке While .Execute
в чем идея макроса
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
![]() |
![]() |
![]() |
#3 |
Новичок
Джуниор
Регистрация: 23.03.2011
Сообщений: 3
|
![]()
Идея макроса заключается в том что:
Есть определенный текст, в конце абзацев стоят символы ($&&, &&$$ и др.) которые нужно удалить в конце и перенести в начало этих абзацев. Нужно зациклить это действие для разных вариантов символов. |
![]() |
![]() |
![]() |
#4 |
Новичок
Джуниор
Регистрация: 17.02.2011
Сообщений: 1
|
![]()
Позвольте предложить другой способ перемещения меток (у Вас -- символы ($&&, &&$$ и др.) от конца абзаца в начало
1) Создаем пользовательский стиль абзаца=параграфа -- например Style_Vpered_Iz_Zadu 2) Выполняем замену метки -- например $&& -- на метку с заданным стилем: Найти: "$&&" Заменить на: "$&&" Дополнительнно: Стиль "Style_Vpered_Iz_Zadu" 3) Перемещаем метку в начало абзаца, удаляем стиль: Режим: Подстановочные знаки Найти: "(?@)$&&(^13)" Дополнительнно: Стиль "Style_Vpered_Iz_Zadu" Заменить на: "$&&\1\2" Дополнительнно: Стиль "Normal" (или "Обычный", или тот, который Вы использовали ранее) Эти действия без труда возможно записать макрорекордером, пункты 2) и 3) повторить для других меток, это возможно в цикле |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
написал программу, где то ошибка, не пойму где... | Kelevra91 | Общие вопросы C/C++ | 5 | 17.01.2011 16:38 |
Где ошибка? | mia34933 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 09.12.2010 03:46 |
Где ошибка? С++ | Namolem | Помощь студентам | 1 | 15.09.2010 18:59 |
Где ошибка? | T-dayne | Помощь студентам | 2 | 10.02.2010 16:52 |
Где ошибка? | stas77 | Microsoft Office Excel | 11 | 02.11.2009 18:26 |