[решено] Как удалить все стили (кроме по умолчанию) в ворд? [Версия для КПК]

Показать полную графическую версию : [решено] Как удалить все стили (кроме по умолчанию) в ворд?

Pozia

12-03-2012, 22:34

Есть куча документов ворд, где нужно оставить только стандартные стили и весть текст оформить обычным стилем. Как это быстро сделать?

Delirium

13-03-2012, 01:21

весть текст оформить обычным стилем »
В Word - Ctrl+A (выделить все), затем CTRL+пробел - весь текст станет стандартным стилем.

Vadikan

13-03-2012, 20:05

затем CTRL+пробел »
Нет, не станет. При этом убирается только ручное форматирование, например, выделение жирным.

Pozia

13-03-2012, 21:15

затем CTRL+пробел - весь текст станет стандартным стилем. »
Нет, не станет »
да, не стал. Так даже если вручную выделить все и нажать стиль обычный, то при копировании выделенного текста в другой файл каким то образом в конечном файле появляются стили из копируемого файла, а это мне не нужно

okshef

13-03-2012, 21:34

при копировании выделенного текста в другой файл каким то образом в конечном файле появляются стили из копируемого файла »

Ctrl + A, Ctrl + C, Ctrl + N, Ctrl + V -> сохранить только текст

Pozia

13-03-2012, 21:56

сохранить только текст »
метод жесток для формул, они убиваются в хлам. Как раз мой случай - много формул

Iska

14-03-2012, 07:46

Нет, не станет. При этом убирается только ручное форматирование, например, выделение жирным. »
Значит, вопрос был неверно озвучен автором. Ибо я понял вопрос ровно так же, как и Delirium: вернуть «ручное» форматирование к заданным стилям.

А что именно ему нужно — теперь и вовсе непонятно.

Pozia

25-03-2012, 10:58

А что именно ему нужно — теперь и вовсе непонятно. »
Есть куча документов ворд, »
раньше их создавал не задумываясь о стилях и их сути, создавал разные абы какие свои стили. Теперь если копирую часть текста из этих документов в созданные новые документы вставляются и стили мои старые, хоть я предварительно и назначаю всему тексту стиль обычный.
Если я предварительно захожу в редактор стилей и удаляю все свои созданные стили руками (около 30 шт.), а потом назначаю всему тексту стиль обычный, то копирование в другой файл происходит нормально, левые стили не захватываются, так как их уже нет.
Вот и интересно мне, как удалить пакетно все мои созданные стили, а не искать их среди всех?

Iska

26-03-2012, 03:26

Pozia, давайте сначала определимся: о каких стилях идёт речь, о стилях абзаца или стилях символов («знака» в трактовке новых версий Word)?

…как удалить пакетно все мои созданные стили, а не искать их среди всех? »
Например, так:
Sub DelUserStyles()
Dim objStyle As Style

For Each objStyle In ActiveDocument.Styles
If Not objStyle.BuiltIn Then
objStyle.Delete
End If
Next
End Sub

Pozia

28-03-2012, 21:41

давайте сначала определимся: о каких стилях идёт речь, о стилях абзаца или стилях символов («знака» в трактовке новых версий Word)? »
не ориентируюсь в названиях... стили те что находятся на главное вкладке в подразделе стили.Например, так: »
вот то, что надо. Удаляет. Спасибо

Iska

30-03-2012, 08:28

не ориентируюсь в названиях... стили те что находятся на главное вкладке в подразделе стили. »
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» и посмотреть на результат.

Pozia

31-03-2012, 18:05

Iska, вот первый ваш скрипт удалял все стили, то что мне нужно. Этот ничего не удаляет. И по Ctrl-G я не понимаю что смотреть? Выскакивает Найти и заменить.

Iska

31-03-2012, 19:00

Этот ничего не удаляет. »
Pozia, он не удаляет. Он показывает все стили активного документа, встроенные ли они, або пользовательские, а также их тип. Это был ответ на Ваш вопрос:
не ориентируюсь в названиях... »
дабы Вы получили представление о наличествующих в документе стилях (стили — это очень мощный инструмент Word'а).

И по Ctrl-G я не понимаю что смотреть? Выскакивает Найти и заменить. »
Не там нажимаете ;), коллега: Immediate Window Command (View Menu) (http://msdn.microsoft.com/en-us/library/gg251794.aspx). Нажимать нужно, находясь в Редакторе VBA.

Pozia

31-03-2012, 19:28

стили — это очень мощный инструмент Word'а »
вот это я понял недавно и сейчас разбираюсь и копаюсь.