Rachel은 소유권 속성을 변경해야하는 수백 개의 문서를 가지고 있습니다. (이것은 다른 문서 속성과 함께 유지되는 제목 속성입니다.) 그녀는 이렇게 많은 수의 문서에서 이러한 변경을 쉽게 수행 할 수있는 방법이 있는지 궁금합니다.

Word에는 동시에 많은 문서에 영향을주는 기본 제공 방법이 없지만 매크로를 만들어 작업을 수행 할 수 있습니다. 기억해야 할 중요한 점은 기본 제공 문서 Title 속성에 액세스 할 수 있기를 원하고, BuiltInDocumentProperties 컬렉션을 조작하여 VBA에서이를 수행한다는 것입니다. 예를 들어 VBA에서 다음과 같은 방식으로 Title 속성을 변경할 수 있습니다.

ActiveDocument.BuiltInDocumentProperties("Title") = "xyz"

많은 문서에 매크로를 효과적으로 적용하려면 영향을 미칠 문서의 이름을 결정하고 각 문서를 차례로로드 한 다음 Title 속성을 변경 한 다음 문서를 저장하기 만하면됩니다. 다음 매크로는이 작업 집합을 수행합니다.

Sub ChangeTitles()

Dim Directory As String     Dim FType As String     Dim FName As String     Dim sTitle As String     Dim sFiles(250) As String     Dim iFiles As Integer     Dim J As Integer

Directory = Environ("USERPROFILE") & "\Desktop\temp\"

FType = "*.docx"

sTitle = "My New Doc Title"



' Get names of documents     iFiles = 0     FName = Dir(Directory & FType)

While FName <> ""

iFiles = iFiles + 1         sFiles(iFiles) = FName         FName = Dir     Wend

' Process files     For J = 1 To iFiles         Documents.Open FileName:=Directory & sFiles(J)

ActiveDocument.BuiltInDocumentProperties("Title") = sTitle         ActiveDocument.Close wdSaveChanges     Next J End Sub

매크로 시작 부분에서 Directory 변수는 데스크탑의 “temp”폴더에 대한 전체 경로와 동일하게 설정됩니다. 변경하려는 문서가있는 곳마다 디렉토리가 전체 경로로 설정되어 있는지 확인해야합니다. 또한 경로는 백 슬래시로 끝납니다. 이것은 매우 중요합니다.

변경하려는 다른 변수는 sTitle 변수에 저장하는 새 제목입니다. 디렉토리 폴더의 모든 문서는 sTitle 변수에 저장된 모든 것으로 제목 속성이 변경됩니다.

매크로의 첫 번째 부분은 대상 디렉터리의 모든 파일을 단계별로 살펴보고 거기에있는 DOCX 파일의 이름을 가져옵니다. 이들은 sFiles 배열에 저장됩니다. 이 작업이 완료되면 어레이가 단계별로 진행되고 파일을 열고 변경할 수있는 가이드로 사용됩니다.

_ 참고 : _

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

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

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

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