2 个单独表格的 MS Access 编码问题

Question

我正在尝试将 2 个表添加到我的代码中以实现自动化 email。但是，结果以表中表的形式出现，没有边框。 我无法用边界将它们分开。

以下是我的结果和语法：

  myitem.Display
  
  Set ins = oOutlook.ActiveInspector
 
  Set document = ins.WordEditor
  Set Word = document.Application
  Set selection = Word.selection
   
    selection.TypeText Text:="Dear Requester,"
    selection.TypeParagraph
    selection.TypeParagraph
    
    With selection
    .Font.Bold = True
    End With
    selection.TypeText Text:="Please confirm that quotation of chosen vendor is suitable before proceeding with PR creation."
    selection.TypeParagraph
    selection.TypeParagraph

'add table here
Set objTable = selection.Tables.Add(Range:=selection.Range, NumRows:=3, NumColumns:=2)
    objTable.Borders.OutsideLineStyle = wdLineStyleSingle
    objTable.Borders.OutsideLineWidth = wdLineWidth150pt
    objTable.Borders.OutsideColor = wdColorBlack

    objTable.Cell(1, 1).Range.Text = "Initial quote :"
    objTable.Cell(1, 2).Range.Text = " "
    objTable.Cell(2, 1).Range.Text = "Discount rate :"
    objTable.Cell(2, 2).Range.Text = ""
    objTable.Cell(3, 1).Range.Text = "Final quote :"
    objTable.Cell(2, 2).Range.Text = ""

    selection.TypeParagraph
    selection.TypeParagraph
    
Set objTable2 = selection.Tables.Add(Range:=selection.Range, NumRows:=2, NumColumns:=2)
    objTable2.Borders.OutsideLineStyle = wdLineStyleSingle
    objTable2.Borders.OutsideLineWidth = wdLineWidth150pt
    objTable2.Borders.OutsideColor = wdColorBlack

    objTable2.Cell(1, 1).Range.Text = "Last spend on year 2020 :"
    objTable2.Cell(1, 2).Range.Text = " "
    objTable2.Cell(2, 1).Range.Text = "Incremental increase percentage :"
    objTable2.Cell(2, 2).Range.Text = ""

我尝试添加 selection.TypeParagraph function 但换行符只是在表格内添加，而不是在表格之后或之前。

Answer 1

对于 Outlook 消息，使用 Word 对象和属性似乎过于复杂。 下面是使用 HTML 代码标签构建两个表的示例。

Dim strT As String, strC As String, strH As String
strT = "width='500' style='text-align:left;border:2px;font-family:calibri;border-collapse:collapse;padding:5px'"
strC = "style='border:3px solid black' width='50%'"
strH = "<table " & strT & ">" & _
"<tr><td " & strC & ">Initial quote : </td><td " & strC & "></td></tr>" & _
"<tr><td " & strC & ">Discount rate : </td><td  " & strC & "></td></tr>" & _
"<tr><td " & strC & ">Final quote : </td><td " & strC & "></td></tr></table><br>" & _
"<table " & strT & ">" & _
"<tr><td " & strC & ">Last spend on year 2020 : </td><td " & strC & "></td></tr>" & _
"<tr><td " & strC & ">Increment increase percentage : </td><td " & strC & "></td></tr>" & _
"<tr><td " & strC & ">Final quote : </td><td " & strC & "></td></tr></table>"

Answer 2

决定将 2 个表合并为 1。留下一个空行。

myitem.Display
  
  Set ins = oOutlook.ActiveInspector
 
  Set document = ins.WordEditor
  Set Word = document.Application
  Set selection = Word.selection
   
    selection.TypeText Text:="Dear Requester,"
    selection.TypeParagraph
    selection.TypeParagraph
    
    With selection
    .Font.Bold = True
    End With
    selection.TypeText Text:="Please confirm that quotation of chosen vendor is suitable before proceeding with PR creation."
    selection.TypeParagraph
    selection.TypeParagraph

'add table here
    With selection.Tables.Add(Range:=selection.Range, NumRows:=6, NumColumns:=2)
        .Range.Font.Bold = True
    
        .Cell(1, 1).Range.Text = "Initial quote"
        .Cell(1, 2).Range.Text = ""
        .Cell(2, 1).Range.Text = "Discount rate"
        .Cell(2, 2).Range.Text = ""
        .Cell(3, 1).Range.Text = "Final quote"
        .Cell(3, 2).Range.Text = ""
        .Cell(4, 1).Range.Text = ""
        .Cell(4, 2).Range.Text = ""
        .Cell(5, 1).Range.Text = "Last spend on year _2020_ :"
        .Cell(5, 2).Range.Text = ""
        .Cell(6, 1).Range.Text = "Incremental increase percentage :"
        .Cell(6, 2).Range.Text = ""
    End With