Exporter mflexgrid dans document word

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 533 fois - Téléchargée 26 fois

Contenu du snippet

il faut referance le word application dans votre projet

Source / Exemple :


Private Sub Image2_Click()
'Importer.DataGrid1.Print
'DataGrid1.t
'Early object binding
Dim oWord As Word.Application

Dim oDoc As Word.Document
Dim oRange As Word.Range
'Uncomment below for late object binding
'Dim oWord As Object
'Dim oDoc As Object
'Dim oRange As Object
Dim row As Integer
Dim col As Integer
Dim i As Integer
Dim n As Integer
Dim sTemp As String
Dim arr() As String
  
ReDim arr(MSFlexGrid1.Rows - 1, MSFlexGrid1.Cols - 1)
  
'Créer une instance de word
Set oWord = CreateObject("Word.Application")

'rendre le document word visible
oWord.Visible = True

'Ouivrir un nouveau document
Set oDoc = oWord.Documents.Add

For row = 0 To MSFlexGrid1.Rows - 1
    n = 0
    For col = 0 To MSFlexGrid1.Cols - 1
        arr(i, n) = MSFlexGrid1.TextMatrix(row, col)
        n = n + 1
    Next
    i = i + 1
Next

'ENregistrer sur un tableau
For i = LBound(arr, 1) To UBound(arr, 1)
    For n = LBound(arr, 2) To UBound(arr, 2)
        sTemp = sTemp & arr(i, n)
        If n = UBound(arr, 2) Then
           sTemp = sTemp & vbCrLf
        Else
           sTemp = sTemp & vbTab
        End If
    Next
Next

'Avoir l'emplacelent sur le document
Set oRange = oDoc.Bookmarks("\EndOfDoc").Range

oRange.Text = sTemp

'Convertire le format et le texte
oRange.ConvertToTable vbTab, Format:=wdTableFormatColorful2

Set oRange = Nothing

End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014

Merci RENFIELD
Salut à Tous.
Merci pour la solution (je n'ai testé que celle de garoui pour le moment).
J'ai un petit problème et j'espère avoir votre aide : en fait j'ai les cellules de la première ligne fusionnées par triplets dans mon MSFlexGrid (C'est à dire que chaque trois cellules forment une seule). Qu'est ce que je dois ajouter au code pour avoir le même résultat en Word ?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
63
menu Projet > Reference > Microsoft Word
Messages postés
99
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014

Salut à tous!
SVP, aidez moi, ... j'utilise VB 6.0 édition professionnel, mais pour essayer de declarer le variable word???; cela ne marche pas

Càd exemple:
dim oWord as Word.application

Ceci ne mais donne pas l'oportunite de regenere Word dans la liste de proprété qui sorte et ci je vais faire la mailin à copier, le programme affiche une erreur sur cette déclaration.
Merci à tous pour votre contrbibution...
Messages postés
5
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
20 juillet 2012

Excellent pour le code, cependant j'aimerais ajouter 2 tableaux dans le fichhier word comment faire?
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.