Статьи из блога

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

Если в вашем документе помимо текста есть списки (как нумерованные, так и маркированные), то редактор Word позволяет одним кликом преобразовать из в обычный текст.

Для этого необходимо выделить элементы списка, подлежащие преобразованию, и нажать на кнопку Нумерованный список или Маркированный список, в зависимости от вида ваших списков.

 

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

 

Если при этом были выбраны не все элементы нумерованного списка, то нумерация оставшихся элементов будет логически изменена.

Таким же образом может быть произведена замена элементов одного вида в элементы другого типа.

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 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. 15.05.2010 в 23:22 | #3

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

  4. 16.05.2010 в 14:19 | #4

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

  5. 16.05.2010 в 18:44 | #5

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

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

  6. 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. Как решат проблему?

Оставьте комментарий!

(обязательно)

^ Наверх