Run Macro made in MS Word.

[vkagrawal]

Hi
I have made a macro in ms word.
Corresspondning this macro a form is associated, and on RUN of this macro operation is performed.

Now i need to make this macro available as a tool in ms word for any number of files, such that when i install this macro and associated form in any machine, i should be able to do operation.

How can i make a macro available as TOOL.

Please provide any solution.

Regards,
VkAgrawal

[willakawill]

Hi. Do you mean by Tool to make a vb app that anyone can install and run? If that is the case please post the code that you have so far and let us know where you are stuck. Thanks

[vkagrawal]

Hi. Do you mean by Tool to make a vb app that anyone can install and run? If that is the case please post the code that you have so far and let us know where you are stuck. Thanks

Hi

This is the code and it used Test Director addins, which i have installed in may machine.
do you need FORM also which i have made.

Public arr As Variant
Public TableNo As Integer
 
Public Sub MAIN()
 
    Dim i As Integer
    TableNo = 0
    For i = 1 To ActiveDocument.Tables.Count
        'Get input from user for FolderPath and Test case Name
        TableNo = i
        AutoTaggingForm.Show
        Call AddBookmarks
    Next
 
    TDWordAddin.ShowExportWizard
 
End Sub
 
Sub RemoveBookmarks()
    Dim i As Integer
    Dim arrBookmark() As String
 
    ReDim arrBookmark(ActiveDocument.Bookmarks.Count)
    For i = 1 To ActiveDocument.Bookmarks.Count
        arrBookmark(i) = ActiveDocument.Bookmarks(i).Name
    Next
    For i = 1 To UBound(arrBookmark)
        ActiveDocument.Bookmarks(arrBookmark(i)).Delete
    Next
 
    For i = 1 To UBound(arr) + 1
        If Trim(ActiveDocument.Sentences(1).Text) = arr(UBound(arr)) & Chr(13) Then
            ActiveDocument.Sentences(1).Delete
            ActiveDocument.Sentences(1).Delete
            Exit For
        End If
        ActiveDocument.Sentences(1).Delete
    Next
 
End Sub
 
Sub AddBookmarks()
 
    Dim TotRows As Integer, i As Integer
 
    ' Adding Bookmarks for New steps
    For TotRows = 2 To ActiveDocument.Tables(TableNo).Rows.Count
        ThisDocument.Tables(TableNo).Cell(TotRows, 1).Select
        If Trim(Selection.Text) = "" Then
            MsgBox "Step name can't be empty", vbCritical
            Call RemoveBookmarks
            Exit Sub
        End If
        ActiveDocument.Bookmarks.Add Name:="CreateNewStep" & TotRows - 1
        ThisDocument.Tables(TableNo).Cell(TotRows, 2).Select
        ActiveDocument.Bookmarks.Add Name:="StepDescription" & TotRows - 1
        ThisDocument.Tables(TableNo).Cell(TotRows, 3).Select
        ActiveDocument.Bookmarks.Add Name:="ExpectedResult" & TotRows - 1
    Next
 
    ActiveDocument.Tables(TableNo).Select
    Selection.EndKey Unit:=wdStory
    For i = 0 To UBound(arr)
        Selection.TypeParagraph
        Selection.Bookmarks.Add Name:="CloseTestFolder" & i
    Next
End Sub

Regards,
VkAgrawal

[willakawill]

Ok you can do this in vb and create a stand alone application that you can install on any pc. You need to use ms word automation which will be similar to what you have done here.

this is similar to what you have done and will start you off