그래픽이 포함 된 긴 문서로 작업 할 때 INCLUDEPICTURE 필드를 사용하여 실제로 그래픽을 문서에 삽입하는 것은 드문 일이 아닙니다. 문서에 이러한 필드가 많은 경우 문서에 사용 된 그래픽 파일의 이름을 포함하는 “아트 목록”을 만드는 방법을 원할 수 있습니다.

비교적 간단한 매크로를 사용하여 문서에서 INCLUDEPICTURE 필드의 각 인스턴스를 단계별로 살펴보고 참조 된 파일의 이름 만 추출 할 수 있습니다. 그런 다음 매크로가 완료되면 새 문서에 INCLUDEPICTURE 필드에서 참조 된 파일 목록 만 포함되도록 새 문서에 추가 할 수 있습니다. 다음은이 작업을 수행하는 매크로입니다.

Sub GetIncludePictures()

Dim oField As Field     Dim oCurrentDoc As Document     Dim oNewDoc As Document     Dim sFileName As String

Set oCurrentDoc = ActiveDocument     Set oNewDoc = Application.Documents.Add

For Each oField In oCurrentDoc.Fields         If oField.Type = wdFieldIncludePicture Then             sFileName = Replace(oField.Code, "INCLUDEPICTURE", "")

sFileName = Replace(sFileName, "MERGEFORMAT", "")

sFileName = Replace(sFileName, "\*", "")

sFileName = Replace(sFileName, "\d", "")

sFileName = Replace(sFileName, Chr(34), "")

sFileName = Replace(sFileName, "\\", "\")

sFileName = Trim(sFileName)

oNewDoc.Range.InsertAfter sFileName & vbCrLf         End If     Next oField

oNewDoc.Activate

Set oField = Nothing     Set oCurrentDoc = Nothing     Set oNewDoc = Nothing End Sub

매크로에서 바꾸기 기능을 여러 번 사용하는 것에 주목하십시오. 이 함수는 다른 문자열 내의 한 문자열을 다른 텍스트로 바꿉니다. 혼란 스러울 수 있지만 매우 편리합니다. 예를 들어 “This is my string”이라는 문자가 포함 된 문자열 (sMyString)이 있고 다음을 사용한다고 가정합니다.

SMyString = Replace(sMyString, "s", "X")

이로 인해 sMyString의 모든 소문자 “s”가 대문자 “X”로 대체됩니다. 그 결과 sMyString에 “ThiX iX my Xtring”이 포함됩니다.

GetIncludePictures 매크로의 경우 바꾸기 함수가 포함 된 여러 줄이 그림의 실제 파일 이름을 제외하고 필드 코드에서 모든 관련없는 문자를 제거하는 데 사용됩니다. 다른 항목도 제거하려면 더 많은 행을 추가하여 해당 요소를 제거 할 수 있습니다. (예를 들어, 사진이 저장된 표준 경로 이름을 제거하려는 경우.)

매크로 실행이 완료되면 새 문서의 유일한 항목은 다음 예제에서와 같이 그림의 이름이어야합니다.

C:\mypics\picture1.tif ..\graphics\chap01\fig03.gif

전체 경로 이름이 아닌 파일 이름 만 원하는 경우 경로를 구문 분석하는 코드를 포함하도록 GetIncludePictures 매크로를 약간 수정할 수 있습니다. 다음을 매크로에 sFileName = Trim (sFileName) 줄 바로 뒤에 추가하여이를 수행 할 수 있습니다.

While Instr(sFileName, "\") > 0                 sFileName = Mid(sFileName, Instr(sFileName, "\") + 1)

Wend

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (11777)은 Office 365의 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Word에 적용됩니다. Word의 이전 메뉴 인터페이스 :

link : / word-Extracting_INCLUDEPICTURE_File_Names [Extracting INCLUDEPICTURE File Names].