Выполнение макроса Word из программы - Visual Basic .NET

Формулировка задачи:

Доброго времени суток. Задал себе задачу, а решить не могу( у меня макрос есть в документе Word, который ищет в автофигурах необходимые значения и заменяет их на нужные. мне нужно перевести этот макрос в VB.NET. Вот код макроса из Word. все прекрасно работает.

                    Листинг программы
                
 
                        
                          
                    
For Each sh In ActiveDocument.Shapes
   With sh.TextFrame
      If .HasText <> 0 Then
         Set rng = .TextRange
         With rng.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "что ищем"
            .Replacement.Text = "на что меняем"
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = False
            .Execute Replace:=wdReplaceAll
         End With
      End If
   End With
Next sh

Но стоит мне его перевести в VB.Net, он начинает ругаться.

Решение задачи: «Выполнение макроса Word из программы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Imports word = Microsoft.Office.Interop.Word
Public Class Main
Dim nwa As word.Application
Dim wd As word.Document
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
 For Each Shape In nwa.ActiveDocument.Shapes
            With Shape.TextFrame
                If .HasText <> 0 Then
                    With .TextRange.Find
                        .ClearFormatting()
                        .Replacement.ClearFormatting()
                        .Text = "1"
                        .Replacement.Text = "Первая автофигура"
                        .Forward = True
                        .Wrap = 1
                        .MatchCase = False
                        .Execute(Replace:=2)
                    End With
                End If
            End With
        Next Shape
End Sub
 
End Class