Hi all,
I am having a problem with Microsoft Word.
When I highlight text and the press the ctrl-u shortcut to underline, i
get the following VB error:
run-time error ‘4605’
The SelectNumber method or property is not available because the
current selection is not numbered or bulleted.
When I click on debug, it comes up with this:
Sub underline()
‘
‘ underline Macro
‘ Macro recorded 2/27/2008 by Susan Daly
‘
ActiveWindow.ActivePane.SmallScroll Down:=6
Selection.MoveRight Unit:=wdCharacter, Count:=1,
Extend:=wdExtend
Selection.MoveDown Unit:=wdLine, Count:=14
Selection.MoveLeft Unit:=wdCharacter, Count:=4
Selection.HomeKey Unit:=wdLine
Selection.Paragraphs(1).SelectNumber
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Paragraphs(1).SelectNumber
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=3,
Extend:=wdExtend
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveLeft Unit:=wdCharacter, Count:=2,
Extend:=wdExtend
With Selection.Font
.Name = “Arial”
.Size = 10
.Bold = False
.Italic = False
.underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = True
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorBlue
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub
Sub under()
‘
‘ under Macro
‘ Macro recorded 2/27/2008 by Susan Daly
‘
With Selection.Font
.Name = “Arial”
.Size = 10
.Bold = False
.Italic = False
.underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = True
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorBlue
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub
Selection.Paragraphs(1).SelectNumber is that is highlighted.
I have tried reinstalling Office, have installed the latest service pack
and still the same problem.
The other shortcuts work fine and it happens on all documents, new
ones and ones opened.
Any ideas would be greatly appreciated.
Jason