워드 문서의 1페이지마다 사진(또는 사진 설명 포함)을 하나씩 일괄로 삽입하는 방법입니다. 매크로 안쓰는 방법1. 파워포인트에서 삽입 > 사진 앨범 기능으로 사진 100장 일괄 삽입2. 다른이름으로 저장이나 내보내기에서 PDF로 저장3. MS워드에서 PDF파일 불러오기 > 자동 변환또는 아래와 같은 VBA를 이용할 수 있습니다. ChatGPT코드를 활용하였으나 오류가 다수 발생하여 대폭 수정하였습니다. 더보기Option ExplicitSub InsertImagesCenteredOnEachPage() Dim imgFolder As String Dim imgFile As String Dim imgPath As String, sExt As String Dim doc As..
워드 검색 결과
아래 코드는 현재 파워포인트 파일의 모든 슬라이드에서 개체의 이름이 'Google shape;'로 시작하는 모든 개체를 찾아 그 안의 텍스트를 같은 이름의 워드 파일에 계속 쭉 출력해주는 예시입니다. 찾을 개체 이름에는 *나 ? 같은 문자를 사용할 수 있습니다. 워드 문서에 출력시 각 슬라이드 번호는 구분을 위해 진한 글씨로 출력합니다. 기본 글자크기는 15입니다. Option Explicit '찾을 도형 이름 'Const TargetShape = "텍스트 개체틀 1*" Const TargetShape = "Google Shape;*" Sub Extract2Docx() 'Dim W As Word.Application, D As Word.Document Dim W As Object, D As Object ..
관련: 지식인1, 지식인2, 지식인3 아래내용은 위 링크 1번에서 질문자님의 질문에 대한 지식인 '큰형'님의 소스를 기반으로 수정한 내용입니다. 데이터는 아래와 같은 엑셀문서 양식에 들어 있습니다. 2행에 있는 여러가지 "{항목}" 문자열을 찾아서 워드문서 생성이 O 라면 각 행의 데이터로 바꿔서 아래 워드 문서를 만들어서 지정된 파일명으로 저장하는 일괄처리 작업입니다. 작업을 위해서는 기준이 될 워드문서 내에 {항목}과 같은 표시가 만들어져 있어야 합니다. {항목}은 1개가 아니라 여러군데 있어도 됩니다. 예전 아래한글 프로그램에 있던 메일머지 기능과 유사합니다. 엑셀 데이터를 기반으로 여러장의 워드 문서를 만들 때 유용하겠습니다. 코드는 아래를 참고하세요. 더보기 Option Explicit Sub ..
최근댓글