writte Word doc content from excel using styles

[werafa]

Private Function BookOpen(strBookName As String) As Boolean'test whether worbook is already open
    Dim oBk As Workbook
    On Error Resume Next
        Set oBk = Workbooks(strBookName)
    On Error GoTo 0
    If oBk Is Nothing Then
        BookOpen = False
    Else
        BookOpen = True
    End If
End Function