John은 매주 http://www.formville.com/C2_free-invoice-forms.html [인보이스]를 만들고 여러 스캔 한 문서를 Word 문서에 삽입해야합니다. 그는 특정 폴더의 모든 JPG 이미지를 현재 Word 문서에 넣는 방법이 있는지 궁금합니다.

이를 수행 할 수있는 몇 가지 방법이 있습니다. 한 가지 방법은 모든 그래픽을 선택하고 한 단계에 삽입하는 것입니다.

  1. 문서에서 그래픽을 삽입 할 위치에 삽입 포인터를 놓습니다.

  2. 리본의 삽입 탭을 표시합니다.

  3. 그림 도구를 클릭하십시오. 그림 삽입 대화 상자가 표시됩니다.

  4. 대화 상자의 컨트롤을 사용하여 이미지가 포함 된 폴더를 찾습니다.

  5. Ctrl + A를 누릅니다. Word는 폴더의 모든 파일을 선택합니다.

  6. 삽입을 클릭합니다.

그게 다입니다. Word는 문서의 모든 그래픽을 삽입합니다. 이 작업을 수행하는 데주의해야 할 것입니다. 왜냐하면 많은 경우 (100 개 이상)

폴더에 그래픽이 있거나 그래픽 파일이 상당히 큰 경우 Word가 크롤링 속도를 늦추거나 완전히 중단 될 수 있습니다. 폴더에 그래픽 이상의 것이 포함되어 있거나 일부 그래픽 파일 만 원하는 경우 Ctrl 키를 누른 상태에서 마우스를 사용하여 5 단계에서 그래픽을 선택할 수 있습니다. 요점은 5 단계에서 선택한 파일이 무엇이든 Word에서 문서에 삽입하는 파일입니다.

이 접근 방식의 변형에는 Windows 사용이 포함됩니다. 다음 일반 단계를 따르십시오.

  1. 문서에서 그래픽을 삽입 할 위치에 삽입 포인터를 놓습니다.

  2. Word 문서를 최소화하십시오.

  3. Windows에서 이미지가있는 폴더를 표시합니다.

  4. 문서에 삽입 할 이미지의 선택 세트를 작성하십시오.

  5. 선택 세트에서 단일 이미지를 클릭하고 마우스 버튼을 누르고 있습니다.

  6. 작업 표시 줄에 나타날 때 문서 상단으로 선택 세트를 드래그합니다. (아직 마우스 버튼을 놓지 마십시오.)

  7. Windows에 Word 문서가 표시되면 (몇 초 후에 표시됨) 마우스 단추를 놓습니다.

이 시점에서 4 단계에서 선택한 모든 이미지가 이전 방법과 동일하게 Word 문서에 삽입됩니다.

앞의 방법 중 하나를 사용하는 경우 필요에 따라 이미지 크기를 조정하고 이동해야 문서가 원하는 방식으로 표시됩니다.

물론, 정기적으로 전체 이미지 그룹을 삽입해야하는 경우 이러한 단계를 수행하는 것은 잠시 후 지루할 수 있습니다.

Tedium은 종종 매크로를 사용하여 완화되며이 경우도 예외는 아닙니다. 다음 매크로를 사용하여 원하는 파일을 선택할 수있는 대화 상자 (이전 방법에서 사용 된 것과 유사)를 표시 할 수 있습니다. 대화 상자를 닫으면 대화 상자 내에서 선택한 모든 이미지가 문서에 삽입되며 각각의 단락에 삽입됩니다.

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

폴더 나 파일을 선택하는 데 신경 쓰지 않으려면 더 간단한 매크로를 사용할 수 있습니다. 다음은 지정된 폴더에서 모든 JPG 파일을 가져와 현재 문서에 배치합니다. 각 이미지는 자체 단락에 있습니다.

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

매크로를 사용하려면 원하는 폴더를 나타내도록 sPath에 할당 된 값을 변경해야합니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (10727)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다. 여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / word-Inserting_Multiple_Graphics_in_a_Document [문서에 여러 그래픽 삽입].