怎样把表格弄成如图中的表格一样？

shenjianrong163

相见是缘8 发表于 2023-8-16 17:49
shenjianrong163 老师好！
代码可正常运行，凭我的水平测试不出哪里出问题，另外，输出s的值怎样测试？ ...

Sub test()
  Dim t As Word.Table, Cell As Word.Cell, s As String
  For Each t In ActiveDocument.Tables
    For Each Cell In t.Range.Cells
        s = Replace(Replace(Cell.Range.Text, Chr(7), ""), Chr(13), "")
       Debug.Print s
        If Right(s, 2) = "气主" Or s = "客" Then
            With Cell.Borders(wdBorderRight)
                .LineStyle = wdLineStyleNone  '取消表格右边框
            End With
        End If
    Next
  Next t
End Sub

相见是缘8

shenjianrong163 发表于 2023-8-16 19:52
Sub test()
  Dim t As Word.Table, Cell As Word.Cell, s As String
  For Each t In ActiveDocument. ...

shenjianrong163  老师好！
还是不明白，我按 F8 键，一步步测试，Debug.Print s  没有看到有什么。

shenjianrong163

相见是缘8 发表于 2023-8-17 05:44
shenjianrong163  老师好！
还是不明白，我按 F8 键，一步步测试，Debug.Print s  没有看到有什么。

单击VBE菜单栏中的“视图”->“立即窗口”，可能显示“立即窗口”

shenjianrong163

代码应该起作用的，你试下打印预览，看看有效果没有？

单击Word2003菜单栏中的“表格”->“隐藏虚框”，未设置的边框将不显示

相见是缘8

shenjianrong163 发表于 2023-8-17 07:42
单击VBE菜单栏中的“视图”->“立即窗口”，可能显示“立即窗口”

shenjianrong163 老师好！
按你所教，单击VBE 菜单栏上的“视图”→“立即窗口”，显示了“立即窗口”，在“立即窗口”内，显示的内容和你的一样。

相见是缘8

shenjianrong163 发表于 2023-8-17 08:20
代码应该起作用的，你试下打印预览，看看有效果没有？

单击Word2003菜单栏中的“表格”->“隐藏虚框”， ...

shenjianrong163 老师好！
代码是起作用了，按你所教，运行代码后，单击Word2003菜单栏中的“表格”→“隐藏虚框”，边框就没有了。
衷心感谢老师耐心指教！谢谢！

shenjianrong163

相见是缘8 发表于 2023-8-17 17:18
shenjianrong163 老师好！
按你所教，单击VBE 菜单栏上的“视图”→“立即窗口”，显示了“立即窗口”， ...

你运行代码后，打印预览看下还有右边框没有？

相见是缘8

shenjianrong163 发表于 2023-8-17 17:39
你运行代码后，打印预览看下还有右边框没有？

shenjianrong163 老师好！
运行代码后，点文档左上方的“打印预览”，右边框没有了。
另外发现，在运行该代码前，先点击Word2003菜单栏中的“表格”→“隐藏虚框”，再运行代码，右边框也就没有了。
衷心感谢老师你！谢谢！

shenjianrong163

相见是缘8 发表于 2023-8-18 06:09
shenjianrong163 老师好！
运行代码后，点文档左上方的“打印预览”，右边框没有了。
另外发现，在运行 ...

加一句代码直接隐藏表格虚框

1. Sub test()
   
2.   Dim t As Word.Table, Cell As Word.Cell, s As String
   
3.   ActiveWindow.View.TableGridlines = False '隐藏表格虚框
   
4.   For Each t In ActiveDocument.Tables
   
5.     For Each Cell In t.Range.Cells
   
6.         s = Replace(Replace(Cell.Range.Text, Chr(7), ""), Chr(13), "")
   
7.         If Right(s, 2) = "气主" Or s = "客" Then
   
8.             With Cell
   
9.                 With .Borders(wdBorderRight)
   
10.                     .LineStyle = wdLineStyleNone  '取消表格右边框
    
11.                 End With
    
12.                 .Range.ParagraphFormat.Alignment = wdAlignParagraphRight  '当前单元格右对齐
    
13.                 .Next.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft  '右侧单元格左对齐
    
14.             End With
    
15.         End If
    
16.     Next
    
17.   Next t
    
18. End Sub

复制代码

相见是缘8

shenjianrong163 发表于 2023-8-18 20:38
加一句代码直接隐藏表格虚框

shenjianrong163 老师好！
厉害！这下就更完美了！
真心感谢！