スクリプトでWordの全角数字を半角数字に置換

Script Word 
	'全角数字を半角数字に
	With objRange.Find
		.Text = "[０-９]"
		.Replacement.Text = ""
		.Forward = True
		.Wrap = 1
		.Format = False
		.MatchCase = False
		.MatchWholeWord = False
		.MatchByte = False
		.MatchAllWordForms = False
		.MatchSoundsLike = False
		.MatchFuzzy = False
		.MatchWildcards = True
	End With
	
	Do while objRange.Find.Execute
		objRange.CharacterWidth = 6
		intPosition = objRange.End
	   objRange.Start = intPosition
	Loop
	
	objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll
	Replace:=wdReplaceAll