我现在要对word进行操作,首先要判别段落有几段,表格是否存在、有几行几列,该用什么语句,请说明仔细点

解决方案 »

  1.   

    Set appWord = CreateObject("Word.Application")
            appWord.Visible = False
       Set docWord = appWord.Documents.Open(App.Path & "\"qw1".dot")
       Set tblWord = docWord.Tables.Item(1)
    tblWord.Cell(1, 2).Range.Text = text1.text
     这是我原来操作word用的,qw1是一word模板,若此模板中没有一行二列的地方提示无此操作对象,  给你引一下。剩下我也不会了。 不知有没有帮助
      

  2.   

    .cell(x,y)
    .rows
    .cols
    on error resume next