Сохранение форма экспресс-блока при вставке через макрос

@Pazetamolka · Регистрация: 01.06.2015

Author24 — интернет-сервис помощи студентам

Вопрос мой такой.
Необходимо после определенного текста в документе вставлять объемный кусок текста.
В повседневности используется экспресс-блок.
Записала макрос на такое действие:

Visual Basic

Application.Templates( _
        "C:\Users\Ñåðãåé\AppData\Roaming\Microsoft\Document Building Blocks\1049\15\Building Blocks.dotx" _
        ).BuildingBlockEntries("Òàáëèöà ¹1.").Insert Where:=Selection.Range, _
        RichText:=True

Все естественно отрабатывается как надо.
Теперь указываю, макросу, где именно он должен все это вставить

Visual Basic

ActiveDocument.Range( _
 ActiveDocument.Bookmarks("BM1").Range.Start, _
 ActiveDocument.Bookmarks("BM1").Range.End) _
 .Select
 
 Selection.InsertAfter _
 Application.Templates( _
        "C:\Users\Ñåðãåé\AppData\Roaming\Microsoft\Document Building Blocks\1049\15\Building Blocks.dotx" _
        ).BuildingBlockEntries("¹ îáúåêòà")

Соответственно отличие от первого варианта, это

Visual Basic

1 2	_ RichText:=True

но их, мне не удается вписать в код, макрос ругается.
Подскажите в чем проблема, и если можно, то как поправить?

@KoGG · 25.06.2015, 16:58

Отличие от 1-го варианта намного больше :

Visual Basic

1	.Insert Where:=Selection.Range, RichText:=True

@Pazetamolka · 25.06.2015, 17:07 **[ТС]**

Ну хорошо, согласна, но

Visual Basic

1	Insert Where:=Selection.Range,

это , по-моему, не то, что отвечает, за сохранение формата экспресс-блока.
я с vba на вы. Но все таки прошу подсказать, по существу в чем проблема, как вставить определенный экспресс-блок в заданное место документа...

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

Добавлено через 46 секунд

Visual Basic

ActiveDocument.Bookmarks("BM1").Range.Select
 
 Application.Templates( _
        "C:\Users\Ñåðãåé\AppData\Roaming\Microsoft\Document Building Blocks\1049\15\Building Blocks.dotx" _
        ).BuildingBlockEntries("¹ îáúåêòà").Insert Where:=Selection.Range, _
        RichText:=True

работающий код

@KoGG · 25.06.2015, 17:08

Формат уходит, потому что удалено , RichText:=True

@Pazetamolka · 25.06.2015, 17:13 **[ТС]**

Окей, когда-нибудь я пойму ваш программистский мир =)

@KoGG 5606 / 1592 / 412 Регистрация: 23.12.2010 Сообщений: 2,382 Записей в блоге: 1
	25.06.2015, 17:08	4
	Формат уходит, потому что удалено , RichText:=True 0

@Pazetamolka 1 / 1 / 0 Регистрация: 01.06.2015 Сообщений: 13
	25.06.2015, 17:13 [ТС]	5
	Окей, когда-нибудь я пойму ваш программистский мир =) 0