워드 병합 vba는 메일머지 밖에 없을까요..?

VBA
작성자
issac****
작성일
2022-08-05 09:00
조회
69
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요 vba관련 질문 드립니다.

 

엑셀로 word 만드는 vba까지는 성공을 했습니다

그 word 파일들을 이름이 오빠두엑셀_첫째.docx, 오빠두엑셀_둘째.docx,오빠두엑셀_셋째.docx .... 이런식으로 저장이 되는데요

이 파일들을 하나로 합칠 vba를 찾아보니 메일머지 밖에 보이지 않더라구요

하나로 합치기만 하면 되는데 이 부분에 있어 혹시 다른 vba를 쓸 수 있는게 있을까요?

vba초보라 조언 부탁드립니다.

회원등급 : 2레벨
포인트 : 52 EP
총질문 : 2 개 (마감율 : 50%)
채택답변 : 0 개
전체 4

  • 2022-08-05 09:04

    @issac**** 님 엑셀을 워드로 나누고 나눠진 워드를 다시 합치는건가요?

    그렇게되면 작업이 두번 되는건데.. 엑셀에서 통 워드를 뽑지 않고 나눠서 작업하는 이유가 있을까요?


    • 2022-08-05 09:20

      @더블유에이

      Sub 직사각형1_Click()
          Dim w As Object, D As Object
          Dim n As Integer, m As Integer
          Dim T As Variant
          Dim docFile As String
          Dim lastRow As Long
          Dim SPR As String
          Dim myRange As Object   
          
          SPR = Application.PathSeparator     
          docFile = ThisWorkbook.Path & SPR & "가이드"
          
       
          lastRow = Cells(Rows.Count, 3).End(xlUp).Row
          If lastRow < 3 Then Exit Sub
          
          T = Range("B2:O" & lastRow).Value  
           
          Set w = CreateObject("Word.Application")
          w.Visible = True
              
          For n = 2 To UBound(T)
              
              If T(n, UBound(T, 2)) = "O" Then  
                  Set D = w.Documents.Open(Filename:=docFile & ".docx", ReadOnly:=True, Visible:=True)
              
                  Set myRange = D.Content
                  
                  For m = 1 To (UBound(T, 2) - 2) 
                      With myRange.Find
                          .ClearFormatting
                          .Replacement.ClearFormatting
                          .Text = T(1, m): .Replacement.Text = T(n, m)
                          .Execute Replace:=2     
                      End With
                  Next m
      
                  D.SaveAs2 Filename:=ThisWorkbook.Path & SPR & T(n, UBound(T, 2) - 1) & ".docx"
                  D.Close True
              End If
              
          Next n
      
          
          Set D = Nothing: w.Quit False: Set w = Nothing
      End Sub

      이렇게 써서 B2부터 O까지 있는 문자를 지정한 문자와 바꾸는걸 만들었거든요,

      엑셀 형식은 그대로 두고 바꿀 문자만 해서..

      이게 가이드를 만들려고 하는데 사람마다 가이드가 다 다르니 지정된것만 뽑아서 만들려고 했거든요

      그러다 보니 지정된것만 뽑게되면 따로 뽑아 져서 그렇게 됬습니다


      • 2022-08-05 15:35

        @issac**** 님 아.. 그럼 결국 나눠주는 작업이 필요한데 그 작업을 워드로 하신거군요

        제가 워드 VBA는 잘 몰라서..

        혹시 구글에 관련 코드가 있어서 링크 적어드리니 한번 참고해보셔요..

        https://www.datanumen.com/blogs/2-ways-quickly-merge-multiple-word-documents-one-via-vba/


  • 2022-08-05 10:52

    @issac**** 님 https://excel-macro.tutorialhorizon.com/vba-excel-merger-merge-or-combine-many-word-documents-into-one/

    3mb짜리 이미지 있는거 여러개로 테스트 해봤는데 잘 됩니다.
    링크에 코드 보니
    그냥 createobject해서 워드 파일 만들고 하나씩 열면서 range 카피해서 붙여넣고 닫고 세이브하는 구조네요

    첨부파일 : WordMerger2-1.xlsm


