delphi对word的表格和内容的控制.

Question

我想实现delphi对word文档中的表格可以增加一行或者删除一行.
以及对word中某一行的修改.
或者谁又相关的帮助文档请给我发一份
谢谢!
我的邮件: [email protected]

Answer 1

你可以看看《delphi深度探索》里面很多操作office的内容介绍...

Answer 2

WordTemps As New Word.Application
  WordTemps.Documents.Add App.Path & "\ContractWord\" & Trim(T2.Text) & ".doc", , False
 RealRow = 2  '当前行 开始写数据
        For i = 1 To MSHFlexGrid.Rows - 1
            If Trim(MSHFlexGrid.TextMatrix(i, 1)) <> "" Then
                 WordTemps.ActiveDocument.Tables(1).Cell(RealRow, 1).Range.Text = Trim(MSHFlexGrid.TextMatrix(i, 2))
                 WordTemps.ActiveDocument.Tables(1).Cell(RealRow, 2).Range.Text = Trim(MSHFlexGrid.TextMatrix(i, 3))
                 WordTemps.ActiveDocument.Tables(1).Cell(RealRow, 8).Range.Text = Trim(MSHFlexGrid.TextMatrix(i, 9))
                 If Trim(MSHFlexGrid.TextMatrix(i, 10)) <> "" Then
                    WordTemps.ActiveDocument.Tables(1).Cell(RealRow, 10).Range.Text = Trim(MSHFlexGrid.TextMatrix(i, 10))
                 Else
                    MonthTxt = ""
                    For J = 1 To 12
                        If Trim(MSHFlexGrid.TextMatrix(i, J + 10)) <> "" Then
                            MonthTxt = MonthTxt & Str(J) & "月:" & Trim(MSHFlexGrid.TextMatrix(i, J + 10)) & ";"  'j为数字型的
                        End If
                    Next J
                    If MonthTxt <> "" Then
                        WordTemps.ActiveDocument.Tables(1).Cell(RealRow, 9).Range.Text = Mid(MonthTxt, 1, Len(MonthTxt) - 1)
                    End If
                 End If
                WordTemps.ActiveDocument.Tables(1).Rows(RealRow + 1).Range.Select
                WordTemps.Selection.InsertRows 1
                RealRow = RealRow + 1
            End If
         Next i
        '写总金额
        WordTemps.ActiveDocument.Tables(1).Cell(WordTemps.ActiveDocument.Tables(1).Rows.Count, 1).Range.InsertAfter PSubUpperMoney(Tot(ColMoney))参考一下，这个vb的程序，， 修改一下，直接可用

Answer 3

我的意思是我在打开一个含有表格的word文档的时候
我想通过delphi控制其表格的行数,按我的需要动态的删除或着增加表格的行数.
谢谢!

Answer 4

打开Word的宏，在Word中操作你想要的冬冬 
把word的宏转换为delphi语言