Glenn은 문서가 보관되었다는 것을 나타 내기 위해 문서에 “표시를하는”방법을 찾고있었습니다. 또한 마킹 할 문서가 많았 기 때문에로드, 마크 추가, 다시 저장하는 방법이 바람직했습니다.

이러한 작업을 수행 할 수있는 방법에는 여러 가지가 있습니다. 차이점은 문서에서 “마크”가 정확히 어떻게 배치되는지에 따라 결정됩니다. 분명히 “아카이브”라는 단어 (또는 일부 용어)가 문서에 추가 될 수 있지만 이는 문서 자체의 실제 모양에 영향을 미치므로 종종 바람직하지 않습니다.

문서에 가시적 인 표시를 포함하지 않는 솔루션이 있습니다. 문서 속성을 사용합니다. 문서가 보관되었는지 여부를 나타내는 사용자 정의 문서 속성을 설정할 수 있습니다. 나중에 속성을 검색하여 기준에 맞는 파일을 확인할 수 있습니다.

다음 매크로는 디렉토리 (및 가능한 모든 하위 디렉토리)의 모든 문서를로드하고 문서가 보관되었음을 나타내는 사용자 정의 문서 속성을 만들거나 설정합니다. 이 경우 사용자 지정 속성의 이름은 Archive이고 True (예)

질환.

Public Sub SetArchive()

Dim bExists As Boolean

With Application.FileSearch         .LookIn = "C:\"             ' where to search         .SearchSubFolders = True    ' search the subfolders         .FileName = "*.doc"         ' file pattern to match

' if more than one match, execute the following code         If .Execute() > 0 Then             For i = 1 To .FoundFiles.Count                 ' Open the file                 Documents.Open FileName:=.FoundFiles(i)



' Begin document changes

' See if the doc variable exists                 bExists = False                 For Each varItem In ActiveDocument.CustomDocumentProperties                     If varItem.Name = "Archive" Then                         bExists = True                         Exit For                     End If                 Next varItem

If Not bExists Then                     ' Add and set document property                     ActiveDocument.CustomDocumentProperties.Add _                       Name:="Archive", LinkToContent:=False, _                       Type:=msoPropertyTypeBoolean, Value:=True                 Else                     'Already exists, so just set it                     ActiveDocument.CustomDocumentProperties("Archive") = True                 End If

' End document changes

' Force document to be saved                 ActiveDocument.Saved = False                 ' Save and close the current document                 ActiveDocument.Close wdSaveChanges             Next i         Else             ' Could not find any DOC files             MsgBox "No files found."

End If     End With End Sub

매크로를 사용하려면 매크로의 다섯 번째 줄 (.LookIn으로 시작)에서 디렉토리 사양을 변경하면됩니다. 실행되면 Archive 속성이 생성되고 각 문서에 설정됩니다. 파일 중 하나를로드하고 파일의 속성을 표시하여 결과를 볼 수 있습니다. 정보를 표시하는 방법은 사용중인 Word 버전에 따라 다릅니다.

  • Word 2007을 사용하는 경우 Office 단추를 클릭 한 다음 준비 | 속성. Word는 문서 맨 위에 문서 정보 패널을 표시합니다. 문서 속성 드롭 다운 목록 (문서 정보 패널의 왼쪽 상단 모서리)을 사용하여 고급 속성을 선택합니다. Word는 속성 대화 상자를 표시합니다.

  • Word 2010을 사용하는 경우 리본의 파일 탭을 클릭 한 다음 정보 | 속성 | 고급 속성. Word는 속성 대화 상자를 표시합니다.

사용중인 Word 버전에 관계없이 사용자 지정 탭을 클릭합니다.

아카이브 속성이 대화 상자에 표시되어야합니다.

이 매크로에 대해 흥미로운 점이 하나 있습니다. 문서의 Saved 속성을 False로 설정하여 문서를 “강제”저장해야합니다. 이렇게하지 않으면 사용자 지정 속성이 저장되지 않습니다. 왜? 분명히 Word는 문서를 저장하는 이유로 사용자 지정 속성의 변경 (추가 포함)을 인식하지 못합니다. 따라서 Saved 속성을 False로 강제 설정하지 않는 한 Word는 문서의 변경 사항을 인식하지 못합니다.

아카이브 표시에 사용자 정의 속성 접근 방식을 사용하지 않으려는 경우이 매크로를 일부 변경하여 원하는 결과를 얻을 수 있습니다. “문서 변경 시작”과 “문서 변경 종료”주석 사이의 코드를 문서에 수행 할 작업으로 바꾸면됩니다. 예를 들어, 문서에 워터 마크를 배치하려면 해당 코드를 워터 마크를 생성하고 배치하는 코드로 바꾸면됩니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (10312)은 Microsoft Word 2007 및 2010에 적용됩니다. 여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.link : / word -Marking_Multiple_Documents [복수 문서 표시].