동일형식 소스파일 일괄생성_템플릿문서사용

프로젝트 초기 진행시 동일형식으로 여러 파일을 일괄적으로 만들어야 할때가 있는데 이런 목적으로 사용하면 좋을듯 합니다.(템플릿문서사용)

​

Sub 소스파일일괄생성_템플릿문서사용()

'

' 일부내용만 다른 동일형식 소스파일 일괄생성(템플릿문서 사용)

' 템플릿문서(워드) : 소스파일일괄생성_템플릿.docx

​

'생성해야 할 파일의 목록은 '소스파일생성목록' Sheet에 작성함

' 양식은 다음과 같은 형식으로 작성되어 있음

' 파일명(폴더포함) 소스설명 작성자

' c:\문서\temp\sample1.java 샘플1 홍일동

' c:\문서\temp\sample2.java 샘플2 홍이동

'--------------------------------

'처리절차

' 1. 템플릿문서(워드)를 연다

' 2. 엑셀에 작성되어 있는 갯수만큼 아래 내용을 반복처리한다.

' 2-1. 비여있는 워드문서를 연다

' 2-2. 템플릿문서의 내용을 빈워드문서에 복사한다.

' 2-3. 특정내용을 치환한다.

' 2-4. 최종문서내용을 클립보드에 복사한다.

' 2-5. 비여있는 소스파일을 생성한다.

' 2-7. 메모장으로 소스파일을 오픈후 아래 내용을 처리한다.

' 2-7-1 클립보드에 있는 내용을 붙여놓는다.

' 2-7-2 저장

' 2-7-3 메모장을 닫는다.

' 2-8. 빈워드문서를 저장하지 않고 닫는다.

' 3. 템플릿문서(워드)를 닫는다.

'--------------------------------

​

Dim curPath

curPath = ActiveWorkbook.Path '엑셀파일 경로

'응용프로그램(메모장) 존재여부 확인

'

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists("C:\WINDOWS\NOTEPAD.EXE") = False Then

MsgBox "메모장이 없습니다."

Exit Sub

End If

'**************

'***주의사항***

' 엑셀vba에서 워드vba 문법사용시 워드vba의 enumeration(ex:wdWindowStateMinimize,wdReplaceAll,...)은 사용하지 않아야 함 - 실제값을 사용해야함

' 워드vba에서 엑셀vba 문법사용시 엑셀vba의 enumeration(ex:xlMinimized,...)은 사용하지 않아야 함 - 실제값을 사용해야함

'**************

'워드어플리케이션 오픈

Set wdApp = CreateObject("Word.Application")

wdApp.Visible = True '워드를 안보이게 하려면 False로 한다.

wdApp.WindowState = 2 'wdWindowStateMaximize=1 wdWindowStateMinimize=2,wdWindowStateNormal = 0

'워드 템플릿문서 오픈