E
Ed
We have some macros that worked fine with Word 97 in Win 95. Now some
computers have upgraded to Office XP with Win XP, and the macros won't work.
They look like VBA, not Word Basic, and I'm at a total loss (not that I had
much to lose!). I've copied the first one of the string below - if anyone
can help get these going again, I'd appreciate it.
Ed
Attribute VB_Name = "NewMacros"
Sub sac()
Attribute sac.VB_Description = "Macro recorded 10/31/00 by Linda Freeman"
Attribute sac.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.sac"
'
' sac Macro
' Macro recorded 10/31/00 by Linda Freeman
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "ITEM ID"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.TypeParagraph
Selection.InsertBreak Type:=wdPageBreak
Selection.MoveDown Unit:=wdLine, Count:=2
End Sub
computers have upgraded to Office XP with Win XP, and the macros won't work.
They look like VBA, not Word Basic, and I'm at a total loss (not that I had
much to lose!). I've copied the first one of the string below - if anyone
can help get these going again, I'd appreciate it.
Ed
Attribute VB_Name = "NewMacros"
Sub sac()
Attribute sac.VB_Description = "Macro recorded 10/31/00 by Linda Freeman"
Attribute sac.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.sac"
'
' sac Macro
' Macro recorded 10/31/00 by Linda Freeman
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "ITEM ID"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.TypeParagraph
Selection.InsertBreak Type:=wdPageBreak
Selection.MoveDown Unit:=wdLine, Count:=2
End Sub