MSHFlexGrid内容保存到Word文档的方法

Question

   怎样MSHFlexGrid内容保存到Word文档呢

Answer 1

这个去看一下Word对象的使用..

Answer 2

Option Explicit
'先引用 Word类
'在窗口中增加一个ListView1, 一个Command1
'以下代码在窗体中
  
  Dim i As Long
  Dim j As LongPrivate Sub Command1_Click()
On Error Resume Next
 Dim wApp As New Application
 Dim wDoc As Document
 Dim wNewTable As Table
 Set wDoc = wApp.Documents.Add
' Selection.Range
 Set wNewTable = wDoc.Tables.Add(wDoc.Range, MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) For i = 0 To MSHFlexGrid1.Rows - 1
   For j = 0 To MSHFlexGrid1.Cols - 1
     wNewTable.Cell(i + 1, j + 1).Range.Text = MSHFlexGrid1.TextMatrix(i, j)
   Next
 Next wApp.Visible = True
End Sub
Private Sub Form_Load()  '增加示例数据
  MSHFlexGrid1.Cols = 6
  MSHFlexGrid1.Rows = 8
    For i = 0 To MSHFlexGrid1.Cols - 1
     For j = 0 To MSHFlexGrid1.Rows - 1
        MSHFlexGrid1.TextMatrix(j, i) = "Col" & i & "|Row" & j
     Next
  Next
End Sub