EXPORTER MFLEXGRID DANS DOCUMENT WORD

Commentaire de Renfield le 13/05/2009 11:47:51 administrateur CS

un peu de nettoyage plus tard:


Private Sub AppendGridToWordDoc(ByRef voGrid As MsFlexgrid, Optional ByRef voDoc As Word.Document)
Dim oWord As Word.Application
Dim nRow As Integer
Dim nCol As Integer
Dim sBuffer As String
    If Not Nothing Is voGrid Then
        For nRow = 0 To voGrid.Rows - 1
            For nCol = 0 To voGrid.Cols - 1
                sBuffer = sTemp & voGrid.TextMatrix(row, col)
                If nCol = voGrid.Cols - 1 Then
                    sBuffer = sBuffer & vbCrLf
                Else
                    sBuffer = sBuffer & vbTab
                End If
            Next nCol
        Next nRow
        
        If Nothing Is voDoc Then
            On Error Resume Next
            Set oWord = GetObject(, "Word.Application")
            If Nothing Is oWord Then
                Set oWord = CreateObject("Word.Application")
                oWord.Visible = True
            End If
            
            Set voDoc = oWord.Documents.Add
        End If

        With voDoc.Bookmarks("\EndOfDoc").Range
            .Text = sBuffer
            .ConvertToTable vbTab, Format:=wdTableFormatColorful2 '9
        End With
    End If
End Sub


ici, on peux fournir une grille en parametre, ainsi qu'un document word auquel on souhaite ajouter notre tableau (l'ajout se fait systématiquement à la fin du document)

on utilise également une petite astuce (GetObject) permettant de se raccrocher à une instance Word existante (plus rapide: pas besoin de CreateObject)

Commentaire de goc le 20/10/2010 13:45:02

Renfield
peu etre un peu rapide ta modif du prog

voila une version qui "fonctionne" :-))

Public Sub AppendGridToWordDoc(ByRef voGrid As MSFlexGrid, Optional ByRef voDoc As Word.Document)
Dim oWord As Word.Application
Dim nRow As Integer
Dim nCol As Integer
Dim sBuffer As String
Dim stemp As String

    If Not Nothing Is voGrid Then
        For nRow = 0 To voGrid.Rows - 1
            For nCol = 0 To voGrid.Cols - 1
                stemp = voGrid.TextMatrix(nRow, nCol)
                If nCol = voGrid.Cols - 1 Then
                    stemp = stemp & vbCrLf
                Else
                    stemp = stemp & vbTab
                End If
                sBuffer = sBuffer + stemp
            Next nCol
        Next nRow
        
        If Nothing Is voDoc Then
            On Error Resume Next
            Set oWord = GetObject(, "Word.Application")
            If Nothing Is oWord Then
                Set oWord = CreateObject("Word.Application")
                oWord.Visible = True
            End If
            
            Set voDoc = oWord.Documents.Add
        End If

        With voDoc.Bookmarks("\EndOfDoc").Range
            .text = sBuffer
            .ConvertToTable vbTab, Format:=wdTableFormatColorful2 '9
        End With
    End If
End Sub

Commentaire de 320C le 09/01/2012 23:51:05

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...