スクリプトでWordの「,」を「、」に置換

	Set objDoc = objWord.Documents.Open(strArg)
	Set objSelection = objWord.Selection
	Set objRange = objDoc.Range()
	
	objSelection.Find.ClearFormatting
	objSelection.Find.Replacement.ClearFormatting
	
	With objSelection.Find
		.Text = ","
		.Replacement.Text = "、"
		.Forward = True
		.Wrap = wdFindContinue
		.Format = False
		.MatchCase = False
		.MatchWholeWord = False
		.MatchByte = False
		.MatchAllWordForms = False
		.MatchSoundsLike = False
		.MatchWildcards = False
		.MatchFuzzy = True
	End With
	objSelection.Find.Execute ,,,,,,,,,,wdReplaceAll