전체 7,347
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1162
오빠두엑셀 2022.07.31 8 1162
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 102
오빠두엑셀 2022.08.04 4 102
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 117 | 조회 6147
오빠두엑셀 2021.10.28 117 6147
41141 함수/공식
New 어떤 함수를 써야할까요? 첨부파일
머지않아VBA고수 | 09:53 | 추천 0 | 조회 1
머지않아VBA고수 09:53 - 1
41140 VBA
New 매크로 파일 저장방법이 따로 있나요? 첨부파일
pjc**** | 09:11 | 추천 0 | 조회 4
pjc**** 09:11 - 4
41136 함수/공식
New 동적차트를 위한 이름관리자 함수 만들기 엑셀파일첨부파일
블링블링 | 2022.08.12 | 추천 0 | 조회 20
블링블링 2022.08.12 - 20
41132 함수/공식
New 함수를 간단히 할 수 있을까요? 엑셀파일 (2)
안동근 | 2022.08.12 | 추천 0 | 조회 25
안동근 2022.08.12 - 25
41129 기능/도구
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기 첨부파일 (6)
fabikim | 2022.08.12 | 추천 0 | 조회 33
fabikim 2022.08.12 - 33
41126 VBA
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의 엑셀파일 (2) 답변완료
pjc**** | 2022.08.12 | 추천 0 | 조회 39
pjc**** 2022.08.12 - 39
41123 함수/공식
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요) 첨부파일 (2) 답변완료
일개회사원 | 2022.08.12 | 추천 0 | 조회 36
일개회사원 2022.08.12 - 36
41117 피벗테이블
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ 첨부파일 (2) 답변완료
ㅎㅎ | 2022.08.12 | 추천 0 | 조회 35
ㅎㅎ 2022.08.12 - 35
41116 피벗테이블
New 피벗테이블 슬라이서 문의 첨부파일 (1)
조동호 | 2022.08.12 | 추천 0 | 조회 28
조동호 2022.08.12 - 28
41114 함수/공식
New Lookup 함수사용시 출력되는 날짜의 형식오류 첨부파일 (3)
조민양 | 2022.08.12 | 추천 0 | 조회 24
조민양 2022.08.12 - 24
41112 피벗테이블
New 엑셀 피벗테이블 필터부분을 가리는 방법을 알고 싶습니다! 첨부파일 (3)
이재호 | 2022.08.12 | 추천 0 | 조회 28
이재호 2022.08.12 - 28
41107 함수/공식
New 중첩 이프 함수 해결 방법 / 중첩 if 해결 방법 / 다중조건 첨부파일 (2) 답변완료
떡상가즈아 | 2022.08.12 | 추천 0 | 조회 37
떡상가즈아 2022.08.12 - 37
41106 함수/공식
New 2X2 엑셀 값 비교하는 함수가 가능할까요? 첨부파일 (1)
클루 | 2022.08.12 | 추천 0 | 조회 33
클루 2022.08.12 - 33
41099 파워쿼리/피벗
New 여러개의 데이터 파일(같은 양식)을 데이터연결하여 하나의 파일로 관리(주기 관리)하는 방법 엑셀파일 (4) 답변완료
pjc**** | 2022.08.12 | 추천 -1 | 조회 60
pjc**** 2022.08.12 -1 60
41096 피벗테이블
New 피벗테이블 날짜 슬라이서 제작시 오류 첨부파일 (4)
naver_616841992e55a | 2022.08.12 | 추천 0 | 조회 36
naver_616841992e55a 2022.08.12 - 36
41095 VBA
New 매크로 관련 질문이예요. 도움 부탁드립니다. (3)
AANNNDDDYY | 2022.08.12 | 추천 0 | 조회 44
AANNNDDDYY 2022.08.12 - 44
41094 함수/공식
New 수식의 이름관리자가 열리지 않습니다 (4)
abbado | 2022.08.12 | 추천 0 | 조회 33
abbado 2022.08.12 - 33
41090 VBA
New 길이 계산 관련 문의 드립니다. 첨부파일 (2)
심우민 | 2022.08.11 | 추천 -1 | 조회 43
심우민 2022.08.11 -1 43
41087 문서서식
New 셀 초록색 표시 오류 해결 유튜브를 봤습니다. (1)
이성일 | 2022.08.11 | 추천 0 | 조회 33
이성일 2022.08.11 - 33
41086 함수/공식
New 어떤 수식 사용해야되는지 알려주세요ㅜ 첨부파일 (4)
🍒 | 2022.08.11 | 추천 0 | 조회 54
🍒 2022.08.11 - 54
41083 VBA
New VBA LISTBOX 활용에 대한 궁금증 엑셀파일 (3) 답변완료
박성원 | 2022.08.11 | 추천 0 | 조회 39
박성원 2022.08.11 - 39
41080 함수/공식
New index, match 함수 사용해서 일치하는 날짜 찾기 첨부파일 (2)
033cola | 2022.08.11 | 추천 0 | 조회 33
033cola 2022.08.11 - 33
41079 VBA
New 엑셀시트PDF저장관련(저장하고싶은 시트만 체크박스를이용하여 선택) 엑셀파일 (2) 답변완료
qkznl**** | 2022.08.11 | 추천 0 | 조회 29
qkznl**** 2022.08.11 - 29
41076 함수/공식
New 시간과 분으로 된 형식을 분단위로 바꾸는 방법 첨부파일 (3)
김군 | 2022.08.11 | 추천 0 | 조회 34
김군 2022.08.11 - 34
41075 함수/공식
New 약 20여개 파일(폼은 동일)이 있는데 데이터 결과값만 파악할수 있는파일을 만드는 해결방법 엑셀파일
pjc**** | 2022.08.11 | 추천 1 | 조회 38
pjc**** 2022.08.11 1 38
41067 함수/공식
New 몇 일 이후의 날짜 계산 오류 첨부파일 (3) 답변완료
보라색양털 | 2022.08.11 | 추천 1 | 조회 36
보라색양털 2022.08.11 1 36
41064 함수/공식
New 카운트관련 3번째 질의 드립니다. ㅠㅠ 엑셀파일 (1)
Thekey_guy | 2022.08.11 | 추천 0 | 조회 30
Thekey_guy 2022.08.11 - 30
41061 함수/공식
New 월별로 해당하는 건수를 계산하고 싶어요 엑셀파일 (2)
꿈꾸는부자 | 2022.08.10 | 추천 0 | 조회 58
꿈꾸는부자 2022.08.10 - 58
41060 피벗테이블
New 합계, 개수로 각각 다른 값의 피벗테이블을 만들었으나 동일한 응시율이 표시되는 이유??? 엑셀파일 (3)
sky3**** | 2022.08.10 | 추천 0 | 조회 48
sky3**** 2022.08.10 - 48
41058 함수/공식
New Excel 2019 수식 FILTER 첨부파일 (1)
Merci getta | 2022.08.10 | 추천 0 | 조회 58
Merci getta 2022.08.10 - 58