Как удалить все стили (кроме по умолчанию) в ворд?
Есть куча документов ворд, где нужно оставить только стандартные стили и весть текст оформить обычным стилем. Как это быстро сделать?
|
Цитата:
Цитата Pozia
весть текст оформить обычным стилем »
|
В Word - Ctrl+A (выделить все), затем CTRL+пробел - весь текст станет стандартным стилем. |
Нет, не станет. При этом убирается только ручное форматирование, например, выделение жирным. |
Цитата:
Цитата Delirium
затем CTRL+пробел - весь текст станет стандартным стилем. »
|
да, не стал. Так даже если вручную выделить все и нажать стиль обычный, то при копировании выделенного текста в другой файл каким то образом в конечном файле появляются стили из копируемого файла, а это мне не нужно |
Цитата:
Цитата Pozia
при копировании выделенного текста в другой файл каким то образом в конечном файле появляются стили из копируемого файла »
|
Ctrl + A, Ctrl + C, Ctrl + N, Ctrl + V -> сохранить только текст |
метод жесток для формул, они убиваются в хлам. Как раз мой случай - много формул |
Цитата:
Цитата Vadikan
Нет, не станет. При этом убирается только ручное форматирование, например, выделение жирным. »
|
Значит, вопрос был неверно озвучен автором. Ибо я понял вопрос ровно так же, как и Delirium: вернуть «ручное» форматирование к заданным стилям.
А что именно ему нужно — теперь и вовсе непонятно. |
Цитата:
Цитата Iska
А что именно ему нужно — теперь и вовсе непонятно. »
|
Цитата:
Цитата Pozia
Есть куча документов ворд, »
|
раньше их создавал не задумываясь о стилях и их сути, создавал разные абы какие свои стили. Теперь если копирую часть текста из этих документов в созданные новые документы вставляются и стили мои старые, хоть я предварительно и назначаю всему тексту стиль обычный.
Если я предварительно захожу в редактор стилей и удаляю все свои созданные стили руками (около 30 шт.), а потом назначаю всему тексту стиль обычный, то копирование в другой файл происходит нормально, левые стили не захватываются, так как их уже нет.
Вот и интересно мне, как удалить пакетно все мои созданные стили, а не искать их среди всех? |
Pozia, давайте сначала определимся: о каких стилях идёт речь, о стилях абзаца или стилях символов («знака» в трактовке новых версий Word)?
Цитата:
Цитата Pozia
…как удалить пакетно все мои созданные стили, а не искать их среди всех? »
|
Например, так:
Код:
Sub DelUserStyles()
Dim objStyle As Style
For Each objStyle In ActiveDocument.Styles
If Not objStyle.BuiltIn Then
objStyle.Delete
End If
Next
End Sub
|
Цитата:
Цитата Iska
давайте сначала определимся: о каких стилях идёт речь, о стилях абзаца или стилях символов («знака» в трактовке новых версий Word)? »
|
не ориентируюсь в названиях... стили те что находятся на главное вкладке в подразделе стили. вот то, что надо. Удаляет. Спасибо |
Цитата:
Цитата Pozia
не ориентируюсь в названиях... стили те что находятся на главное вкладке в подразделе стили. »
|
Код:
Sub ShowStyles()
Dim arrStyleType(4) As String
Dim objStyle As Style
arrStyleType(wdStyleTypeCharacter) = "Character"
arrStyleType(wdStyleTypeList) = "List"
arrStyleType(wdStyleTypeParagraph) = "Paragraph"
arrStyleType(wdStyleTypeTable) = "Table"
Debug.Print String(79, "=")
Debug.Print Left("Название стиля" & Space(30), 30), "Встроенный", "Тип стиля"
Debug.Print String(79, "=")
For Each objStyle In ActiveDocument.Styles
Debug.Print Left("[" & objStyle.NameLocal & "]" & Space(30), 30), IIf(objStyle.BuiltIn, "+", " "), arrStyleType(objStyle.Type)
Next
Debug.Print String(79, "=")
End Sub
После запуска и исполнения проццедуры нажмите Ctrl-G, дабы открыть окно «Immediate» и посмотреть на результат. |
Iska, вот первый ваш скрипт удалял все стили, то что мне нужно. Этот ничего не удаляет. И по Ctrl-G я не понимаю что смотреть? Выскакивает Найти и заменить.
|
Цитата:
Цитата Pozia
Этот ничего не удаляет. »
|
Pozia, он не удаляет. Он показывает все стили активного документа, встроенные ли они, або пользовательские, а также их тип. Это был ответ на Ваш вопрос:
Цитата:
Цитата Pozia
не ориентируюсь в названиях... »
|
дабы Вы получили представление о наличествующих в документе стилях (стили — это очень мощный инструмент Word'а).
Цитата:
Цитата Pozia
И по Ctrl-G я не понимаю что смотреть? Выскакивает Найти и заменить. »
|
Не там нажимаете ;), коллега: Immediate Window Command (View Menu). Нажимать нужно, находясь в Редакторе VBA. |
Цитата:
Цитата Iska
стили — это очень мощный инструмент Word'а »
|
вот это я понял недавно и сейчас разбираюсь и копаюсь. |
Время: 09:37.
© OSzone.net 2001-
