|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2011, 18:44 | #1 |
Новичок
Джуниор
Регистрация: 23.03.2011
Сообщений: 3
|
Шапка!
Всем доброго времени суток!
Собстенно в чем вопрос: нужен макрос для находжения в тексте абзаца определенных знаков и перемещение их в начало абзаца. Поковырявшись немного в И-нете нашел вот такое написание макроса, но он сделан для таблицы. Dim t As Table / Dim oCell As Cell / Dim oRng As Range / условие для таблицы Set t = ActiveDocument.Tables(1) / For Each oCell In t.Columns(4).Cells / Set oRng = oCell.Range With oRng.Find .Text = "янв. [0-9]" .Format = False .MatchWildcards = True While .Execute .Parent.Select 'сейчас работает With Selection .MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend .Delete .EndKey Unit:=wdLine .TypeText Text:=" янв." End With Wend End With Next Как переделать условие макроса для текстового абзаца? Последний раз редактировалось VoVchik11; 24.03.2011 в 11:15. |
24.03.2011, 23:28 | #2 |
Особый статус
Участник клуба
Регистрация: 24.11.2008
Сообщений: 1,535
|
Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Шапка в ListBox'е | Aiden | Microsoft Office Excel | 2 | 29.09.2010 11:27 |
Шапка сайта | Dream Theatre | HTML и CSS | 2 | 02.05.2010 18:08 |
Шапка листа | chipola | Microsoft Office Excel | 4 | 04.04.2010 07:22 |
Динамическая шапка | dr.Chas | HTML и CSS | 1 | 03.09.2009 08:25 |
Шапка таблицы | Aiorosu | БД в Delphi | 10 | 24.03.2009 10:24 |