1 Тема от MIHMIH007

  • MIHMIH007
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.10.2011
  • Сообщений: 1

Тема: Копирование и вставка элемента из одного документа в другой

Здравствуйте! Увидел как реализованы рамки ГОСТ.... и захотелось сделать такие же только формат другой.... но не могу понять как они сделаны и откуда вставляются..... Если кто может распишите пожалуйста как сделать самому такую же рамку... нарисовать то я смогу а вот как сделать чтобы эта рамка вставлялась с шаблона ума не приложу...

Но есть небольшая идея.... вставлять рамку с другого документа... например
1. Рисуем рамку в документе Document.doc
2. В шаблоне Normal.dot прописываем макрос которй будет копировать рамку из документа Document.doc и вставлять в открытый нами документ.
Но так как имя документа может быть любое то сначала нужно вроде получить имя документа куда вставлять..... вот ниже код.... но тут ошибка... помогите пожалуйста подправить
Спасибо

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 13.10.2011 Admin
'
    Set bb = ActiveDocument.Name
    ChangeFileOpenDirectory "C:\"
    Documents.Open FileName:="Document.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.Shapes("Group 2").Select
    Selection.Copy
    Windows(bb).Activate
    Selection.Paste
End Sub