 |
|
|
10.12.2010, 13:09
|
#1 (ссылка) |
|
Новичок
Регистрация: 10.12.2010
Сообщений: 4
Репутация: 0
|
Пожалуйста, помогите написать макрос, способный вставить нужный символ
Необходимо написать макрос, способный вставить нужный символ в определённые строки документа. Сразу
приведу 3 примера фрагментов текста, в которых требуется вставить этот символ: Western Ukraine #15 Jan 14, 2009 Launceston, Australia #12 Jan 14, 2009 Essex Junction, VT #11 Jan 13, 2009 необходимо вставить символ ##SL (или, например @__) перед наименованием населённого пункта в пустую строку, а название населённого пункта поместить на следующую вниз - то есть просто сдвинуть ниже (Western Ukraine или Essex Junction, VT или Launceston, Australia - в тексте таких вариантов огромное количество). Постоянны только символ # - он больше нигде в документе не встречается и первые цифры года 200(x). Должно получиться вот так: ##SL Western Ukraine #15 Jan 14, 2009 ##SL Launceston, Australia #12 Jan 14, 2009 ##SL Essex Junction, VT #11 Jan 13, 2009 Надеюсь я ясно изложил свой вопрос. Если нет, пожалуйста, скажите что не так!!! Очень надеюсь на вас! Текста около 80000 страниц и таких значков нужно поставить в среднем около 5-ти на страницу... Вручную это можно делать вечность 
|
|
|
10.12.2010, 15:36
|
#2 (ссылка) |
|
Новичок
Регистрация: 29.07.2009
Сообщений: 565
Репутация: 30
|
aryumin,
а в какой программе находится текст? Если в Wordе, то сделайте следующее: включите отображение непечатаемых символов  - сделайте скриншот и вставьте сюда. Если вы разбираетесь в Wordе, то можно скриншот не делать, просто напишите, какие непечатаемые символы стоят в конце абзацев.Код:
Sub m_1()
With ActiveDocument.Range.Find
.Text = "#"
Do While .Execute
.Parent.Paragraphs(1).Previous.Range.InsertBefore (Chr(13))
.Parent.Paragraphs(1).Previous(2).Range.InsertBefore ("##SL")
Loop
End With
End Sub
Последний раз редактировалось Busine2009; 10.12.2010 в 15:59. |
|
|
| Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Помогите написать программу в Qbasic | DAmir13 | Программирование | 15 | 28.05.2011 21:03 |
| Нужный драйвера | Виктор 415 | Программы | 1 | 17.01.2011 19:26 |
| VBA макрос для Excel | Чистый листочек | Офис | 4 | 15.10.2010 20:20 |
| Хочу отредактировать макрос в экселе | Outlaws | Офис | 2 | 14.06.2010 21:28 |
| Как подобрать нужный драйвер/кодек? | Lanо4ка | Драйвера | 0 | 01.04.2010 11:04 |
| Пропала вкладка "вставить" и "вставить ярлык" | Noizzz | Windows XP | 6 | 31.01.2010 18:53 |
| Не могу поставить символ "собака" | ...NIKE... | Неисправности, настройка | 7 | 23.01.2010 04:20 |
| Помогите найти нужный драйвер для мультимедия контроллера звука | gfarf | Неисправности, настройка | 2 | 30.12.2009 21:26 |
| Автозамена ( Макрос ) | Kiel | Программирование | 0 | 08.12.2009 01:15 |
| Помогите написать гоночки!!! Delphi | versus88 | Программирование | 4 | 08.03.2009 20:51 |
| C#-требуется помощь, срочно!Помогите написать приложение! | Unusual | Программирование | 2 | 14.12.2008 17:14 |
| Помогите написать прогу! | Fuj_1000 | Программирование | 4 | 02.07.2008 20:54 |
