Сброс формата текста при обновлениии

[ama3ono4ka]

Проблема такова:
1. Я делаю перекрестную ссылку на рисунок в документе.
2. Эту ссылку я выделяю и жма макрос(который выделенный текст делает определенным стилем, в данном случае синим).Пока все замечательно
3. Но! Когда я жму обновление ссылки, то последний стиль слетает и ссылка остается с первоначальным стилем.

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

Просьба помоч. Может кто то знает (может надо исправлять в самом макросе) как сделать так чтобы новый стиль ссылки сохранялся при обновлении.Спасибо

[Sasha_Smirnov]

Нажмите Alt-F9.
Добавьте в поле ссылки ключ \* mergeformat.
Обновите ссылку (жмакните F9).

А макрос хотелось бы посмотреть. А то вслепую я как-то не уверен.

[viter.alex]

Ну вы хотя бы текст макроса показали, как вы там стиль меняете. Я не понимаю, зачем нужен макрос, чтобы поменять стиль?
Если вы действительно макросом задаёте тексту стиль (как при выборе из библиотеки стилей), то он сбрасываться не будет. Если же макросом вы всего лишь меняете цвет, т.е. форматирование, то при обновлении поля оно будет сброшено.

[ama3ono4ka]

да,нужно было сразу показать макрос)
Итак, Макрос на вставку ссылки таков :

Sub Link(ByVal control As IRibbonControl)
'
' Âñòàâêà_ññûëêè Ìàêðîñ
'
Dim st As String
Dim tut As Range
Set tut = Selection.Range
'Selection.Collapse
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Íàçâàíèå îáúåêòà")
With Selection.Find
.Text = "Ðèñ."
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If Selection.Find.Execute = True Then
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
st = Selection.Text
tut.Select
Selection.InsertCrossReference ReferenceType:="Ðèñ.", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:=st, InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End If
End Sub

Отдельно есть макрос который выделенный тест оформляет определенным стилем (вот его то я и жму когда хочу придать ссылке определенный стиль и при обновлении он слетает =() :

Sub Blue(ByVal control As IRibbonControl)
' blue Ìàêðîñ
Selection.Style = ActiveDocument.Styles("Õàðàìàìáóðó" )
End Sub

[viter.alex]

Так, вроде всё правильно. Сделал то же самое вручную у себя: стиль перекрёстной ссылки сохраняется. Приложи весь документ, вместе с кодом ленты
Код нужно оформлять тегом [code][/code]

[CyberMen]

ama3ono4ka

жмакать правой кнопкой мыши и ставить галочку на "соохранить формат при обновлении"

да, ты права, надо жмакать.
Тут такая ситуация складывается, что перекрёстные ссылки ведут себя по-разному в зависимости от способа воздействия на них. Если делаешь шрифт перекрёстной ссылки жирным с помощью интерфейса, то галочка "Сохранять формат при обновлении" встаёт автоматически. Если же сделать шрифт перекрёстной ссылки жирным с помощью макроса:

Sub m_1()
Selection.Font.Bold = True
End Sub

то галочка уже не ставится.

То есть вопрос в чём? В автоматической вставке галочки "Сохранять формат при обновлении".

Пока вот такое откопал:

Sub m_2()
Selection.Fields(1).Code.Text = Selection.Fields(1).Code & "\* MERGEFORMAT"
End Sub

Очень большое неудобство - надо полностью выделить перекрёстную ссылку перед применением макроса.

[ama3ono4ka]

Хм, помогло то помогло не менять офрмат (см. рис.1), но вот косяк...если я удаляю ссылку и источник этой ссылки и делаю обновление послеующей ссылке то мне выдает ошибку (см. рис. 2)

Рис. 1



Рис.2

[CyberMen]

ama3ono4ka
нет рисунков на форуме и что тебе помогло то, помогло.

[ama3ono4ka]

Сообщение от CyberMen

ama3ono4ka

да, ты права, надо жмакать.
Тут такая ситуация складывается, что перекрёстные ссылки ведут себя по-разному в зависимости от способа воздействия на них. Если делаешь шрифт перекрёстной ссылки жирным с помощью интерфейса, то галочка "Сохранять формат при обновлении" встаёт автоматически. Если же сделать шрифт перекрёстной ссылки жирным с помощью макроса:

Sub m_1()
Selection.Font.Bold = True
End Sub

то галочка уже не ставится.

То есть вопрос в чём? В автоматической вставке галочки "Сохранять формат при обновлении".

Пока вот такое откопал:

Sub m_2()
Selection.Fields(1).Code.Text = Selection.Fields(1).Code & "\* MERGEFORMAT"
End Sub

Очень большое неудобство - надо полностью выделить перекрёстную ссылку перед применением макроса.

вот это чуть помогло..но не то что нужно

[CyberMen]

ama3ono4ka
опиши, что не так.