BookCreator Tool v3.5

[=X=]

Art the time I wrote the app for word2003 and calibre .6 the executable was not part of the app path. If calibre its starting to add itself to the app path then I can remove the code that looks for the path and BC should work just fine.

[=X=]

Book Creator and BookCreator 2007 released.

BookCreator
- Bug fixes.

BookCreator 2007
- GUI update uses 2007+ Ribbons
- Bug Fixes
*** Fixed crash that would happen after book was created.

[=X=]

Can a Mod please update the title to "BookCreator Tool v3.5"

Thank You.

[askyn]

Just downloaded and opened up the latest version (2007 ribbon version)

Question tho,

I have a Add-ins tab as well as the new eBook Creator tab.

Is this normal? Or is it a left over from previous versions for some compatibility reason?

I would think with the new ribbon tab etc that the old tab could be done away with.

Thank you very much for the update !! I plan on playing with it a lot =)

[=X=]

Originally Posted by askyn

Just downloaded and opened up the latest version (2007 ribbon version)
Question tho,
I have a Add-ins tab as well as the new eBook Creator tab.
Is this normal? Or is it a left over from previous versions for some compatibility reason

Yes a little bit of both. There are two things I have not figured out with 2007. Dynamic creation of ribbon buttons and drop down ribbons, like I have in the bookcreator 2003 version. The features in the drop down menu where not ported to the new UI, so I left the add-on in so folks can still use the older functionality.

[Hitch]

Hi:

Stupid Q: I'm using the old version with Win7 and it seems to work, when I need it. I get an Add-in item on my 2010 Ribbon...any reason to upgrade?

Hitch

[anabelee]

Thank you for the new version, I'll try it today.

I have word 2010 in mylaptop, will work on it the 2007 version?

[=X=]

Originally Posted by Hitch

Hi:

Stupid Q: I'm using the old version with Win7 and it seems to work, when I need it. I get an Add-in item on my 2010 Ribbon...any reason to upgrade?

Hitch

Not really. A good amount of folks with MS Word 2007 reported crashes with the BC 2003. This release was really a port and bug fix for those crashes. The 2007 has it's own ribbon so it looks nicer and feels more like 2007. It also has the "Add-in" tab for the menu options that did not make it to the upgraded. (In a previous post I mentioned how I am currently not able to create drop down buttons)

For the BC 2003 I fixed few bugs and changed the way tags work. Instead of tagging italics with an underscore, I tag them with a !i! field. That change makes the format tag much more reliable.

Originally Posted by anabelee

Thank you for the new version, I'll try it today.

I have word 2010 in mylaptop, will work on it the 2007 version?

It should work word 2007 and 2010 are very much alike. The big differences was going from 2003 to 2007. However I don't have access to 2010 so I cannot confirm this.

=X=

[anabelee]

Originally Posted by =X=

It should work word 2007 and 2010 are very much alike. The big differences was going from 2003 to 2007. However I don't have access to 2010 so I cannot confirm this.

=X=

Ok, I'll try it this weekend, if I find any problem I'll tell you here. Thank you again.

[Gauthier]

Correction for the parent folder selection issue I have.
replace

    With Application.FileDialog(msoFileDialogFolderPicker)
        
        bDisplayVal = .Show
        szPath = VBA.CurDir
    End With

With

    With Application.FileDialog(msoFileDialogFolderPicker)
        
        bDisplayVal = .Show
        szPath = .SelectedItems(1)
    End With

[Gauthier]

Correction To allow Multiple file selection on Import File (Word 2007/2010 only)
Replace

Sub bcInsertfile()
'________________________________________________
' NAME: bcInsertfile
' AUTHOR: =X=
' DESCRIPTION: Opens insert file dialog box.
' HISTORY:
' DATE: 09/06/2008
'________________________________________________
    With Dialogs(wdDialogInsertFile)
        .Name = "*.*"
        .Show
    End With
End Sub

With

Sub bcInsertfile()
'________________________________________________
' NAME: bcInsertfile
' AUTHOR: =X=
' DESCRIPTION: Opens insert file dialog box.
' HISTORY:
' DATE: 09/06/2008
'________________________________________________
    CommandBars.FindControl(ID:=777).Execute
End Sub

[Gauthier]

Corrections for Word 2010 64 bit compatibility
1 vbaKernelStuff

#If VBA7 Then
Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" ( _
    ByVal hHandle As LongPtr, _
    ByVal dwMilliseconds As Long) As Long

Private Declare PtrSafe Function OpenProcess Lib "kernel32.dll" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As LongPtr, _
    ByVal dwProcessId As LongPtr) As LongPtr

Private Declare PtrSafe Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As LongPtr) As Long
#Else
Private Declare Function WaitForSingleObject Lib "kernel32" ( _
    ByVal hHandle As Long, _
    ByVal dwMilliseconds As Long) As Long

Private Declare Function OpenProcess Lib "kernel32.dll" ( _
    ByVal dwDesiredAccess As Long, _
    ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
    ByVal hObject As Long) As Long
#End If

#If VBA7 Then
Dim TaskID As LongPtr
Dim ProcHandle As LongPtr
#Else
Dim TaskID As Long
Dim ProcHandle As Long
#End If

2: eBookCommon

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

3: datBookCreatorProperties

        strPFPath = VBA.Environ("ProgramFiles(x86)")
        If strPFPath = "" Then
            strPFPath = VBA.Environ("ProgramFiles")
        End If
            setCalibrePath strPFPath + "\Calibre"
        End If

[Gauthier]

When activating Custom UI Errors warning (File->Options->Advanced->General->Show add-in user interface errors
I got on Word 2010:
Custom UI Errors:
Line:19 Column:136 Error Code 0x8004005 Unknown Office control ID: PageNumberInHeaderInsertGallery
Line:30 Column: 123 Error Code 0x8004005 Unknown Office control ID: AlignJustofyThai

[Gauthier]

Corrections should be:
PageNumbersInHeaderInsertGallery
and
AlignJustifyThai

[Gauthier]

Here is a file containing the corrections suggested above