View Single Post
Old 01-24-2012, 06:22 PM   #414
=X=
Wizard
=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.=X= ought to be getting tired of karma fortunes by now.
 
=X='s Avatar
 
Posts: 3,671
Karma: 12205348
Join Date: Mar 2008
Device: Galaxy S, Nook w/CM7
Hi Gauthier
Great tips I'll include the win64 changes in the word 2003/2007 port. I'll post them here shortly see if the changes work for both win32/win64 for both word2003/2007.

Some of my comments below
Quote:
Originally Posted by Gauthier View Post
Using Word 2010 64bit Edition
May I suggest the following changes:

In vbaKernelStuff


Code:
#If VBA7 Then .....
#End If

#If VBA7 Then
Dim TaskID As LongPtr
Dim ProcHandle As LongPtr
#Else
Dim TaskID As Long
Dim ProcHandle As Long
#End If
I'll update the code with the suggested changes.



Quote:
Originally Posted by Gauthier View Post
In datBookCreatorProperties, Sub INITIALIZE()


Code:
#If Win64 Then
        setCalibrePath "C:\Program Files (x86)\calibre"
#Else
        setCalibrePath "C:\Program Files\calibre"
#End If
The real fix here is to use the window enviromental variable. I hard coded the path cause I was lazy.
I'll update the code to say
Code:
 setCalibrePath Environ("AppData") + "\calibre"
See if this works for you as well.

Quote:
Originally Posted by Gauthier View Post
In eBookCreatorCalibre Sub html2any

Adding a bit of diagnostic on the calibre path, otherwise, it fails silently

Code:
' Prepare to create the eBook
    szHTML2ANY = Replace(szPathCalibre, """", "") + "\ebook-convert.exe"
    If Not IsFileExists(szHTML2ANY) Then
        MsgBox "Calibre Path Incorrect"
        Exit Sub
    End If
    szHTML2ANY = """" + szHTML2ANY + """"
    AnyToHMTLToTarget szHTML2ANY, szFilepath, szFilename, szParam, True, eEBookFormat
Great suggestion, will update the code.

Quote:
Originally Posted by Gauthier View Post
Remark, I only corrected the NOIMP version, there may be more.
No worries. I've dropped IMP support, I created a poll some time ago asking if folks still used the IMP feature. Zero people responded so I took that as a "No body uses BC for IMP".

Going forward there will be a 2003/2007 version only.

Quote:
Originally Posted by Gauthier View Post
Also the BrowserFileSystem need a bit of improvement.
=X=
=X= is offline   Reply With Quote