как убрать заголовок в ворде

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

Ответ от Лаппо Людмила[новичек]
Используй макрос (он вначале копирует параметры шрифта всех слов в массив 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

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

Ответ от 3 ответа[гуру]