2017-02-09 1 views
-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 

답변

0

는 반전 루프를 시도?
+0

감사합니다, 기즈 : –

+0

이게 당신이 찾고있는 것인지 확실하지 않지만 다음과 같이 주석을 추가 할 수 있습니다 :'Selection.Comments.Add Range : = Selection.Characters (i), Text : = "This is Comment"' – gizlmo

+0

미안하지만, 이 스레드에 회신을 추가하고 초기 게시물을 만들 때 사용했던 모든 편집 도구를 사용하려면 어떻게해야합니까? –