Макрос RbInsertStyleName

[Neech]

Добрый день!
Ни у кого не завалялось макроса RbInsertStyleName для шестого ворда?
Буду очень благодарен.

 

[RIKITIKI]

Ответ: Макрос RbInsertStyleName

Из Перестройки?

 

[Neech]

Ответ: Макрос RbInsertStyleName

Не помню.
Он выносит название вордовского стиля в название дескриптора абзаца вентуры в виде:
@Name_style = текст абзаца ...

 

[RIKITIKI]

Ответ: Макрос RbInsertStyleName

Sub ConvertStyleIntoVentura()

NombreParas = ActiveDocument.Paragraphs.Count
For i = 1 To NombreParas
With ActiveDocument.Paragraphs(i).Range
texte$ = .Style
Select Case texte$
Case Is <> "Normal", "Normal (Web)"
.InsertBefore "@" & texte$ & " = "
End Select
End With
Next i


End Sub

 

[Neech]

Ответ: Макрос RbInsertStyleName

Спасибо, работает