Macros can be saved in documents, but only in Word 97 and above, so it's
hard to see how a WordBasic macro could be saved with the document. Do you
see the macro in Tools | Macro | Macros? If so, change the "Macros in"
setting till you find out where it is.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site:
http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
Nope, we don't use custom addins and that folder is empty.
Normally when I hit a macro dialog, I am able to step through the code if it
is VBA and unprotected but I couldn't.... I have never seen a macro like
this before... quite stealthy.
I can't seem to find out much about these macros on the net... I don't think
Word XP has a problem with these macros just Word 2000 and below.
Here is an example of the old macro..
Thanks,
Chris
Private Sub VISA()
WordBasic.BeginDialog 331, 165, "Authorization for Individual Grant"
WordBasic.Text 68, 8, 167, 13, "Select U.S. visa type:"
WordBasic.OptionGroup "Opt"
WordBasic.OptionButton 119, 25, 40, 16, "&B"
WordBasic.OptionButton 119, 46, 39, 16, "&F"
WordBasic.OptionButton 119, 67, 37, 16, "&J"
WordBasic.OptionButton 119, 88, 60, 16, "&N/A"
WordBasic.OKButton 66, 117, 203, 31
WordBasic.EndDialog
Dim VIS As Object: Set VIS = WordBasic.CurValues.UserDialog
WordBasic.Dialog.UserDialog VIS
Select Case VIS.Opt
Case 0
WordBasic.WW2_Insert "B"
Case 1
WordBasic.WW2_Insert "F"
WordBasic.WW7_EditGoTo Destination:="IssuedByBK"
WordBasic.WW2_Insert "ISSUED BY:"
WordBasic.NextCell
WordBasic.WW2_Insert WordBasic.[InputBox$]("Institution or organization
sponsoring U.S. visa?", "Authorization For Individual Grant")
Case 2
WordBasic.WW2_Insert "J"
WordBasic.WW7_EditGoTo Destination:="IssuedByBK"
WordBasic.WW2_Insert "ISSUED BY:"
WordBasic.NextCell
WordBasic.WW2_Insert WordBasic.[InputBox$]("Institution or organization
sponsoring U.S. visa?", "Authorization For Individual Grant")
Case 3
WordBasic.WW2_Insert "N/A"
Case Else
End Select
End Sub
Private Sub AUTOPAY()
WordBasic.WW2_Insert WordBasic.[InputBox$]("Date of automatic payment to be
scheduled in New York?", "Authorization For Individual Grant")
WordBasic.NextCell
WordBasic.WW2_Insert "$"
WordBasic.WW2_Insert WordBasic.[InputBox$]("Amount of automatic payment to
be scheduled in New York?", "Authorization For Individual Grant")
ANOTHER
End Sub
Private Sub ANOTHER()
Dim M
M = WordBasic.MsgBox("Do you need another row of payment date and amount?",
"Authorization for Individual Grant", 4)
If M = -1 Then
WordBasic.NextCell
AUTOPAY
End If
End Sub
Could it be in an add-in in Word's Startup folder?
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site:
http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup
so
all may benefit.
Hello All,
My company still have wordbasic macros associated to a few documents but
if
I disassociate them from the document, the document STILL uses the macro.
Is
it possible for wordbasic macros(or any macro) to be embedded into the
document( not in the normal.dot template and not in the template portion
of
the document)?
I would like to be able to disable the macro from running if possible or
somehow disassociate the macro do some work and re-associate the macro. Is
this possible?
I thought all macros had to be initiated with code if you run in Visual
basic. The normal.dot does not have this macro because I removed it from
it's spot and let word re-create it. I even disassociated my computer from
the network where the macro lives and the document found a way to call the
macro.
Thanks in advance for any help,
Regards,
Chris H