Question

textPositionOFf我在VB6中构建一个报告，用Microsoft Word打印。我看到了一些问题，否则不会发生，因为我正在使用现有的报告。我基本上处理了创建的报告，而且我正在创建自己的报告。我有一个快速函数创建一个标题，我传递参数，主要是标题的行号和文本。

对于应用边框的三行代码，我收到的错误是＆＃34; 5941 - 所请求的集合成员不存在＆＃34;我正在查看另一份报告，它看起来和我一样，但我得到了这个错误。有谁知道可能是什么问题？

Private Sub TableStyle_001_HeaderLine(row As Integer, Col1Txt As String)
  On Error GoTo error_handler:
  w_Doc.Tables.Add w_Rng, 1, 1

  w_Wrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  With w_Wrd.Selection.Tables(w_DocTblIdx).Rows(row)
    With .Shading
        .Texture = wdTextureNone
        .ForegroundPatternColor = wdColorAutomatic
        .BackgroundPatternColor = wdColorGray15
    End With
    With .Borders(wdBorderLeft)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth050pt
        .Color = wdColorAutomatic
    End With
    With .Borders(wdBorderRight)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth050pt
        .Color = wdColorAutomatic
    End With
    With .Borders(wdBorderTop)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth050pt
        .Color = wdColorAutomatic
    End With
    With .Borders(wdBorderBottom)
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth050pt
        .Color = wdColorAutomatic
    End With

   .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone 'error here
   .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone 'here
   .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone   'and here
   .Borders.Shadow = False

  'WRITE THE DATA
    .Cells(1).Select
    w_Wrd.Selection.Font.Bold = True
    w_Wrd.Selection.TypeText Col1Txt


  End With

Answer 1

如果表格中没有对话框行，或者代码的目标是不支持对角线的早期版本的Word，则这些代码行是不必要的。如果任何可能向表格单元格添加对角线的人都没有编辑此报告，那么请注释这些行，并注明它们与报告代码的不同“化身”，但对于模板而言，此代码不是必需的。继续努力。

使用VB6的Microsoft Word报告问题

1 个答案: