Visual Studio 2010 и VBA. Надстройка на основе макросов

[psybehemoth]

Здравствуйте.
Прошу Вашей помощи так как самостоятельно разобраться не смогу, видимо(

Передо мной встала задача создания надстройки уровня приложения для Word и Excel.
Есть три макроса на VBA запускаемые последовательно (Word-Excel-Word) и обрабатывающие некий массив.
Необходимо создать вкладку в ленте с кнопками, запускающими соответствующие макросы. Т.е. получается 2е надстройки (для каждого офис-приложения).
Для создания использую Visual Studio 2010 (нуб).
Проблема в том, не получается присвоить некоторой кнопке на панели выполнение определенного макроса. По всей видимости от меня ожидается код на VB, а не на VBA.
Указывает на ошибку в таких строках как:

Application.ScreenUpdating = False
.............
myView = ActiveWindow.View.Type
ActiveWindow.View.Type = wdNormalView
.............
With Selection.Find
.............
Selection.Find.Execute(Replace:=wdReplaceAll)

Подскажите, пожалуйста, как решить данную проблему.
Как принудить выполнять VBA код или если это невозможно - как переписать на VB?

P.S.: Есть ли возможность написать некую "оболочку" которая могла бы использовать функционал офисного пакета при этом не открывая эти приложения явно. По принципу - задал все необходимые данные и ждешь результата не созерцая окон Word и Excel и не нажимая лишних клавиш). Подскажите в какую сторону копать)

Спасибо)

[Скрипт]

psybehemoth, а такой макрос у вас запускается?

Sub Procedure_1()

    MsgBox "Процедура запущена."

End Sub

[psybehemoth]

Такой запускается

только полностью выглядит так:

Imports Microsoft.Office.Tools.Ribbon

Public Class LENTA

    Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles BStep1.Click

        MsgBox("Процедура запущена.")


    End Sub

End Class

[Скрипт]

psybehemoth, но вы писали в сообщении #1:

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

В сообщении #3 вы написали, что у вас получается запускать макросы. Так какой у вас сейчас тогда вопрос?

[psybehemoth]

Получилось запустить предложенный Вами простейший макрос.
Когда же я пытаюсь вставить свой (100% работоспособный, без ошибок) Studio на него ругается. Вот к примеру на строку в самом начале кода:

Application.ScreenUpdating = False

"Application" не объявлен.может быть недоступен из-за своего уровня защиты."
и так не только с ним

Пришил PrintScrin
http://s41.radikal.ru/i093/1306/c5/d678389fee6a.jpg

[Скрипт]

Пункт 1

psybehemoth, скриншоты можно выкладывать прямо на Форум. Мне, например, не нравится ходить по файлообменникам, т.к. там можно неприятные рисунки увидеть. На Форуме рисунки плохо выкладываются, поэтому рисунки нужно архивировать.


Пункт 2

Вы можете запустить макрос, который обрабатывает Word-документ из программы "Excel"? Давайте пока не будем рассматривать ваш конкретный код, а добьёмся, чтобы хоть вообще какой-то код стал работать, например этот:

Sub Procedure_1()
    
    'Вывод на монитор сообщения - имя активного Word-документа.
    MsgBox Application.ActiveDocument.Name

End Sub

[psybehemoth]

К сожалению, такой код уже не проходит.

ссылаясь на: "Application" не объявлен. Может быть недоступен из-за своего уровня защиты.

опять же скрин:

[Скрипт]

Добейтесь, чтобы у вас заработал этот код из программы "Excel". Когда у вас это получится, то вы уже будете иметь представление, как из одной программы управлять другой программой - это называется разными словами: OLE, COM, автоматизация.

Sub Procedure_1()

    Dim myWord As Object
    Dim myDocument As Object
    
    'Создаём объект "Word.Application" и даём этому объекту VBA-имя "myWord".
        'Через это имя можно обращаться к объекту "Word.Application".
    Set myWord = CreateObject("Word.Application")
    
    'Делаем программу "Word" видимой, чтобы если сбой произойдёт,
        'можно было бы закрыть программу вручную (крестиком в правом верхнем углу).
    myWord.Visible = True
    
    'Создаём новый документ и даём этому документу VBA-имя "myDocument".
    Set myDocument = myWord.documents.Add
    
    'Вывод на монитор сообщение - имя активного Word-документа.
    MsgBox myDocument.Name
    
End Sub

Sub Procedure_2()
    
    'Чтобы было удобно писать код, можно подключить библиотеку:
        'Tools - References... - Microsoft Word версия Object Library.
    'При подключении библиотеки, когда будем ставить точку,
        'то будет появляться список, из которого можно будет выбирать.
    
    'После тестирования кода можно отключить будет библиотеку,
        'чтобы при передаче кода другому человеку, не возникло проблем.
        
    Dim myWord As Word.Application
    Dim myDocument As Word.Document
    
    'Создаём объект "Word.Application" и даём этому объекту VBA-имя "myWord".
        'Через это имя можно обращаться к объекту "Word.Application".
    Set myWord = CreateObject("Word.Application")
    
    'Делаем программу "Word" видимой, чтобы если сбой произойдёт,
        'можно было бы закрыть программу вручную (крестиком в правом верхнем углу).
    myWord.Visible = True
    
    'Создаём новый документ и даём этому документу VBA-имя "myDocument".
    Set myDocument = myWord.documents.Add
    
    'Вывод на монитор сообщение - имя активного Word-документа.
    MsgBox myDocument.Name
    

End Sub

[psybehemoth]

вы уже будете иметь представление, как из одной программы управлять другой программой

Спасибо, но некоторое представление об этом я имею.
Вопрос же мой был несколько в ином (перефразирую):
1. Возможно ли в Visual Studio при создании надстройки уровня приложения для Word (Excel) использовать готовый код макроса на VBA?
2. Если "да" - то почему не работает и нужно ли производить какие-либо изменения?

Задумываться о взаимодействии двух надстроек можно будет после. Сейчас же и одной не выходит. А о том как связать два макроса в разных приложениях я уже в курсе, опять же.

как-то так...

P.S.: за ответы спасибо в любом случае)

[Скрипт]

psybehemoth, в сообщении #7 есть скриншот. Вы пишите в коде:

MsgBox(Application.ActiveDocument.Name)

Откуда кому-то знать в той программе, которую вы делаете, что Application - это объект программы "Word"?

В коде из сообщения #8 вот так узнаются данные о документе:

MsgBox myDocument.Name

Видите разницу?