'全角数字を半角数字に With objRange.Find .Text = "[０-９]" .Replacement.Text = "" .Forward = True .Wrap = 1 .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .…

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.…