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

相见是缘8

各位老师好！

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

请看附件，谢谢！

shenjianrong163

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

复制代码

相见是缘8

shenjianrong163 发表于 2023-8-16 09:11

shenjianrong163  老师好！
感谢！
不知怎么回事，代码在我这运行后，表格没什么变化。

shenjianrong163

相见是缘8 发表于 2023-8-16 09:29
shenjianrong163  老师好！
感谢！
不知怎么回事，代码在我这运行后，表格没什么变化。

你的是WPS?

相见是缘8

shenjianrong163 发表于 2023-8-16 09:11

我用Office是2003版本。

相见是缘8

shenjianrong163 发表于 2023-8-16 09:40
你的是WPS?

我用的是Word文档

shenjianrong163

相见是缘8 发表于 2023-8-16 09:42
我用Office是2003版本。

我这里没有Office2003，你可以测试下哪里出问题，可以先测试输出s的值

batmanbbs

非要VBA吗，直接操作就可以了

相见是缘8

shenjianrong163 发表于 2023-8-16 10:08
我这里没有Office2003，你可以测试下哪里出问题，可以先测试输出s的值

shenjianrong163 老师好！
代码可正常运行，凭我的水平测试不出哪里出问题，另外，输出s的值怎样测试？请指教！谢谢！

相见是缘8

batmanbbs 发表于 2023-8-16 14:21
非要VBA吗，直接操作就可以了

batmanbbs 老师好！

能达要求，都可，2003版本有你上面演示的功能吗？你演示的我没看明白，能不能用文字描述一下具体步骤，如：×××→×××→×××→×××→……