곧은 따옴표를 단어의 둥근 따옴표로 변경하는 방법은 무엇입니까?

일반적으로 Microsoft Word는 곧은 따옴표를 자동으로 변경합니다. 곱슬 (스마트 한 ortypographer) 따옴표에 입력 할 때. 그러나이 기능이 꺼져 있으면 작은 따옴표와 큰 따옴표가 문서에 곧바로 나타날 수 있습니다. 다음은 Word에서 곧은 따옴표를 둥근 따옴표로 또는 그 반대로 변경하는 방법입니다.

찾기 및 바꾸기를 사용하여 곧은 따옴표를 둥근 따옴표로 변경

VBA를 사용하여 곧은 따옴표를 둥근 따옴표로 변경

찾기 및 바꾸기를 사용하여 곧은 따옴표를 둥근 따옴표로 변경

놀랄 만한! Chrome, Firefox 및 New Internet Explorer와 같은 Word (Office)에서 효율적인 탭을 사용하세요!

자세히보기 무료 다운로드

신청하기 전에 찾기 및 바꾸기, 당신은 가야합니다 자동 수정 옵션 확인을 취소하려면 "똑똑한 따옴표"와 "직선 따옴표" 확인란을 선택합니다.

Word 2003에서는 자동 수정 옵션 밑에있다 수단 바. 그리고 Word 2007에서는 자동 수정 옵션 클릭하여  > 옵션 중 > 교정 > 자동 수정 옵션. 예를 들어 Word 2010/2013을 사용합니다.

1 단계. 딸깍 하는 소리  > 선택권 > 교정 > 자동 수정 옵션 > 입력 할 때 자동 서식, 선택 "똑똑한 따옴표"와 "똑 바른 따옴표" 확인란. 스크린 샷보기 :

2 단계. 딸깍 하는 소리 홈 > 교체 에서 편집 그룹 또는 언론 Ctrl + H 표시하다 찾기 및 바꾸기 대화 상자를 입력하고 'or '' in 무엇을 찾기 상자를 입력하고 ' or ''in 로 교체 상자. 스크린 샷보기 :

3 단계. 딸깍 하는 소리 모두 바꾸기.

참고 : 모든 둥근 따옴표를 곧은 따옴표로 바꾸려면 지우십시오. "똑똑한 따옴표"와 "직선 따옴표" 확인란).

VBA를 사용하여 곧은 따옴표를 둥근 따옴표로 변경

VBA를 사용하여 Word 2010에서 곧은 따옴표를 모두 둥근 따옴표로 바꾸려면 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에> 선택권 > 교정 클릭 자동 고침 옵션 중 선택하고 "똑똑한 따옴표"와 "직선 따옴표" 먼저 다음과 같이 확인란을 선택합니다. (주의 사항: 모든 둥근 따옴표를 곧은 따옴표로 바꾸려면 "똑 바른 따옴표"를 "똑똑한 따옴표"확인란으로 선택 취소하십시오).

1 단계 : "Alt-F11”를 눌러 Microsoft Visual Basic for Application 창을 엽니 다.

2 단계 : 클릭 모듈 를 시청하여 이에 대해 더 많은 정보를 얻을 수 있습니다. 끼워 넣다 탭에서 다음 VBA 코드를 복사하여 모듈 창문;

3 단계 : 그런 다음 달리기 버튼을 눌러 VBA를 적용합니다.

다음 VBA는 곧은 따옴표를 둥근 따옴표로 변경하는 것입니다.

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

다음 VBA는 둥근 따옴표를 곧은 따옴표로 변경하는 것입니다.

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

추천 단어 생산 도구