많은 워드 프로세서에서 저자는 따옴표로 자료를 호출 할 수 있습니다. 예를 들어, 용어가 처음 소개 될 때 저자는 용어를 따옴표로 묶을 수 있습니다. 그러나 Word에서는 기울임 꼴로 정보를 표시 할 수 있습니다. 인용 된 자료를 기울임 꼴로 수동으로 변경하면 시간이 많이 걸릴 수 있습니다.

다음 매크로 QuotesToItalics는 인용 된 자료에 대해 현재 단락을 확인합니다. 있는 경우 따옴표를 삭제하고 따옴표 사이의 텍스트를 기울임 꼴로 변경합니다. 따옴표가 균형이 맞지 않으면 (해당하는 닫는 따옴표 또는 여는 따옴표가없는 여는 따옴표 또는 닫는 따옴표가 있음) 따옴표는 무시되고 변경되지 않습니다. 매크로는 일반 따옴표 또는 스마트 따옴표와 함께 작동합니다.

Sub QuotesToItalic()

Dim Redo As Boolean     Dim Ptr As Integer     Dim Ptr1 As Integer     Dim P As String     Dim P1 As String

If Selection.ExtendMode Then Exit Sub     Redo = True     While Redo         Selection.StartOf Unit:=wdParagraph, Extend:=wdMove         Selection.MoveEnd Unit:=wdParagraph         P = Selection.Text         Ptr = InStr(P, Chr(34))

If Ptr = 0 Then Ptr = InStr(P, Chr(147))

If Ptr > 0 Then             Selection.MoveLeft Unit:=wdCharacter, Extend:=wdMove             Selection.MoveRight Unit:=wdCharacter, Count:=Ptr             Selection.MoveEnd Unit:=wdParagraph             P1 = Selection.Text             Ptr1 = InStr(P1, Chr(34))

If Ptr1 = 0 Then                 Ptr1 = InStr(P1, Chr(148))

EndChar = Chr(148)

Else                 EndChar = Chr(34)

End If             If Ptr1 > 0 Then                 Selection.MoveLeft Unit:=wdCharacter, Count:=2, _                   Extend:=wdMove                 Selection.Delete Unit:=wdCharacter                 Selection.MoveRight Unit:=wdCharacter, _                   Count:=Ptr1 - 1, Extend:=wdExtend                 Selection.Font.Italic = True                 Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove                 Selection.Delete Unit:=wdCharacter             Else                 Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove                 Redo = 0             End If         Else             Selection.MoveRight Unit:=wdCharacter, Extend:=wdMove             Redo = 0         End If     Wend End Sub

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (264)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Replacing_Quoted_Text_with_Italics [따옴표 붙은 텍스트를 기울임 꼴로 바꾸기].