You are looking for information, articles, knowledge about the topic nail salons open on sunday near me 엑셀 워드 연동 vba on Google, you do not find the information you need! Here are the best content compiled and compiled by the Chewathai27.com/to team, along with other related topics such as: 엑셀 워드 연동 vba 엑셀 VBA 워드 문서 만들기, VBA 엑셀 워드, Export excel table to word vba, 엑셀 워드 메일머지, VBA Word to Excel, 워드 다음 레코드, 메일머지 줄 바꿈, 워드 메일머지 사진
엑셀에서 워드로 (Excel to Word) VBA – follow(7)
- Article author: rollingpig.tistory.com
- Reviews from users: 8227
Ratings - Top rated: 4.8
- Lowest rated: 1
- Summary of article content: Articles about 엑셀에서 워드로 (Excel to Word) VBA – follow(7) 웹 상에서 출석체크도 할 수 있게 되었고, 이에 따라 특정 칸에 개인의 출석현황과 조원 들의 출석 명수가 기록된다. 또한 기도제목을 작성하면 엑셀 파일 … …
- Most searched keywords: Whether you are looking for 엑셀에서 워드로 (Excel to Word) VBA – follow(7) 웹 상에서 출석체크도 할 수 있게 되었고, 이에 따라 특정 칸에 개인의 출석현황과 조원 들의 출석 명수가 기록된다. 또한 기도제목을 작성하면 엑셀 파일 … 이번 게시물은 번외 게시물이라 할 수 있다. 사실 프로젝트 follow는 마무리 되었다. 웹 상에서 출석체크도 할 수 있게 되었고, 이에 따라 특정 칸에 개인의 출석현황과 조원 들의 출석 명수가 기록된다. 또한 기..IT, AI, Computer Vision, 인공지능
[email protected]
[email protected] - Table of Contents:
엑셀에서 워드로 (Excel to Word) VBA – follow(7)
티스토리툴바
엑셀 VBA 워드 제어하기
- Article author: aiden1004.tistory.com
- Reviews from users: 44572 Ratings
- Top rated: 4.1
- Lowest rated: 1
- Summary of article content: Articles about 엑셀 VBA 워드 제어하기 엑셀 매크로 프로그래밍 Word 값 가져오기, 새로만들기! 엑셀 VBA 매크로 프로그래밍으로 Excel -> Access Excel -> Excel Excel -> PowerPoint 후 … …
- Most searched keywords: Whether you are looking for 엑셀 VBA 워드 제어하기 엑셀 매크로 프로그래밍 Word 값 가져오기, 새로만들기! 엑셀 VBA 매크로 프로그래밍으로 Excel -> Access Excel -> Excel Excel -> PowerPoint 후 … 엑셀 매크로 프로그래밍 Word 값 가져오기, 새로만들기! 엑셀 VBA 매크로 프로그래밍으로 Excel -> Access Excel -> Excel Excel -> PowerPoint 후 마지막 Excel -> Word 제어하는 포스팅합니다. 관련글 20..
- Table of Contents:
태그
‘OfficeVBA 활용’ Related Articles
공지사항
최근 포스트
태그
검색
전체 방문자
티스토리툴바
보고서 자동으로 쓰기 (VBA 엑셀에서 워드로 자료 옮기기) : 네이버 블로그
- Article author: m.blog.naver.com
- Reviews from users: 37462 Ratings
- Top rated: 4.7
- Lowest rated: 1
- Summary of article content: Articles about 보고서 자동으로 쓰기 (VBA 엑셀에서 워드로 자료 옮기기) : 네이버 블로그 적당한 검색어로 검색하다가 ‘VBA Excel to Word ‘ 라는 검색어로 드디어 엑셀 자료를 워드로 옮길 수 있는 실마리를 찾았습니다. …
- Most searched keywords: Whether you are looking for 보고서 자동으로 쓰기 (VBA 엑셀에서 워드로 자료 옮기기) : 네이버 블로그 적당한 검색어로 검색하다가 ‘VBA Excel to Word ‘ 라는 검색어로 드디어 엑셀 자료를 워드로 옮길 수 있는 실마리를 찾았습니다.
- Table of Contents:
카테고리 이동
지금 당장
이 블로그
VBA AutoHotkey
카테고리 글
카테고리
이 블로그
VBA AutoHotkey
카테고리 글
엑셀로 Word 파일 생성 – 오빠두엑셀
- Article author: www.oppadu.com
- Reviews from users: 23304 Ratings
- Top rated: 4.2
- Lowest rated: 1
- Summary of article content: Articles about 엑셀로 Word 파일 생성 – 오빠두엑셀 PDF 파일 추출하는 스크립트를 어떻게든 수정하여 Word로 바꿔보려고했는데 … 엑셀 -> 워드로 데이터를 옮기는 기본 VBA 코드는 아래 홈페이지를 … …
- Most searched keywords: Whether you are looking for 엑셀로 Word 파일 생성 – 오빠두엑셀 PDF 파일 추출하는 스크립트를 어떻게든 수정하여 Word로 바꿔보려고했는데 … 엑셀 -> 워드로 데이터를 옮기는 기본 VBA 코드는 아래 홈페이지를 … 안녕하세요 엑셀로 원하는 영역을 PDF 파일로 추출하는 기능 활용하여 실무에 엄청 유용하게 쓰고있습니다. 감사합니다. 추가로 엑셀로 제가 원하는 영역, 또는 페이지를 Word 파일로 추출하는 기능도 구현이 가능할까요.. PDF 파일 추출하는 스크립트를 어떻게든 수정하여 Word로 바꿔보려고했는데 애초에 PDF를 차트를 활용해 이미지화 하는 기능이라 Word로 바꾸는 기능과는 거리가 좀 있어보여서 혼자서는 힘들 것 같아서 문의드립니다.
- Table of Contents:
회원 자료실
현재 접속자(총 31명)
[Q&A게시판] 0718~0725 댓글순위홈페이지 검색
엑셀연동 워드문서 일괄생성 (메일머지 기능) – konahn
- Article author: konahn.tistory.com
- Reviews from users: 19859 Ratings
- Top rated: 3.3
- Lowest rated: 1
- Summary of article content: Articles about 엑셀연동 워드문서 일괄생성 (메일머지 기능) – konahn DOC+VBA. 엑셀연동 워드문서 일괄생성 (메일머지 기능). 쵸코난 2021 … …
- Most searched keywords: Whether you are looking for 엑셀연동 워드문서 일괄생성 (메일머지 기능) – konahn DOC+VBA. 엑셀연동 워드문서 일괄생성 (메일머지 기능). 쵸코난 2021 … 관련: 지식인1, 지식인2, 지식인3 아래내용은 위 링크 1번에서 질문자님의 질문에 대한 지식인 ‘큰형’님의 소스를 기반으로 수정한 내용입니다. 데이터는 아래와 같은 엑셀문서 양식에 들어 있습니다. 2행에 있는..
- Table of Contents:
검색
엑셀연동 워드문서 일괄생성 (메일머지 기능)
티스토리툴바
[vba]워드문서 검색하여 엑셀파일에 복사하기 :: rand(life)
- Article author: flogsta.tistory.com
- Reviews from users: 29578 Ratings
- Top rated: 4.7
- Lowest rated: 1
- Summary of article content: Articles about [vba]워드문서 검색하여 엑셀파일에 복사하기 :: rand(life) [vba]워드문서 검색하여 엑셀파일에 복사하기 … 엑셀에서 매크로를 실행하여 … Microsoft Word Object Library에 체크를 해야 작동한다. …
- Most searched keywords: Whether you are looking for [vba]워드문서 검색하여 엑셀파일에 복사하기 :: rand(life) [vba]워드문서 검색하여 엑셀파일에 복사하기 … 엑셀에서 매크로를 실행하여 … Microsoft Word Object Library에 체크를 해야 작동한다. 엑셀에서 매크로를 실행하여 특정 폴더안의 모든 워드 문서 중에서 본문에 특정한 단어가 있는지 검사한 후 해당 단어가 있는 문장과 문장의 첫단어가 있는 라인 수 해당 파일의 이름을 출력하는 매크로이다 VB편..kevinflogsta /facebook, twitter, gmail
- Table of Contents:
![[vba]워드문서 검색하여 엑셀파일에 복사하기 :: rand(life)](https://t1.daumcdn.net/tistory_admin/static/images/openGraph/opengraph.png)
[엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기 :: 이것저것 해보기
- Article author: dodo-it.tistory.com
- Reviews from users: 36125 Ratings
- Top rated: 3.2
- Lowest rated: 1
- Summary of article content: Articles about [엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기 :: 이것저것 해보기 Excel and VBA. [엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기. …
- Most searched keywords: Whether you are looking for [엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기 :: 이것저것 해보기 Excel and VBA. [엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기. 1. 동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기의 사용용도 : 편지 뿐 아니라 특정 위치에 값만 변경해서 인쇄하고자 하는 일들이 간혹 생긴다. 이때 300장을 인쇄한다면 300번을 일일이..여러 IT관련 설명과 다양한 관심사에 대한 내용을 공유하기 위한 블로그입니다.이것저것 해보고 싶은 것들(프로그래밍,여행,관심사항) 등을 직접 실행해보고 정리하는 곳임.
- Table of Contents:
티스토리툴바
![[엑셀]동일한 문구의 워드에 엑셀데이터로 값변경하여 출력(인쇄)하기 :: 이것저것 해보기](https://img1.daumcdn.net/thumb/R800x0/?scode=mtistory2&fname=https%3A%2F%2Ft1.daumcdn.net%2Fcfile%2Ftistory%2F99F9A1485BA3589F15)
엑셀 2019 매크로 & VBA 무작정 따라하기 – 이동숙 – Google Sách
- Article author: books.google.com.vn
- Reviews from users: 39285 Ratings
- Top rated: 4.8
- Lowest rated: 1
- Summary of article content: Articles about 엑셀 2019 매크로 & VBA 무작정 따라하기 – 이동숙 – Google Sách Updating …
- Most searched keywords: Whether you are looking for 엑셀 2019 매크로 & VBA 무작정 따라하기 – 이동숙 – Google Sách Updating 검색보다 빠르고, 동료보다 친절하다!회사에서 자주 사용하는 핵심 기능만 쏙 뽑아 업무에 딱 맞게 적용해 보세요.내 업무에 딱 맞는 업무 자동화!그대로 베껴 쓰는 VBA 코드로 시간 절약실제 현장에서 사용하고 있는 엑셀 매크로&VBA 실무 프로젝트를 직접 따라해 봅니다. 예제파일에서 제공하는 VBA 코드를 그대로 베껴 쓰거나 일부 내용만 살짝 수정해도 내 업무에 딱 맞는 자동화 프로그램으로 손쉽게 완성됩니다. 매크로와 관련된 Q&A를 제공하고 있어 업무 자동화에 관한 궁금증을 빠르게 해결할 수 있어요.꼭 필요한 기능만 모았다!우선순위 CORE 20으로 업무 능력 향상네이버 지식iN, 오피스 실무 카페 및 블로그, 웹 문서, 뉴스 등 가장 많이 검색하고 찾아본 키워드를 토대로 매크로 기본 기능부터 업무 자동화까지 실무에서 꼭 필요한 핵심 기능만 골라 우선순위 CORE 20으로 구성하였습니다. 이제 업무를 자동화하여 작업 시간을 단축시켜 보세요.
- Table of Contents:
See more articles in the same category here: Chewathai27.com/to/blog.
엑셀에서 워드로 (Excel to Word) VBA
반응형
이번 게시물은 번외 게시물이라 할 수 있다.
사실 프로젝트 follow는 마무리 되었다. 웹 상에서 출석체크도 할 수 있게 되었고, 이에 따라 특정 칸에 개인의 출석현황과 조원 들의 출석 명수가 기록된다. 또한 기도제목을 작성하면 엑셀 파일에 해당 인원의 기도제목 또한 문자열 값으로 들어간다. 이것만으로도 하나의 엑셀파일에 개인의 출석률과 기도제목을 다 담을 수 있는 결과가 나온다. 끝이다.
하지만 마지막으로 남은 것이 있다. 바로 엑셀로 저장된 기도제목(pray)을 사람이 보기 편한 형식으로 옮기는 것이다. 해당 프로젝트의 목적은 사람이 하는 일을 줄이는 것이었다. 매번 출석을 일일히 종이에서 엑셀로 옮겨적는 것을 없애고 싶었고, 매달 적어낸 기도제목을 일일히 타이핑하여 문서화 시키는 것을 없애고 싶었다.
이러한 목적에 맞추어 엑셀파일에서 특정 셀들의 값들을 빼와 word파일로 원하는 형태의 포맷으로 바꾸는 VBA코드를 작성하였다.
파일 자체를 올려 누구든지 코드를 따갈수 있도록 하고 싶은데, 파일에 개인정보가 너무 많아 그러지 못하는 점이 아쉽다… 정말 많은 구글링과 시도 끝에 나온 결과물 이기 때문에 이 글을 찾은 사람도 그와 같은 과정을 하고 있다고 생각한다. 해당 코드를 사용하기 위해서는 속성에서 몇가지 체크박스들을 체크하는 등의 선행작업이 있었다. 아마 엑셀에서 word 언어를 사용하기 위한 일정의 라이브러리 추가같은 개념이었던 것 같다. 아쉽게도 너무나 오래되어 기억나지 않는다.. 구글링하면 나오겠지만 귀찮달까…ㅎㅎ 이 글을 찾은 시점에서 이미 그런 정보들은 다른 곳에서 얻었을 것이라 생각한다. 그저 코드를 올리고 해석하는 것으로 해당 글은 끝내도록 하겠다. 참고용도로 사용하길..
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 Sub ToWord() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim k As Long “/ / 시트의 행의 크기를 저장할 변수 Dim name As String “/ / 이름을 저장할 변수 Dim sex As String “/ / 성별 Dim grade As String “/ / 학년 Dim pray As String “/ / 기도제목 내용(없으면 null) Dim job As String “/ / 맡고있는 역활(없으면 null) k = ThisWorkbook.Sheets( “attendance” ).Range( “B1” , ThisWorkbook.Sheets( “attendance” ).Range( “B1” ). End (xlDown)).Rows.Count “/ / k값에 행의 크기(길이)를 저장 Set wrdApp = CreateObject( “Word.Application” ) wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & “\기도편지.docx” ) With wrdDoc “/ / 워드파일에 쓰기 시작 For i = 2 To k If IsEmpty(Worksheets( “attendance” ).Range( “F” & i)) = False Then name = “” sex = “” grade = “” pray = “” job = “” If IsEmpty(Worksheets( “attendance” ).Range( “A” & i)) = False Then job = job & Worksheets( “attendance” ).Range( “A” & i) End If name = name & Worksheets( “attendance” ).Range( “E” & i).Value sex = ” ” & sex & Worksheets( “attendance” ).Range( “C” & i).Value grade = grade & Worksheets( “attendance” ).Range( “D” & i).Value pray = pray & Worksheets( “attendance” ).Range( “F” & i).Value .Content.InsertAfter job & sex & grade & ” ” & name .Content.Paragraphs.Last.Range.Font.Bold = True “/ / 원하는 형태의 포맷으로 맞춤 If (StrComp( “리더” , job, vbTextCompare) = 0 ) = True Then .Content.Paragraphs.Last.Range.Font.Underline = wdUnderlineSingle “/ / 리더면 밑줄, 아니면 밑줄 안함 Else .Content.Paragraphs.Last.Range.Font.Underline = wdUnderlineNone End If .Content.InsertParagraphAfter .Content.InsertAfter “%%% ” & pray “/ / 엔터를 넣고싶지 않았는데 방법을 찾다가 대안으로 생각해낸 방법. %%%를 넣어 놓고 나중에 엔터 + %%%를 지우는 방법을 택함. .Content.Paragraphs.Last.Range.Font.Bold = False .Content.Paragraphs.Last.Range.Font.Underline = wdUnderlineNone .Content.InsertParagraphAfter End If Next i “/ / For문 끝 .Content.Find.Execute FindText: = “^p%%%” , ReplaceWith: = “” , Replace: = wdReplaceAll “/ / ^p는 엔터임 .SaveAs (ThisWorkbook.Path & “\기도편지.docx” ) “/ / 같은 디렉토리 내 기도편지.docx로 저장한다. .Close ‘ close the document End With wrdApp.Quit Set wrdDoc = Nothing Set wrdApp = Nothing End Sub Colored by Color Scripter cs
해당 코드를 이해하려면 엑셀파일의 형태를 알아야 할 것이다. 엑셀파일의 형태는 다음과 같다.
위의 VBA코드의 목적은 다음과 같다.
구분 : 리더, 성별 : 남, 학년 : 5, 이름 : 구르는돼지, 기도제목 : 1. 잘되게 해주세요.
구분 : (null), 성별 : 남, 학년 : 4, 이름 : 홍길동, 기도제목 : 1. 예시입니다.
라는 열이 있다면 해당 열을 word 파일에 다음과 같이 입력하는 것이다.
리더 남5 권민기 1. 잘되게 해주세요.
남4 홍길동 1. 예시입니다.
그렇다면 코드에 대한 간략한 설명을 통해 어떻게 이런 과정이 이뤄지는지 알아보자.
대략적으로 주석을 달아두었다. 참고바란다.
If IsEmpty(Worksheets(“attendance”).Range(“A” & i)) = False Then
job = job & Worksheets(“attendance”).Range(“A” & i)
End If
name = name & Worksheets(“attendance”).Range(“E” & i).Value
sex = ” ” & sex & Worksheets(“attendance”).Range(“C” & i).Value
grade = grade & Worksheets(“attendance”).Range(“D” & i).Value
pray = pray & Worksheets(“attendance”).Range(“F” & i).Value
해당 코드를 통해 i번째 데이터에 대해 각각의 값을 변수에 넣는다. A열은 null값을 가질 수도 있어서(비어있을 수 있다.) IsEmpty메소드를 사용하였다. 그 외에 다른 변수들에도 각각 위치에 맞게 할당해줄 수 있다.
.Content.InsertAfter job & sex & grade & ” ” & name
.Content.InsertAfter 함수는 뒤에 써진 String 값을 Word에 작성한다. 문자열의 합은 &를 통해 합칠 수 있다. 많은 언어에서의 +와 비슷한 역활을 한다.
.Content.Paragraphs.Last.Range.무언가
가장 마지막에 적힌 글자에 대한 설정을 할 때 사용한다.
.Content.Find.Execute FindText:=”^p%%%”, ReplaceWith:=””, Replace:=wdReplaceAll
찾고 바꾸기 이다. 하나만 바꿀때는 뭘 쓰는지는 구글링을 하자.
블로그에 쓰다보니 replace같은거 안쓰고 .Content.InsertParagraphAfter 이걸 한줄 지웠으면 되는 일이라는 것을 깨달았다… 하지만 참고하라고 그냥 남겨두도록 하겠다. (세상에 난 바보인가…)
나같은 경우 기도제목.docx 파일을 아무것도 작성하지 않은 빈 파일 상태로 저장해 두고 해당 매크로를 작동시켰다.
질문이 있다면 댓글로 하길 바란다!!
반응형
엑셀 VBA 워드 제어하기
엑셀 매크로 프로그래밍 Word 값 가져오기, 새로만들기!
엑셀 VBA 매크로 프로그래밍으로
Excel -> Access
Excel -> Excel
Excel -> PowerPoint
후 마지막 Excel -> Word 제어하는 포스팅합니다.
관련글
2017/07/07 – [Tip/VBA] – 엑셀 VBA 액세스(Access) 제어하기(값 불러오고 만들기)
2017/07/06 – [Tip/VBA] – 엑셀 프로그래밍으로 다른파일(Excel) 열고 실행 제어하기
2017/07/05 – [Tip/VBA] – 엑셀 프로그래밍으로 파워포인트 열고 실행하기 VBA
Excel에서 Word사용 시에 반드시 아래 사진처럼 VBE에서 Word 참조 설정을 해야합니다.
파일
엑셀에서워드.zip
워드 값 가져오기 코드1
Sub Word_Open1() ‘ CreateObject 사용 AP는 Application으로 됨 Dim Ap As Word.Application Dim Dc As Document Set Ap = CreateObject(“Word.Application”) Set Dc = Ap.Documents.Open(ThisWorkbook.Path & “\문서1.docx”) ‘ 확장자 입력해야함. ‘Ap.Visible = True ‘ 활성화 ‘Ap.Activate MsgBox “값 = ” & Dc.GoTo(what:=wdGoToBookmark, Name:=”값”) ‘ 값불러오기(책갈피이용) Dc.Close False Ap.Quit ‘ Quit 해줘야됨 Set Dc = Nothing Set Ap = Nothing End Sub Sub Word_Open2() ‘ New 사용 Dim Ap As New Word.Application Dim Dc As Document Set Dc = Ap.Documents.Open(ThisWorkbook.Path & “\문서1.docx”) ‘ 확장자 입력해야함. ‘Ap.Visible = True ‘ 활성화 MsgBox “값 = ” & Dc.GoTo(what:=wdGoToBookmark, Name:=”값”) ‘ 값불러오기(책갈피이용) Dc.Close False Ap.Quit ‘ Quit 해줘야됨 Set Dc = Nothing Set Ap = Nothing End Sub
-> New사용(Open)과, CreateObject 두가지 코드입니다.
워드 새로만들어 값 입력하기 코드2
Sub Word_New1() ‘ CreateObject 사용 AP는 Application으로 됨 Dim Ap As Word.Application Dim Dc As Document Set Ap = CreateObject(“Word.Application”) Set Dc = Ap.Documents.Add Ap.Visible = True ‘ 숨김활성화 Ap.Activate ‘ 활성화 Ap.Selection.TypeText Text:=”안녕하세요. jfree입니다.” Set Dc = Nothing Set Ap = Nothing End Sub Sub Word_New2() ‘ New 사용 Dim Ap As New Word.Application Dim Dc As Document Set Dc = Ap.Documents.Add Ap.Visible = True ‘ 숨김활성화 Ap.Activate ‘ 활성화 Ap.Selection.TypeText Text:=”안녕하세요. jfree입니다.” Set Dc = Nothing Set Ap = Nothing End Sub
-> New사용(Open)과, CreateObject 두가지 코드입니다.
동영상
YouTube 바로가기 클릭
이처럼 Microsoft Office Excel에서 Powerpoint, Excel, Access, Word 모두 제어를 할 수가 있습니다.
사실 Office에 있는 것들 말고 다른 파일의 접근도 다 가능합니다. ( 악용하여 고급 프로그램 속안에 파헤치는것도 가능합니다.. )
Excel에서 뿐만 아니라
PowerPoint VBA에서도 Excel을 제어할 수 있으며
총 VBA가 되는 코드 어느 곳에서든 포스팅과 같은 원리로 실행이 되오니 참고합시다!
관련글
2017/07/07 – [Tip/VBA] – 엑셀 VBA 액세스(Access) 제어하기(값 불러오고 만들기)
2017/07/06 – [Tip/VBA] – 엑셀 프로그래밍으로 다른파일(Excel) 열고 실행 제어하기
2017/07/05 – [Tip/VBA] – 엑셀 프로그래밍으로 파워포인트 열고 실행하기 VBA
VBA, JAVA, JSP, 안드로이드 등등 프로그래밍 개발 질문받습니다. 소통하는 개발자 댓글 많이달아주세요! 부탁드립니다.
엑셀연동 워드문서 일괄생성 (메일머지 기능)
관련:
지식인1, 지식인2, 지식인3
아래내용은 위 링크 1번에서 질문자님의 질문에 대한 지식인 ‘큰형’님의 소스를 기반으로 수정한 내용입니다.
데이터는 아래와 같은 엑셀문서 양식에 들어 있습니다.
2행에 있는 여러가지 “{항목}” 문자열을 찾아서
워드문서 생성이 O 라면
각 행의 데이터로 바꿔서 아래 워드 문서를 만들어서
지정된 파일명으로 저장하는 일괄처리 작업입니다.
작업을 위해서는 기준이 될 워드문서 내에 {항목}과 같은 표시가 만들어져 있어야 합니다.
{항목}은 1개가 아니라 여러군데 있어도 됩니다.
예전 아래한글 프로그램에 있던 메일머지 기능과 유사합니다.
엑셀 데이터를 기반으로 여러장의 워드 문서를 만들 때 유용하겠습니다.
코드는 아래를 참고하세요.
더보기 Option Explicit Sub 직사각형1_Click() ‘Dim w As Word.Application, D As Word.Document 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 ‘Word.Range SPR = Application.PathSeparator ‘// 윈도우의 경우 ‘\’문자 docFile = ThisWorkbook.Path & SPR & “표준계약서” ‘Application.ScreenUpdating = False lastRow = Cells(Rows.Count, 3).End(xlUp).Row If lastRow < 3 Then Exit Sub T = Range("B2:O" & lastRow).Value '//*********** B열부터 O열까지 ' 워드에서 표준계약서.docx문서 복사본 오픈 Set w = CreateObject("Word.Application") w.Visible = True For n = 2 To UBound(T) If T(n, UBound(T, 2)) = "O" Then '저장여부가 "O"이면 Set D = w.Documents.Open(Filename:=docFile & ".docx", ReadOnly:=True, Visible:=True) Set myRange = D.Content For m = 1 To (UBound(T, 2) - 2) '// ************* B:O열까지에서 N열,O열 2개열은 제외 With myRange.Find .ClearFormatting .Replacement.ClearFormatting .Text = T(1, m): .Replacement.Text = T(n, m) .Execute Replace:=2 '// 2: wdReplaceAll 'Debug.Print T(1, m); T(n, m) End With Next m '문서 저장 및 종료 'D.SaveAs2 Filename:=docFile & "_" & T(n, 2) & ".docx" ' // ***** 표준계약서_홍길동.docx 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 입력값2.xlsm 0.02MB 표준계약서.docx 0.02MB
So you have finished reading the 엑셀 워드 연동 vba topic article, if you find this article useful, please share it. Thank you very much. See more: 엑셀 VBA 워드 문서 만들기, VBA 엑셀 워드, Export excel table to word vba, 엑셀 워드 메일머지, VBA Word to Excel, 워드 다음 레코드, 메일머지 줄 바꿈, 워드 메일머지 사진
