Ограничить форматирование (Надстрочные / подстрочные)

[DJTreeno]

Доброго всем времени суток!
Может кто сталкивался с такой проблемой - я проделал следующую операцию: управление стилями -> ограничения -> разрешил нужные стили -> ограничить форматирование разрешенными стилями. Все вроде работало как надо, т.е. из других док-ов текст вставлялся только с использованием моих стилей. НО надстрочные/подстрочные символы не хотят, т.е. выравниваются в обычный текст. Как сделать так чтобы они нормально вставлялись при данном ограничении???

Word 2007

[Скрипт]

DJTreeno: т.е. из других док-ов текст вставлялся только с использованием моих стилей.

вы имеет ввиду, что если вы копируете текст, который имеет стиль, которого у вас нет в документе, тексту присваивается стиль "Обычный"? И при переходе от какого-то стиля к стилю "Обычный" и происходит очистка формата?

[DJTreeno]

Да именно это и происходит, мне не нужно чтобы копировался стиль из другого дока, но вот с надстрочными/ подстрочными произошел конфуз

[Скрипт]

DJTreeno, подстрочное и надстрочное оформление вы как делаете:

1. с помощью стиля. В данном случае, можно применить стиль знака или связанный стиль (это в "Word 2007");
2. с помощью кнопок на ленте или на панели инструментов?

[DJTreeno]

Скрипт, подстрочное и надстрочное оформление делаю не я и оно может быть выполнено двумя из этих способов, я лишь копирую текст в свой док, но скорее выполняется кнопками на ленте

[DJTreeno]

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

[Скрипт]

DJTreeno: О кажется я понял о чем вы

нет, я для другого спрашивал.

Я сделал наблюдение, что если подстрочное оформление сделано с помощью кнопок на ленте, то при удалении стиля, оформление сохраняется. Если же подстрочное оформление сделано с помощью стиля, то оформление не сохраняется.

Раз могут быть разные ситуации и вы не можете повлиять на оформление текста, то тогда может быть попробовать как-то с помощью макроса копировать. Макрос будет брать копируемые данные, анализировать их на наличие подстрочных символов, и затем вставлять в нужном виде. Не знаю, возможно ли такое. Нужно пробовать делать макрос.

[DJTreeno]

Sub Superscript2Footnote()
'замена надстрочных символов на стиль
Dim oRange As Range
Set oRange = ActiveDocument.Range
With oRange.Find
.ClearFormatting
.Forward = True
.Format = True
.Wrap = wdFindStop
.Font.Superscript = True
.Execute
While .Found

'Set fn = ActiveDocument.Footnotes.Add(oRange )
oRange.Move wdWord, 1
.Execute
oRange.Style = ActiveDocument.Styles("Надстрочный" )

Wend
End With
End Sub

Не получается конкретно выделить только надстрочные и выйти из цикла, помогите плиз!!!

[DJTreeno]

Бред какой-то выделять выделяет, а стиль не меняет, но в ручную меняет

Sub Superscript2Footnote()
'замена надстрочных символов на сноски
'помощь Steven M.
'http://groups.google.com/group/microsoft.public.word.vba.general/
Dim oRange As Range
Set oRange = ActiveDocument.Range
With oRange.Find
.ClearFormatting
.Forward = True
.Format = True
.Wrap = wdFindStop
.Font.Superscript = True
.Execute
While .Found

oRange.Select
Selection.Style = ActiveDocument.Styles("Надстрочный" )

Wend
End With
End Sub

[DJTreeno]

Так теперь работает, но не выходит из цикл, помогите плиз!!!!!

Sub Superscript()

Dim oRange As Range
Set oRange = ActiveDocument.Range
With oRange.Find
.ClearFormatting
.Forward = True
.Format = True
.Wrap = wdFindStop
.Font.Superscript = True
.Execute
While .Found

oRange.Select
Selection.Font.Superscript = False
Selection.Style = ActiveDocument.Styles("Надстрочный" )

Wend
End With
End Sub