게시판 본문 COM / COM+ by VB 6.0 - Read Only

죄송합니다...
도움은 안돼면서 이렇게 염치없이 부탁을 드려서요...

벌써 며칠째인데...
cls를 만들어서(허접) 응용PGM에서는 문제가 없어요..ㅡ.ㅡ^

regsvr32 xxxxx.dll 로 등록하면
근데 웹(테스트개인, IIS5.0) 에서 return 값을 하나씩 찍어 보면....
Set obj_Word = New Word.Application 여기서 부터 값을 못넘기는 것 같아요.

처음 해보는 거라...넘 힘에 부치네요...산넘어 산이란게 느껴집니다.

혹시 왜 그런지 알수 없을까요..
''############# cls #################
Public Function Cast_Html(ByVal u_file As Variant, ByVal target_Dir As Variant) As Variant
Dim obj_Word As Object
Dim word_Doc As Object
Dim s_Arr() As String
Dim org_File As String
Dim i As Long
Dim j As String
Dim k As String

On Error GoTo Err_Cast_Html

s_Arr = Split(u_file, "\")
i = UBound(s_Arr, 1)
org_File = Left(s_Arr(i), Len(s_Arr(i)) - 4)

Set obj_Word = New Word.Application
k = "AAAAA"

Set word_Doc = obj_Word.Documents.Open(u_file)
j = "BBBBB"

With word_Doc.WebOptions
.RelyOnCSS = True
.OptimizeForBrowser = True
' .BrowserLevel = wdBrowserLevelMicrosoftInternetExplorer5
.OrganizeInFolder = True
.UseLongFileNames = True
.RelyOnVML = True
.AllowPNG = True
.PixelsPerInch = 96
End With

With obj_Word.DefaultWebOptions
.UpdateLinksOnSave = True
.CheckIfOfficeIsHTMLEditor = True
.CheckIfWordIsDefaultHTMLEditor = False
.AlwaysSaveInDefaultEncoding = True
End With

obj_Word.ChangeFileOpenDirectory target_Dir

word_Doc.SaveAs FileName:=org_File & ".htm", fileformat:=wdFormatHTML, _
lockcomments:=False, Password:="", addtorecentfiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, savenativepictureformat:=True, _
SaveFormsData:=False, saveasaoceletter:=False

word_Doc.Close False
obj_Word.Quit
Set obj_Word = Nothing
Set word_Doc = Nothing

Cast_Html = u_file & " : " & target_Dir & " i: " & i & " : " & org_File & " j: " & j & " k: " & k

Exit Function

Err_Cast_Html:
Cast_Html = u_file & " false " & target_Dir & " i: " & i & " : " & org_File & " j:" & j & " k:" & k

End Function
''##########################
참고로 이 클래스는 파일(doc)을 읽어서 웹문서로 전환하는 겁니다.
각각의 값을 확인해보면 k부터 값을 못가져 옵니다..

''############# asp ##############
<!--#include file = "function_share.asp"-->
<%
'Response.Buffer = True
'Response.ContentType = "application/msword"

DIM fileName
DIM fullFileName
DIM fullPath
DIM WordToHtml
DIM rtn_Chk

set WordToHtml = server.CreateObject("WebCast.CastHtml")

fullFileName = "C:\Inetpub\wwwroot\ammesia.doc"
fullPath = "C:\Inetpub\wwwroot\200305"

call message_display(" 1 : " & fullFileName)
call message_display(" 2 : " & fullPath)

rtn_Chk = WordToHtml.cast_Html(cstr(fullFileName),cstr(fullPath))
call message_display(" 3 : " & rtn_Chk)

set WordToHtml = nothing

Call message_Display_allow("Upload 완료", "http://localhost/convert.asp" )
%>

귀찮으시거나 넘 유치해보이시더라도 도움을 주시리라 믿으며
그럼 오늘도 즐거운 하루 되세요..

E-Mail : ammesia@unitel.co.kr
MSN : ammesia@hotmail.com