블로그 이미지
이비그치면

태그목록

최근에 올라온 글

최근에 달린 댓글

최근에 받은 트랙백

글 보관함

calendar

 이전 다음 2024.11
일 월 화 수 목 금 토
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
티스토리 가입하기 RSS FEED
컴퓨터/기타

MS WORD 문서 자동처리의 첫발떼기 -- 템플릿문서(원본문서)를 copy해서 새로운 WORD DOC 파일 만들기

2012. 2. 21. 17:44 | Posted by 이비그치면
문서의 첫페이지는 매크로 실행과 관련된 주의 및 지시사항, 옵션등이 위치하는
페이지로 만들기때문에  2페이지부터가 실제문서가 된다

그래서 제일 먼저 해야 할 작업이 2페이지부터 마지막 페이지까지 COPY해서
새 문서에 붙여넣기(PASTE)하는 작업이다

아래가 code snippet 이다

Documents("C:\test_01.docm").Activate

p1 = 2
   
Set rng = ActiveDocument.Range
Selection.GoTo wdGoToPage, wdGoToAbsolute, p1
rng.Start = Selection.Start
Selection.EndKey Unit:=wdStory

rng.Copy
    
    
sFileName ="outdoc.docx"
Application.Documents.Add.SaveAs FileName:=sFileName
Set NewDoc = Application.Documents.Open(sFileName)
NewDoc.Bookmarks("\EndOfDoc").Range.Paste


위의 코드를 실행해볼수 있는 문서이다

 test_01.docm

'컴퓨터 > 기타' 카테고리의 다른 글

엑셀 워드 VBA에서 Dictionary Data Type(사전데이타구조)의 사용  (1) 2012.03.07
울트라에디트(UltraEdit) Tips  (0) 2012.02.24
MS WORD VBA 활용(문서자동처리 솔루션등)  (0) 2012.02.15
PC 파일 아이패드/아이폰 굿리더(GoodReader)로 옮겨서 보기/읽기/듣기 --- 유선(iFunBox, iTunes 이용)  (0) 2012.02.15
PC의 다운받은 epub 파일 아이패드 아이북스(iPAD iBooks)로 옮겨서 보기  (0) 2012.02.13
컴퓨터/기타

MS WORD VBA 활용(문서자동처리 솔루션등)

2012. 2. 15. 18:25 | Posted by 이비그치면
MS WORD VBA는 워드를 단지 문서작성용 툴에서 작성된 문서를 데이타저장소로 사용할수있게해준다는것입니다
문서를 작성하면서 부여한 여러가지 문서속성들이 데이타처리를 위한 다양한 장치와 구분자로
사용될 수 있습니다
예를 들어 단어에 어떤 표시(색상,폰트,밑줄등)를 하고 그걸 추출해낸다던가 특정단어의 빈도를 센다던가 어떤 문서범위를 지정하고 그 부분에 밑줄단어에 대한 삭제처리를 한다든가 등등의 일을 할 수있다는 것입니다
문서템플릿을 만들고 거기에 들어갈 각종 데이타(MS OFFICE, 데이타베이스등)를 연결하여
문서내에서 처리하여 완결된 문서를 자동생성할 수도 있습니다

문서를 워드로 작성해놓으면 작성된 문서를 배치처리하여 요약보고서나 통계보고서등도
만드는 것이 가능합니다

간단한 사례들을 앞으로 게재하고자 합니다 

방문하셔서 문서처리 업무에 활용바랍니다 

'컴퓨터 > 기타' 카테고리의 다른 글

울트라에디트(UltraEdit) Tips  (0) 2012.02.24
MS WORD 문서 자동처리의 첫발떼기 -- 템플릿문서(원본문서)를 copy해서 새로운 WORD DOC 파일 만들기  (0) 2012.02.21
PC 파일 아이패드/아이폰 굿리더(GoodReader)로 옮겨서 보기/읽기/듣기 --- 유선(iFunBox, iTunes 이용)  (0) 2012.02.15
PC의 다운받은 epub 파일 아이패드 아이북스(iPAD iBooks)로 옮겨서 보기  (0) 2012.02.13
PC의 다운받은(구입하지 않은) 모비(.mobi)파일 아이패드 킨들(iPAD Kindle)로 옮겨 읽기(Transfer)  (0) 2012.02.10
컴퓨터/기타

