Sub SilverBullet()

'Connection to Oracle with OO4O (Oracle object for OLE)
'Tools -> References.. -> Select <Oracle InProc Server 5.0 Type Library>
Dim oraSession  As Object
Dim oraDatabase As Object
Dim OraDynaset As OraDynaset
Dim OraFields As OraFields
Dim FieldDoc, FieldPol, FieldStat As String
Dim DocName As String

Dim strDocName As String
Dim strPath As String
Dim strAny As String
Dim ldDoc As Document
Dim strAnyWord As String
Dim vprint As String

'for testing
Dim lines() As String

    Set ldDoc = ActiveDocument
'File name without extention .doc or .docx
    strDocName = Left(ldDoc.Name, InStr( 1 , ldDoc.Name, ".") -  1 )

'Fullpath of file
    strPath = ldDoc.Path
    'strAny = ldDoc.Content  'Insert text from file in object
    strAnyWord = "Doc:"
       
    Set oraSession = CreateObject("OracleInProcServer.XOraSession")
'Connection parameter
    Set oraDatabase = oraSession.OpenDatabase("landocst", "dbo/dbo",  0 )
    'MsgBox "Connected to " & oraDatabase.Connect & "@" & oraDatabase.DatabaseName

'Create the OraDynaset Object.
'if you are not call parameter for Bind variable, your SQl statment will ejected error
    oraDatabase.Parameters.Add "var1", strDocName,  1 
    
    Set OraDynaset = oraDatabase.CreateDynaset(" SELECT ver.""FileName"" as NameDoc, voc.""Name"" as Pol, stat.""Name"" as StatName " _
   & "FROM dbo.ldmail mail, DBO.LDERC erc, DBO.LDMAILSTATE stat, DBO.LDVOCABULARY voc, DBO.ldversion ver " _
   & "WHERE erc.""ID"" = mail.""ERCID"" AND ver.""FileName"" = :var1 AND erc.""ID"" = ver.""DocID"" AND erc.""JournalID"" = 340470 " _
   & " AND mail.""ReceiverID"" = voc.""ID"" AND mail.""MailStateID"" in (2,4,6) AND mail.""MailTypeID"" = 340468 AND mail.""MailStateID"" = stat.""ID"" ",  0 &)
                                      
    Do While Not OraDynaset.EOF
    
'You can now display or manipulate the data in the dynaset. For example:
        Set OraFields = OraDynaset.Fields
        FieldPol = OraFields("Pol").Value
        FieldStat = OraFields("StatName").Value
        OraDynaset.MoveNext
    
        lines(i) = Split(strAnyWord & " " & strDocName & "  " & FieldPol & " -> " & FieldStat, vbCrLf)
    
    Loop
    
'Insert data in textbox
    With ldDoc.Shapes.AddTextbox(msoTextOrientationHorizontal,  440 ,  790 ,  170 ,  50 )
        .LockAspectRatio = msoTrue
        .LockAspectRatio = msoTrue
        .Line.Visible = msoFalse    'Hide lines
        .Select (lines(i))
        .TextFrame.TextRange.Text = lines(i) 'strAnyWord & " " & strDocName & " " & FieldPol & " ->  " & FieldStat '& vbCrLf &
        .TextFrame.TextRange.Font.Name = "Times New Romans"  'Font
        .TextFrame.TextRange.Font.Size =  9      'Size font
        '.TextFrame.TextRange.Font.Bold = True  'Font is Bold
    End With
    
End Sub

Sub SilverBullet()

'Connection to Oracle with OO4O (Oracle object for OLE)
'Tools -> References.. -> Select <Oracle InProc Server 5.0 Type Library>
Dim oraSession  As Object
Dim oraDatabase As Object
Dim OraDynaset As OraDynaset
Dim OraFields As OraFields
Dim FieldDoc, FieldPol, FieldStat As String
Dim DocName As String

Dim strDocName As String
Dim strPath As String
Dim ldDoc As Document
Dim strAnyWord As String

'for testing
Dim lines() As String
Dim text1 As String

    Set ldDoc = ActiveDocument
'File name without extention .doc or .docx
    strDocName = Left(ldDoc.Name, InStr( 1 , ldDoc.Name, ".") -  1 )

'Fullpath of file
    strPath = ldDoc.Path
    'strAny = ldDoc.Content  'Insert text from file in object
    strAnyWord = "Aieoiaio:"
       
    Set oraSession = CreateObject("OracleInProcServer.XOraSession")
'Connection parameter
    Set oraDatabase = oraSession.OpenDatabase("landocst", "dbo/dbo",  0 )
    'MsgBox "Connected to " & oraDatabase.Connect & "@" & oraDatabase.DatabaseName

'Create the OraDynaset Object.
'if you are not call parameter for Bind variable, your SQl statment will ejected error
    oraDatabase.Parameters.Add "var1", strDocName,  1 
    
    Set OraDynaset = oraDatabase.CreateDynaset(" SELECT ver.""FileName"" as NameDoc, voc.""Name"" as Pol, stat.""Name"" as StatName " _
   & "FROM dbo.ldmail mail, DBO.LDERC erc, DBO.LDMAILSTATE stat, DBO.LDVOCABULARY voc, DBO.ldversion ver " _
   & "WHERE erc.""ID"" = mail.""ERCID"" AND ver.""FileName"" = :var1 AND erc.""ID"" = ver.""DocID"" AND erc.""JournalID"" = 340470 " _
   & " AND mail.""ReceiverID"" = voc.""ID"" AND mail.""MailStateID"" in (2,4,6) AND mail.""MailTypeID"" = 340468 AND mail.""MailStateID"" = stat.""ID"" ",  0 &)

'You can now display or manipulate the data in the dynaset. For example:
    Do While Not OraDynaset.EOF
        Set OraFields = OraDynaset.Fields
        FieldPol = OraFields("Pol").Value
        FieldStat = OraFields("StatName").Value
        lines() = Split(strAnyWord & " " & strDocName & " " & FieldPol & " -> " & FieldStat, "")
        'text1 = text1 & vbCrLf & FieldPol & FieldStat
        text1 = lines(i) & vbCrLf & text1
        OraDynaset.MoveNext
        Loop
        
'Insert data in textbox
    With ldDoc.Shapes.AddTextbox(msoTextOrientationHorizontal,  320 ,  780 ,  280 ,  50 )
        .LockAspectRatio = msoTrue
        .LockAspectRatio = msoTrue
        .Line.Visible = msoFalse    'Hide lines
        .TextFrame.TextRange.Text = text1
        .TextFrame.TextRange.Font.Name = "Times New Romans"  'Font
        .TextFrame.TextRange.Font.Size =  8      'Size font
        .TextFrame.AutoSize = True      'Autosize textbox
        '.TextFrame.VerticalAnchor = msoAnchorBottom
    End With
    
End Sub