Ralph는 각 단락의 왼쪽에 특정 영문자가 필요한 문서를 작성합니다. 이러한 문자는 줄 번호와 유사하게 여백에 표시되어야합니다. 문자는 일반적으로 전체 문서에서 동일합니다. 즉, 단락마다 변경되지 않습니다. Ralph는 이러한 문자를 각 단락 옆에 자동으로 삽입하는 방법이 있는지 궁금합니다.

이를 수행하는 데 사용할 수있는 몇 가지 방법이 있습니다.

먼저 각 단락의 시작 부분에 알파벳 문자를 입력하고 Tab 키를 누를 수 있습니다. 그런 다음 첫 줄을 왼쪽 여백에 약간 넣는내어 쓰기를 사용하도록 단락 서식을 지정합니다. 이는 단락에 적용 할 수있는 스타일을 사용하여 쉽게 수행 할 수 있습니다.

이 작업을 수행하려는 단락이 많은 경우 알파벳 문자를 입력하고 각 단락에 대해 Tab 키를 누르는 것이 지루할 수 있습니다.

다행히도 지루한 일을 처리 할 수있는 매크로를 만드는 것은 쉽습니다.

Sub FmtParagraphs()

Dim p As Paragraph

For Each p In ActiveDocument.Content.Paragraphs         If p.Style = "MyAlpha" Then             With p.Range                 .InsertBefore "R" & Chr(9)

End With         End If     Next p End Sub

매크로는 MyAlpha 스타일을 사용하는 문서에서 단락을 찾습니다. (이 방법은 MyAlpha “가이 방법에 영향을주기 위해 만든 특수한내어 쓰기 스타일이라고 가정합니다.) 하나를 찾으면 단락 앞에”R “문자를 삽입 한 다음 탭 문자를 삽입합니다.이 매크로를 쉽게 수정할 수 있습니다. 다른 스타일 이름을 확인하거나 다른 알파벳 문자를 추가합니다.

유사한 접근 방식은 수정 된 글 머리 기호 목록을 활용하는 스타일을 정의하는 것입니다. 일반 글 머리 기호를 사용하는 대신 다음을 정의 할 수 있습니다. 글 머리 기호로 알파벳 문자를 사용하는 목록. 단락에 스타일을 적용하면 자동으로 알파벳 문자가 나타나며 단락의 본문과 구분하기 위해 입력하거나 탭할 필요가 없습니다.

|||| 지금까지 언급 한 두 가지 접근 방식 모두 비교적 간단한 문서에 대해 빠르고 쉽게 작동합니다. 그러나 문서에 일반 번호 또는 글 머리 기호 목록이 포함되어 있으면 작동하지 않습니다.이 경우에는 다음 작업을 수행해야합니다. 텍스트 상자에 의존하는 다른 접근 방식을 사용하십시오. 알파 문자의 위치.

이 접근 방식이 복잡한 문서에 선호되는 이유는 스타일에 의존하지 않기 때문입니다. 즉, 문서에 다양한 번호 매기기 및 글 머리 기호 목록을 포함 할 수 있지만 여백에서 각 단락의 왼쪽에 알파벳 문자가 있습니다.

또한 텍스트 상자는 각 단락에 고정되고 Word에서 문서의 페이지를 다시 매길 때 단락과 함께 이동하도록 서식을 지정할 수 있습니다.

물론 300 개의 단락이있는 문서가있는 경우 각 텍스트 상자에 서식을 지정하기 시작할 때 힘들다는 것은 말할 것도없고 각 단락에 텍스트 상자를 추가하는 것은 지루할 수 있습니다. 다시 말하지만 매크로는 지루함을 완화하는 데 도움이 될 수 있습니다. 다음 매크로를 사용하여 선택한 텍스트 상자를 문서의 다른 모든 단락에 자동으로 복사 할 수 있습니다.

Sub TextBoxesInMargin()

Dim aShape As Shape     Dim aPara As Paragraph     Dim j As Long     Dim shpTop As Single     Dim shpLeft As Single     Dim aRange As Range

If ActiveDocument.Shapes.Count = 0 Then GoTo noTextbox     If Selection.ShapeRange.Count <> 1 Then GoTo noTextbox

Set aShape = Selection.ShapeRange(1)

With aShape         If .Type <> msoTextBox Then GoTo noTextbox         If aShape.RelativeVerticalPosition <> wdRelativeVerticalPositionParagraph Then             MsgBox "The text box must be positioned relative to a paragraph"

Exit Sub         End If         shpTop = .Top         shpLeft = .Left         aShape.Select         Selection.Copy     End With

For Each aPara In ActiveDocument.Paragraphs         Set aRange = aPara.Range         If Len(aRange.Text) > 1 Then ' only non blank paragraphs             aRange.Select             Selection.Paste             Selection.ShapeRange.Top = shpTop             Selection.ShapeRange.Left = shpLeft         End If     Next aPara     Exit Sub

noTextbox:

MsgBox "Text box is not selected"

End Sub

매크로를 사용하려면 작은 텍스트 상자 하나의 형식을 지정하여 알파벳 문자를 입력하십시오. 텍스트 상자가 옆에 배치 한 단락에 고정되어 있고 해당 위치가 단락을 기준으로 올바른지 확인합니다. 텍스트 상자가 원하는 모양으로 표시되면 선택하고 매크로를 실행합니다. 텍스트 상자는 복사하여 문서의 다른 모든 단락 옆에 붙여 넣습니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (12738)은 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Office 365의 Word에 적용됩니다.