PC 파일 아이패드/아이폰 굿리더(GoodReader)로 옮겨서 보기/읽기/듣기 --- 유선(iFunBox, iTunes 이용)

2012. 2. 15. 16:50 | Posted by 이비그치면
굿리더(GoodReader)

     다양한 문서 포맷(Format)을 (확장자가 txt, pdf, doc, html등인 파일) 지원하고
     기타 사운드, 이미지, 동영상을 보거나 들을수 있는 거의 올인원수준의 문서보기 앱이다


PC --> iPad/iPhone(PC에서 아이패드/아이폰으로 파일 옮기기)

--  iFunBox 이용

1) USB Cable 연결(iPAD  USB Cable로 Connect)

2) PC에서  iFunBox 기동

    좌측 frame의 file directory tree(directory list)에서 Raw File System 선택
    아래의 폴더를 찾아 이동
    /private/var/mobile/Applications/GoodReader/Documents 

    파일탐색기를 열고
    옮길 파일 또는 폴더를 선택하여 Drag & Drop

3) 아이패드의 굿리더(iPad GoodReader)클릭하여 해당 파일 또는 폴더가 옮겨졌는지 확인  
 
 --  iTunes 이용

1)  USB Cable 연결(iPAD  USB Cable로 Connect)

2)  iTunes 기동 확인(iTunes가 설치되어있으면 Cable 연결시 자동 기동(Auto Run))

3) iTunes 좌측 frame에서  장비(Devices)의 보기 클릭 --> xxxx의 iPad 클릭
    우측 frame 상단의 응용프로그램(Apps) 클릭

   


  
4) 아래쪽으로 스크롤 다운(scroll down)  


아래 우측 하단의 추가버튼을 클릭하면 파일탐색창이 열린다

굿리더(GoodReader)로 전송할 파일(들)을 찾아  선택하고 열기버튼 누르면 
선택한 파일들이 GoodReader의 도큐먼트 창으로 옮겨져있음을 확인할 수 있다

동기화(Sync) 버튼 클릭 

5) 아이패드(iPad)의 굿리더(GoodReader)를 열어 My Documents에서 파일 확인
   -- > 클릭하여 보기 


 

'컴퓨터 > 기타' 카테고리의 다른 글

MS WORD 문서 자동처리의 첫발떼기 -- 템플릿문서(원본문서)를 copy해서 새로운 WORD DOC 파일 만들기  (0) 2012.02.21
MS WORD VBA 활용(문서자동처리 솔루션등)  (0) 2012.02.15
PC의 다운받은 epub 파일 아이패드 아이북스(iPAD iBooks)로 옮겨서 보기  (0) 2012.02.13
PC의 다운받은(구입하지 않은) 모비(.mobi)파일 아이패드 킨들(iPAD Kindle)로 옮겨 읽기(Transfer)  (0) 2012.02.10
아이폰 북마크(즐겨찾기) 동기화 (크롬, 파폭등과)  (0) 2012.02.03
컴퓨터/기타

PC의 다운받은 epub 파일 아이패드 아이북스(iPAD iBooks)로 옮겨서 보기

2012. 2. 13. 14:22 | Posted by 이비그치면
1. iPAD 와 데스크탑 PC(Desktop PC) 연결

2. PC  :  iTunes 가동(가동확인)

3. iPAD :아이패드 아이북스(iPAD iBooks) 다운로드 && 설치 -- 이미 설치되어있으면 건너뜀

4.  PC
    -- 아이패드로 옮길 epub 파일 윈도우 파일탐색기에서 선택(복수선택도가능)

    -- Drag && Drop
        . 좌측 frame 상단의 보관함으로 선택파일 drag and drop
          또는 
        . 좌측의 보관함의 책폴더 클릭후 우측에 나타난 책frame으로 선택파일 drag and drop

   --   iTunes 좌측 frame에서 장비(Devices)에서  xxxx의 iPAD 클릭
        우측 frame 상단메뉴의 책 클릭 
     
       . 책동기화의 선택한 책 체크
       . 아래창에서 체크박스에 체크
       . 하단의 적용버튼 클릭

5. iPAD
   -- 아이북스 서가에서 옮겨진 책 확인
   -- 클릭하여  책 보기

'컴퓨터 > 기타' 카테고리의 다른 글

MS WORD VBA 활용(문서자동처리 솔루션등)  (0) 2012.02.15
PC 파일 아이패드/아이폰 굿리더(GoodReader)로 옮겨서 보기/읽기/듣기 --- 유선(iFunBox, iTunes 이용)  (0) 2012.02.15
PC의 다운받은(구입하지 않은) 모비(.mobi)파일 아이패드 킨들(iPAD Kindle)로 옮겨 읽기(Transfer)  (0) 2012.02.10
아이폰 북마크(즐겨찾기) 동기화 (크롬, 파폭등과)  (0) 2012.02.03
5달러짜리 말을 지키기 위해 50달러짜리 펜스를 치지 말라  (0) 2012.02.01
컴퓨터/엑셀

엑셀 날짜더하기 및 시간더하기

2012. 2. 11. 16:36 | Posted by 이비그치면
게시판에 올려진 문제를 풀어보았습니다

주어진 특정 일자 시간에 원하는 시간간격을 일주일동안 더하는 문제입니다 

기준시간을 "(화) 오전 9:00" 라고 설정하면
다음과같이 35분씩 더하여 출력하는 문제입니다

"(화) 오전 10:10" 
"(화) 오전 10:45" 
"(화) 오전 11:20" 
"(화) 오전 11:55" 
....

엑셀의 몇가지 데이트함수를 이용하였습니다

소스입니다

시간더하기.xlsm


실행방법은 첫번째셀(1,1)에 원하는 날짜를 넣고 엔터키 입력후 
실행버튼을 누르시면 됩니다

Option Base 1
Sub test()
aDayName = Array("일", "월", "화", "수", "목", "금", "토")
s_date = Worksheets("Sheet1").Cells(1, 1).Value

t = DateValue(s_date) + TimeValue("09:00")
t_7 = DateAdd("d", 7, t)

Worksheets(1).Columns(3).ClearContents
iRow = 1
Do While t_7 > t
    mytime = Format(t, "AMPM hh:mm ")
    mydate = DateValue(Format(t, "yyyy mm dd"))
    Worksheets("Sheet1").Cells(iRow, 3).Value = "(" & aDayName(Weekday(mydate)) & ") " & mytime
    t = t + TimeValue("00:35")
    iRow = iRow + 1
Loop

End Sub 

 

'컴퓨터 > 엑셀' 카테고리의 다른 글

엑셀 VBA에서 정규식(Regular Expression) 사용  (0) 2012.03.08
다음 웹 영한사전 단어장 CHM(윈도우 도움말) 파일로 만들기(엑셀 VBA)  (2) 2012.02.23
엑셀의 셀값을 읽어 워드 테이블에 쓰기(Excel Cell Data를 MS Word Table의 셀로 옮기기)  (0) 2012.02.01
MS WORD 체크박스(CheckBox) 활용예(WORD VBA 이용하여)  (0) 2012.01.31
매주 작성된 엑셀파일들을 오픈 && 읽어 월계및 총계 처리하는 엑셀 VBA 프로그램  (0) 2012.01.25
컴퓨터/기타

PC의 다운받은(구입하지 않은) 모비(.mobi)파일 아이패드 킨들(iPAD Kindle)로 옮겨 읽기(Transfer)

2012. 2. 10. 18:05 | Posted by 이비그치면

1. iPAD 와 데스크탑 PC(Desktop PC) 연결

2. iTunes 가동(가동확인)

3. 킨들(iPAD Kindle) 다운로드 && 설치 -- 이미 설치되어있으면 건너뜀

4. iTunes 좌측 frame에서 장비(Devices)의 보기 클릭 --> xxxx의 iPAD 클릭
   우측 frame 상단의 응용프로그램(Apps) 클릭


5. 아래쪽으로 스크롤다운 (Scroll down)



추가버튼 클릭 하여 파일탐색창이 열리면 iPAD로 전송할  모비파일(.mobi)을 찾아
선택하고  열기버튼 클릭 

도큐멘트창에서 해당파일 옯겨졌음을 확인

동기화(Sync) 버튼 클릭
 
6.  iPAD의 Kindle을 열어서 책이 옮겨진거 확인  클릭하여 책읽으면 끝

** 킨들계정을 받아야합니다 **
 

'컴퓨터 > 기타' 카테고리의 다른 글

PC 파일 아이패드/아이폰 굿리더(GoodReader)로 옮겨서 보기/읽기/듣기 --- 유선(iFunBox, iTunes 이용)  (0) 2012.02.15
PC의 다운받은 epub 파일 아이패드 아이북스(iPAD iBooks)로 옮겨서 보기  (0) 2012.02.13
아이폰 북마크(즐겨찾기) 동기화 (크롬, 파폭등과)  (0) 2012.02.03
5달러짜리 말을 지키기 위해 50달러짜리 펜스를 치지 말라  (0) 2012.02.01
HTML문서(웹문서/웹페이지)를 epub 로 변환(Conversion) -- 크롬 확장 dotEPUB  (0) 2012.01.19
컴퓨터/기타

아이폰 북마크(즐겨찾기) 동기화 (크롬, 파폭등과)

2012. 2. 3. 16:21 | Posted by 이비그치면
게시판에 누군가 올린 질문사항에 답을 하다가 찾은 사이트다

크롬이나 파폭등에 북마크해놓은 사이트들을 아이폰의 사파리에서도 쓸수있게 해주는

방법이다


Xmarks 란 파폭의 애드온, 크롬확장프로그램을 이용하여  파폭과 크롬에서 사용하던 북마크를 아이폰에 동기화하는 방법을  소개해 놓았다

 http://geeknizer.com/sync-iphone-bookmarks-firefox-chrome/ 

일종의 북마크의 클라우드화라고나 할까 

집에서 사용하던 크롬에서  Xmarks 크롬확장을 이용하여 동기화를 해놓으면 회사 크롬에서도 동일한 북마크를 사용할 수 있게 된다 

'컴퓨터 > 기타' 카테고리의 다른 글

PC의 다운받은 epub 파일 아이패드 아이북스(iPAD iBooks)로 옮겨서 보기  (0) 2012.02.13
PC의 다운받은(구입하지 않은) 모비(.mobi)파일 아이패드 킨들(iPAD Kindle)로 옮겨 읽기(Transfer)  (0) 2012.02.10
5달러짜리 말을 지키기 위해 50달러짜리 펜스를 치지 말라  (0) 2012.02.01
HTML문서(웹문서/웹페이지)를 epub 로 변환(Conversion) -- 크롬 확장 dotEPUB  (0) 2012.01.19
구글 크롬 확장 프로그램 -- 내가 사용하고 있는 5가지  (0) 2012.01.18
컴퓨터/엑셀

엑셀의 셀값을 읽어 워드 테이블에 쓰기(Excel Cell Data를 MS Word Table의 셀로 옮기기)

2012. 2. 1. 15:12 | Posted by 이비그치면

- MS WORD의 고정된 표에 값 옮기기

   아래와 같은 워드 문서(MS WORD Document)가 있다



그리고 아래의 엑셀 데이타가 있다



지금은 단순화를 위해 동일한 표양식에 동일한 데이타를 넣어 두었다

이 엑셀 데이타를 워드의 표로 옮기는 작업을 하는 워드 매크로(WORD VBA)이다

샘플데이타 엑셀 파일과 워드 파일이다

엑셀데이타.xlsx


엑셀데이타옮기기.docm



다음은 실행결과이다



- 테이블 새롭게 만들어(신규 생성해) 추가

- 타이틀만 있는 테이블에 열(Row) 추가
 

'컴퓨터 > 엑셀' 카테고리의 다른 글

다음 웹 영한사전 단어장 CHM(윈도우 도움말) 파일로 만들기(엑셀 VBA)  (2) 2012.02.23
엑셀 날짜더하기 및 시간더하기  (6) 2012.02.11
MS WORD 체크박스(CheckBox) 활용예(WORD VBA 이용하여)  (0) 2012.01.31
매주 작성된 엑셀파일들을 오픈 && 읽어 월계및 총계 처리하는 엑셀 VBA 프로그램  (0) 2012.01.25
엑셀 VBA 암호, 패스워드(Password) 해제(제거)  (12) 2012.01.20
컴퓨터/기타

5달러짜리 말을 지키기 위해 50달러짜리 펜스를 치지 말라

2012. 2. 1. 15:10 | Posted by 이비그치면
보호에 들어가는 투자와 비용 보호가치사이에서 균형잡힌 의사결정과 합리적인 선택

가치의 효용과 가치의 파생효과, 가치의 지속성, 유효기간,
경쟁상대와 경과기간에 따르는 가치의 하락 고려

정보, 지적자산의 보호와 그것의 유지비용과 투자를 언제까지 계속해야 하는가

지켜야 할 정보와 버려야할 정보/지식의 선별과  적절한 폐기원칙 수립 필요

보안투자의 딜레마

 

'컴퓨터 > 기타' 카테고리의 다른 글

PC의 다운받은(구입하지 않은) 모비(.mobi)파일 아이패드 킨들(iPAD Kindle)로 옮겨 읽기(Transfer)  (0) 2012.02.10
아이폰 북마크(즐겨찾기) 동기화 (크롬, 파폭등과)  (0) 2012.02.03
HTML문서(웹문서/웹페이지)를 epub 로 변환(Conversion) -- 크롬 확장 dotEPUB  (0) 2012.01.19
구글 크롬 확장 프로그램 -- 내가 사용하고 있는 5가지  (0) 2012.01.18
epub 한글 문서 데스크탑 PC(Windows)에서 보기 -- Calibre  (0) 2012.01.18
컴퓨터/엑셀

MS WORD 체크박스(CheckBox) 활용예(WORD VBA 이용하여)

2012. 1. 31. 18:13 | Posted by 이비그치면
아래와 같은 WORD 문서에서 원하는 중식메뉴를 CheckBox에 체크하고 중식식권버튼을 클릭하면 하단의 텍스트박스에 선택한 주문리스트와 합산된 주문금액이 출력되도록 하는것입니다

 

아래는 짬뽕,삼선짬뽕,탕수육,유산슬을 선택하고 중식식권버튼을 눌렀을때의 결과입니다


몇줄 안되는 코딩이라서 별도로 설명하지 않고 아래에 소스를 리스트해두었습니다

Private Sub cmd중식식권_Click()
Set tbl = ActiveDocument.Tables(1)
iOrderSum = 0
sOrderList = ""
For iRow = 1 To tbl.Rows.Count
    Set myRange = tbl.Cell(iRow, 1).Range
    Set oTest = myRange.InlineShapes
    If oTest.Item(1).OLEFormat.Object.Value Then
        sOrderAmt = Replace(tbl.Cell(iRow, 3).Range.Text, Chr(13), "")
        sOrderAmt = Replace(sOrderAmt, ",", "")
        iOrderSum = iOrderSum + Val(sOrderAmt)
        
        sEachOrder = Replace(tbl.Cell(iRow, 2).Range.Text, Chr(13), "")
        sEachOrder = Replace(sEachOrder, Chr(7), "")
        sOrderList = sOrderList & sEachOrder & "/"
    End If
Next
ActiveDocument.txt선택메뉴.Text = sOrderList
ActiveDocument.txt금액.Text = iOrderSum
End Sub

혹시 직접 해보실 분을 위해서 소스를 첨부해두니 참고바랍니다

체크박스.doc

 



 

'컴퓨터 > 엑셀' 카테고리의 다른 글

엑셀 날짜더하기 및 시간더하기  (6) 2012.02.11
엑셀의 셀값을 읽어 워드 테이블에 쓰기(Excel Cell Data를 MS Word Table의 셀로 옮기기)  (0) 2012.02.01
매주 작성된 엑셀파일들을 오픈 && 읽어 월계및 총계 처리하는 엑셀 VBA 프로그램  (0) 2012.01.25
엑셀 VBA 암호, 패스워드(Password) 해제(제거)  (12) 2012.01.20
MS 워드에서 밑줄 영어 단어 추출하여 엑셀 파일에 넣기  (4) 2012.01.03

티스토리툴바