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%>------------------------------------------------------------------------------------------------------------------------------------
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다: