引用:
文書内の3種類の文字に変更を加えたいのですが、
以下の記述では最初の種類の文字("/")しか変更できませんでした。
どこがおかしいか教えてください。
引用:
myArray = Array("/", "○", "ー") '←3種類の文字
Selection.WholeStory
For i = 0 To 2
With Selection.Find
.Text = myArray(i)
Do While .Execute
Selection.Font.Size = 10 '←サイズを変更したい
Loop
End With
i = 0 回目のループが完了した時点における選択範囲が
文書内の最後の "/" のみであり、その中に "○" や "ー"
といった文字列は当然含まれていないため。
(修正例)
-------------------------------------------------------------
Dim myArray As Variant, i As Long
myArray = Array("/", "○", "ー")
With
ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Replacement.Font.Size = 10
For i = 0 To 2
.Text = myArray(i)
.Replacement.Text = myArray(i)
.Execute Replace:=wdReplaceAll
Next i
End With
-------------------------------------------------------------