VBAマクロを使用して単語内の個々の文字を置換する2007文書

-1

選択した文字列内の特定の文字を他の特定の文字に置き換えるマクロを記述する必要があります。つまり、たとえば、すべてのaをb、すべてのbをcと置き換えたい場合などです。VBAマクロを使用して単語内の個々の文字を置換する2007文書

文字を置き換えることができるかどうかを確認するためにこのテストマクロを書きました。無限ループに陥り、選択項目の最初の文字を "1"に置き換えます。

Dim obChar As Range 'Define a range variable 
For Each obChar In Selection.Characters 
    obChar.Text = "1" 
Next obChar

私は間違っていますか？一体私は新しいコードでフォーマットされたコメントを追加するにはどうすればよい...

Dim i As Integer 

For i = Selection.Characters.Count To 1 Step -1 
    Selection.Characters(i).Text = "1" 
Next i

は逆にループを試してみてください？

2017-02-09 07:11:19 gizlmo

おかげで、GIZ： –

これはあなたが探しているものかどうかわかりませんが、コメントは次のように追加できます： 'Selection.Comments.Add Range：= Selection.Characters（i）、Text：="これはコメントです " – gizlmo

申し訳ありません、私このスレッドに返信を追加して、最初の投稿を作成していたときに編集ツールを利用できるようにするにはどうすればいいですか？ –

答えて