Generating business blueprint with shortcuts in Word 2007

Question

Hi,
Was wondering if you have experienced problems generating the business blueprint in Solution Manager where Word 2007 is used? I have included the u201CInsert shortcutu201D option, which seems to cause the issue. (As this is not a problem when this option is not selected). When running the macro in 2007, an error causes Word to close. When recovering the document, the business blueprint is incomplete and the links are not generated correctly.
This problem does not occur when generating the blueprint, with the same option selected, for Word 2003.
I found a suggested solution here: http://support.microsoft.com/kb/282830. However, this did not solve the problem.
Any suggestions?
Thanks,
Hanne

Answer 1

Hi Andreas,
Thank you for your input, and sorry for getting back to you so late.
After debugging a bit more, it seems that the programme crashes when calling:
m_oDocument.Hyperlinks.Add Anchor:=oRange, Address:="", _
                           SubAddress:="S" & VBA.Left(strFileName, 32), ScreenTip:="", _
                           TextToDisplay:=strOrigFilename
The m_oDocument.Hyperlinks.Add Anchor:=oRange, Address:=L_ADDRESS, SubAddress:=L_SUBADDRESS is not reached (see code below).
Private Sub InsertRef2kHyperLink(oRange As Range, strFileName As String, _
                                 strOrigFilename As String)
m_oDocument.Hyperlinks.Add Anchor:=oRange, Address:="", _
                           SubAddress:="S" & VBA.Left(strFileName, 32), ScreenTip:="", _
                           TextToDisplay:=strOrigFilename
End Sub
Private Sub sInsertHyperLink(sDoc As String)
Dim oRange      As Range
Dim L_ADDRESS As Variant
Dim L_SUBADDRESS As Variant
On Error GoTo err_sInsertHyperLink
If UCase(VBA.Left(VBA.LTrim(sDoc), 3)) = "WWW" Then
    sDoc = "HTTP://" & sDoc
End If
L_ADDRESS = sDoc
L_SUBADDRESS = ""
m_oDocument.Range.InsertParagraphAfter
Set oRange = m_oDocument.Range(m_oDocument.Range.End - 1)
'm_oDocument.Hyperlinks.Add Anchor:=oRange, Address:=sDoc, SubAddress:=""
m_oDocument.Hyperlinks.Add Anchor:=oRange, Address:=L_ADDRESS, SubAddress:=L_SUBADDRESS
oRange.Collapse Direction:=wdCollapseEnd
Set oRange = m_oDocument.Range(m_oDocument.Range.End - 1)
<xxx>
However, an extract of the recovered business blueprint shows that the url is created. Although it is not the original filname url, which should be "1.1.1.1.1 Create BP" (instead of the 32 character string specified below).
1.1.1.3.1 Link create BP
SDE2E5D31A9B18FF1B54300145EB4162D
Any suggestions?
Kind regards,
Hanne