Thread: Delete Heading number for selected paragraph
View Single Post
 
Old 03-13-2022, 02:45 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
Try this
Code:
Sub DeleteHardNumbers()
  WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1
  Selection.Style = wdStyleNormal
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote