어떻게 Word 파일 을 만 듭 니까?

creatdoc.asp성하 영 동 생 성 Word 파일<%    dotLocation="'servernamedirectory    heTemplate.dot'"    intRowCount = Request.Form("rowCount")  ' 줄 수 를 초기 화 합 니 다.3 개의 파 라 메 터 를 전달 합 니 다:페이지 에 있 는 폼 의 내용(모든 포함 도 메 인),Word 템 플 릿 파일 의 위치,입력 폼 에서 받 은 줄 수.모든 입력 폼 도 메 인 을 읽 고 페이지 를 불 러 온 후에 creatdoc 서브루틴<%를 호출 합 니 다.    itemCount = 0                            ' 도 메 인 계수 기 를 0 으로 설정 합 니 다.    For Each Item in Request.Form            ' 합계 표 필드.    itemCount = itemCount + 1            ' For...Next 순환 을 사용 합 니 다.%>    <% Next %>        ----------------------------------------------------------------------------------------------------------------브 라 우 저의 보안 을 Low 또는 Custom<%Set object WordDoc=CreateObject("WordDocument")ObjWordDoc.Application.Documents.Add theTemplate 로 설정 하려 면,FalseObjWordDoc.Application.Visible=True%>--------------------------------------------------------------------------------------------------------------------------------------X 축 은 폼 에서 받 은 줄 수 를 포함 합 니 다.각 폼 도 메 인 이름과 해당 하 는 값 을 수집 합 니 다.각각 검사 하고 해당 하 는 수열 요소 에 넣 습 니 다.여기 서 인 코딩 이 불확실 한 CASE 선택<%For intCount=0 to frmData.field Count.value 를 사 용 했 습 니 다.  strOkay = "Y"  strSearch = frmData.elements(intCount).name  ' 폼 도 메 인 이름 을 불 러 옵 니 다.  strValue = frmData.elements(intCount).value  ' 폼 필드 값 을 불 러 옵 니 다.  strPosition = Instr(1,strSearch,"_")          intStringLen=strPosition-1  If intStrLen > 0 Then      strLeft = Left(strSearch,intStringLen)      strRight = Right(strSearch,(Len(strSearch)-Len(strLeft)-1))      Case strLeft'Case 명령 을 선택 하여 폼 필드 가 어느 열 에 속 하 는 지 결정 합 니 다.        Case "SKU"                       intArrayY=0        Case "description"                 intArrayY=1        Case "price"                       intArrayY=2        Case "quantity"                    intArrayY=3      End Select      IntArrayX = strRight      If strOkay <> "N" Then        TheArray(intArrayY, intArrayX) = strValue      End If  최종 IfNext%>--------------------------------------------------------------------------------------------------------    Set rngCurrent=obj WordDoc.application.activeDocument.Content'는 활성 화 된 파일 에 대해 변수 rngCurrent 로 Word 파일 대상 RANGE 를 설정 합 니 다.이것 은 사용자 가 다른 파일 을 열지 못 하도록 하기 위 한 것 입 니 다.    Set tabCurrent =  ObjWordDoc.Application.ActiveDocument.Tables.Add    rngCurrent,intNumrows,4)   ' 표 의 위치(rngCurrent)와 줄,열의 수 를 지정 하여 크기 를 확인 합 니 다. ' 먼저 첫 번 째 줄 row(tabRow=1)를 가리 키 며 한 줄 씩 순환 합 니 다.줄 의 끝 에 Enter[Chr(10)]를 삽입 하여 줄 의 빈 줄 을 만들어 줄 계수 기 를 증가 시 킵 니 다.ObjWordDocument.Application.activeDocument.Tables(1).Rows(tabRow).Orders.Enable=FalsobWordDocument.Application.activeDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter    theArray(1,j)objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter     theArray(2,j)objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter     FormatCurrency(theArray(3,j))    ' $기호,쉼표,소수점 위 치 를 사용 할 수 있 도록 Format Currency 로 미화 원 값 을 출력 합 니 다.obj WordDoc.application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter    theArray(4,j)objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter     Chr(10)objWordDoc.Applicatoin.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).    Range.ParagraphFormat.alignment=2    ' ParagraphFormat.alignment=2 에 표시 줄 수 를 설정 하여 미화 수량의 정확 한 조정 을 실현 합 니 다.    InsertAfter("Thank you for shopping at Acme Co., and please come again!")objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.  InsertAfter("Daryl B. Morticum")objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.  InsertAfter("Sales Associate")End Sub%>------------------------------------------------------------------------------------------------------------------------------------

좋은 웹페이지 즐겨찾기