[Word]특정 글자의 색깔을 바꾸기

정환식
2006.03.09. 12:26
3029
0

수정 삭제

Q&A>

오늘은 워드 묻고 답하기 게시판에 특정 글자의 색깔을 바꾸는 방법에 대해서 [김준영]님이 질문 주신 내용에 [강래엄마]님이 답변한 내용을 소개합니다. (사용버전: Word 2003) [질문] 워드 형식의 문서에 있는 글 중 "푸른" 이라는 단어의 글자 색을 모두 파랑 색으로 지정하고 싶습니다. 그리고 "노란" 이라는 단어의 서식을 모두 노란색으로 바꾸고 싶고, 문서에는 "푸른" "노란" 이런 단어들이 수십 게 포함되어 있어요. 바꾸기 기능을 사용할 경우 서식이 잘 바뀝니다. 하지만, 이걸 매크로를 이용하여 하니 서식은 바뀌지 않습니다. (글자 바꾸기는 잘 됩니다만, 매크로에서 서식은 전혀 바뀌지 않는 군요) 매크로를 이용하여 특정 글자의 서식을 바꾸는 방법을 알고 싶습니다.

[답변] 아래 코드를 매크로 입력기에 복사하여 붙여 넣기 한 후 실행해보세요. ================================================================= Sub test_김준영() ' "푸른"은 파랑색으로 "노란"은 노랑색으로 바꿉니다 ' translate@hitel.net ' 요청자: 김준영 (foma/foma11@hanmail.net) 'Prompt = Chr(10) + "푸른은 파랑색으로 노란은 노랑색으로 바꿉니다" + _ ' Chr(13) + Chr(13) + _ ' "translate@hitel.net 2003/6/30(월)" 'Reply = MsgBox(Prompt, vbYesNo) 'If Reply = vbNo Then Exit Sub Selection.HomeKey Unit:=wdStory With Selection.Find .ClearFormatting Do While .Execute(FindText:="푸른", Forward:=True, _ Format:=True) = True With Selection.Font .Color = wdColorBlue End With Loop End With Selection.HomeKey Unit:=wdStory With Selection.Find .ClearFormatting Do While .Execute(FindText:="노란", Forward:=True, _ Format:=True) = True With Selection.Font .Color = wdColorYellow End With Loop End With 'MsgBox ("작업이 끝났습니다. 감사합니다. translate@hitel.net") End Sub ================================================================= 　

STEP> 따라하기

직접명령어를 입력해 매크로에 기록해야 합니다. 비록 비주얼 베이직이라는 프로그래밍 언어를 이용해 명령어를 입력해야 하지만, 어렵지 않으므로 쉽게 익힐 수 있을 것입니다. <1> 파일-열기 메뉴에서 매크로를 기록할 워드파일을 엽니다.

<2> 도구 메뉴에서 매크로-