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