| |
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
=================================================================
|
|
|
|
|
직접명령어를 입력해 매크로에 기록해야 합니다.
비록 비주얼 베이직이라는 프로그래밍 언어를 이용해 명령어를 입력해야 하지만, 어렵지 않으므로 쉽게
익힐 수 있을 것입니다.
<1> 파일-열기
메뉴에서 매크로를 기록할 워드파일을 엽니다.
<2>
도구 메뉴에서 매크로-
매크로를 선택합니다.
<3> 매크로 대화상자가 나타납니다.
새로 만들고자 하는 매크로에 매크로 이름을 기록하고 만들기 단추를
클릭합니다.
<4> 'Microsoft Visual
Basic' 편집기가 실행되고, 화면 오른쪽에 직접 'test_김준영' 매크로를
코딩(coding:기록)할 수 있는 창이 나타납니다.
<5> Sub test_김준영()과
End_sub사이에 글자의 색깔을 바꾸는 내용의 명령어를 입력한 후 저장을 합니다.
편집기 창을 닫아줍니다.
<6> 도구 메뉴에 매크로- 매크로를
선택한 후 매크로 대화상자에서 test_김준영을 선택하여 실행 단추를
클릭합니다.
<7> 명령어의 내용대로 워드 문서의 모든
'푸른' 글씨는 파란색으로 모든 '노란' 글씨는 노란색으로
변경이 된 것을 볼 수 있습니다.
|
|
|
|
OfficeTutor 365