Удаление списков из документа

Комментариев: 9

1. 

   Вера
   14.05.2010 в 15:50 | #1

   К статье удаление списка:

   К сожалению, кнопка удаляет не только список но и маркер, которым он был отмечен. А как сделать замену маркера списка на тот же символ?

   (задача возникает после распонавания текста с диалогами файнридером. Диалоги частично распознаются как список. Как вернуть тире?)

   Подскажите, как можно сделать поиск элемента списка, чтобы сделать макрос, заменяющий маркер списка на тире?
2. 

   Александр Витер
   15.05.2010 в 06:38 | #2

   Не знаю как искать элемент списка, но преобразовать список в текст с соответствующим маркером можно всего лишь одной строкой макроса:

   Selection.Range.ListFormat.List.ConvertNumbersToText

   Если вы работаете с диалогом, то после тире (надеюсь, оно у вас длинное) должен стоять неразрывный пробел. Это тоже можно сразу же сделать:

   Sub ConvertListToDialog()
     Dim rng As Range
     With Selection.Range.ListFormat.List
       Set rng = .Range
       .ConvertNumbersToText
       rng.Find.Execute FindText:="^+^w", _
                       ReplaceWith:="^+^s", _
                       Replace:=wdReplaceAll
     End With
   End Sub

   Примеры приведены для списков, в которых находится курсор.

   Может быть можно искать список, учитывая, что у него особое форматирование абзаца: отступы, границы и т.п.?
3. 

   Комментатор 24
   15.05.2010 в 23:22 | #3

   А как переделать нумерованный список по алфавиту???
4. 

   andrkar
   16.05.2010 в 14:19 | #4

   Во что нужно переделать нумерованный список по алфавиту? поподробнее можно вопрос?
5. 

   Александр Витер
   16.05.2010 в 18:44 | #5

   А как переделать нумерованный список по алфавиту???

   Выделить и отсортировать
6. 

   andrkar
   16.05.2010 в 20:57 | #6

   Александр, а если речь шла о списках типа: а) б) в) и так далее???
7. 

   Александр Витер
   17.05.2010 в 07:26 | #7

   Какая разница? Сортировка ведь применяется к абзацам, а не к пунктам списка.
8. 

   Дмитрий
   17.06.2010 в 11:36 | #8

   Нашёл этот пост в поиске, но на мою проблему он не решил ..

   Не подскажете как оставить нумерацию всех списков в документе такой же, как в нумерованном списке, но при этом превратить всю её в просто текст?
9. 

   tusi
   24.03.2012 в 22:55 | #9

   здравствуйте

   В ворд2003 Selection.Range.ListFormat.List.ConvertNumbersToText работал, а ворд2010 проблема. Старые вба коды хочу перенести на 2010. Как решат проблему?