Top.Mail.Ru
Ответы

Как удалить все заголовки не нарушая структуры текста. word 2010

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

Увеличить

По дате
По рейтингу
Аватар пользователя
Новичок
13лет

содержание удали

Аватар пользователя
Ученик
8лет

Выделить весь текст (Ctrl+A) - Щелчок правой кнопкой мыши - Абзац - Отступы и интервалы - Уровень - Основной текст - Ок

Аватар пользователя
Мудрец
13лет

Выдели текст имеющий тот же формат (на главной панели есть такой пункт справа) и очисти стиль (обычный примени)

Аватар пользователя
Ученик
9лет

Используй макрос (он вначале копирует параметры шрифта всех слов в массив fonts, параметры абзаца в массив parag, после применяет всему выделению стиль обычный и затем восстанавливает скопированные параметры из массивов)
Если узнаете как полностью скопировать параметры абзаза и шрифта а не по некоторым полям - сообщите плиз.

Sub Макрос3()
'
' Макрос3 Макрос
'
'
n = Selection.Words.Count
m = Selection.Paragraphs.Count

ReDim fonts(n, 3)
ReDim Parag(m, 4)

For i = 1 To n
fonts(i, 1) = Selection.Words(i).Font.Bold
fonts(i, 2) = Selection.Words(i).Font.Italic
fonts(i, 3) = Selection.Words(i).Font.Underline
Next

For i = 1 To m
Parag(i, 1) = Selection.Paragraphs(i).Format.LeftIndent
Parag(i, 2) = Selection.Paragraphs(i).Format.RightIndent
Parag(i, 3) = Selection.Paragraphs(i).Format.FirstLineIndent
Parag(i, 4) = Selection.Paragraphs(i).Format.Alignment
Next

Selection.Style = ActiveDocument.Styles("Обычный")

For i = 1 To m
Selection.Paragraphs(i).Format.LeftIndent = Parag(i, 1)
Selection.Paragraphs(i).Format.RightIndent = Parag(i, 2)
Selection.Paragraphs(i).Format.FirstLineIndent = Parag(i, 3)
Selection.Paragraphs(i).Format.Alignment = Parag(i, 4)
Next

For i = 1 To n
Selection.Words(i).Font.Bold = fonts(i, 1)
Selection.Words(i).Font.Italic = fonts(i, 2)
Selection.Words(i).Font.Underline = fonts(i, 3)
Next

End Sub