Connection entre SQLDeveloper et VBA Word

Signaler
Messages postés
1
Date d'inscription
vendredi 20 janvier 2012
Statut
Membre
Dernière intervention
20 janvier 2012
-
Bonjour,je suis une vraie debutante dans VBA
je cherche a faire une macro dans word ou je peux faire une connections a sqlDeveloper,et en plus je veux faire un boucle pour chercher tous les colonnes et les mettre dans Word sous forme d'un texte mais j'arrive pas est ce que quelqu'un a une idée?
le code queje l'ai fait :
Sub DocPubliposte()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
ActiveDocument.MailMerge.OpenDataSource _
Name:="C:\Documents and Settings\rita.younes\Mes documents\Mes sources de données\QD.odc"



With Selection.Font
.Bold = True
.Name = "Arial"
.Size = 20
.ColorIndex = 15
.Underline = xlUnderlineStyleSingle
End With
Selection.Collapse Direction:=wdCollapseStart
Set myfield = ActiveDocument.Fields.Add(Range:=Selection.Range, _
Type:=wdFieldMergeField, Text:="""REQ_concept""")


Selection.TypeParagraph
With Selection.Font
.Bold = True
.Name = "Arial"
.Size = 16
.ColorIndex = 15
.Underline = False
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""REQ_ID"""
Selection.TypeText Text:=":"
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""REQ_desc"""
End With
Selection.TypeParagraph
With Selection.Font
.Name = "Arial"
.Size = 12
.ColorIndex = 15
Selection.TypeText Text:="Requete:"
Selection.TypeParagraph
End With
With Selection.Font
.Bold = False
.Name = "Arial"
.Size = 10
.ColorIndex = 1
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField, Text:="""REQ_SQL"""
End With
Selection.TypeParagraph



End Sub