Vladimir는 문서의 파일 이름을 페이지 헤더에 넣을 수 있다는 것을 알고 있습니다. 그러나 그가 원하는 것은 파일 이름의 마지막 5 자 (파일 이름 확장자 제외) 만 헤더에 표시되도록하는 것입니다. 그는 작업을 수행하는 가장 좋은 방법을 찾고 있습니다.

이를 수행하는 유일한 방법은 매크로를 사용하는 것입니다. 작업을 수행하기위한 Word에는 기본 제공 기능이 없습니다. 매크로는 파일 이름을 결정하고 원하는 문자를 가져온 다음 헤더에 채워야합니다. 하지만 그렇게 단순 해 보일 수있는 잠재적 인 합병증이 있습니다. 예를 들어 문서가 저장되지 않았기 때문에 아직 파일 이름이 없다면 어떻게 될까요? 문서가 저장되었지만 파일 이름이 5 자 미만이면 어떻게됩니까?

헤더에 이미 무언가가있는 경우 매크로는 어떻게해야합니까?

사용자가 헤더를 표시하지 않는보기에서 문서를보고있는 경우 어떻게해야합니까?

이러한 질문을 처리하려면 매크로가 몇 가지 가정을해야합니다.

이 예에서는 매크로가 기존 헤더가있는 모든 것을 파일 이름의 원하는 부분으로 대체해야한다고 가정합니다. 또한 매크로는보기 모드를 인쇄 레이아웃보기로 전환 할 수 있으므로 머리글을 쉽게 사용할 수 있습니다. 결과는 다음과 같습니다.

Sub PartFilenameInHeader()

Dim sName As String     Dim J As Long

sName = ActiveDocument.Name     J = InStrRev(sName, ".")

If J > 0 Then         sName = Left(sName, J - 1)

If Len(sName) > 5 Then             sName = Right(sName, 5)

End If

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then             ActiveWindow.Panes(2).Close         End If         If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _           ActivePane.View.Type = wdOutlineView Then             ActiveWindow.ActivePane.View.Type = wdPrintView         End If         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName         ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument     Else         MsgBox "Document has no filename extension."

End If End Sub

매크로는 먼저 문서에 실제 파일 이름 (ActiveDocument 개체의 .Name 속성)이 있는지 확인합니다. 그렇다면 파일 이름에서 5 자 이하의 문자를 가져옵니다. 여러 창이 열려 있지 않고 문서가 인쇄 모양보기에 있는지 확인합니다. 그런 다음 현재 헤더에있는 항목을 선택하고 파일 이름에서 원하는 문자로 바꿉니다.

문서를 저장 한 후 매크로를 한 번 실행해야하며 다른 파일 이름을 사용하여 문서를 저장 한 경우 다시 한 번 실행해야합니다.

_ 참고 : _

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

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

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

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