求助word大神，怎么能快速调整word中的表格列宽 效果满意再追赠300BC

fuaijing1314

要求：有两个一样的word中的表格 想要把原始表格快速调整到之后的效果（一点儿也不能差），
           就是要快速调整列宽，我之前都是手动 一列一列的拉宽。
           有没有好的方法  （不用右键的自动调整，这点我知道但不适用）
           只能用OFFICE的word来实现
          如果效果满意的话，会追赠采纳意见的朋友300BC 作为感谢。

，
调整到之后的效果



这里有样表，大神可看一下
https://wwwb.lanzn.com/ihb4d2az412f
密码:g1w0

lisongmei

fuaijing1314 发表于 2024-9-28 15:49
用修改后的代码是可以运行成功的，向成功迈进了一步
ThisDocument.Tables(1)这样的语法是根据表格在文档 ...

当然可以哈，

[Visual Basic] 纯文本查看 复制代码

Sub demo()
Application.ScreenUpdating = False
Dim tb As Table
Dim y As Integer
Dim arr
'Set tb = ThisDocument.Tables(1)
'换成下面这几句
If Selection.Information(wdWithInTable) Then
    Set tb = Selection.Tables(1)
Else
    MsgBox "所选位置没有表格，请重试"
    End
End If

'修改的地方其实是因为表格的列数变了，所以需要稍作调整
'tb.Cell(1, 2).Split , 5
'tb.Cell(1, 1).Split , 6
'改为下面这两句
tb.Cell(1, 3).Split , 4
tb.Cell(1, 2).Split , 7
 
arr = Array(29.2, 70.9, 70.85, 32.9, 42.55, 59.25, 61.2, 63.8, 45.05, 63.8, 28.35, 30)
For y = 1 To tb.Columns.Count
    ThisDocument.Range(tb.Cell(1, y).Range.Start, tb.Cell(tb.Rows.Count, y).Range.End).Select
    Selection.Columns.Width = arr(y - 1)
Next
'ThisDocument.Range(tb.Cell(1, 7).Range.Start, tb.Cell(1, 11).Range.End).Cells.Merge
'ThisDocument.Range(tb.Cell(1, 1).Range.Start, tb.Cell(1, 6).Range.End).Cells.Merge
'改为下面这两句
ThisDocument.Range(tb.Cell(1, 9).Range.Start, tb.Cell(1, 12).Range.End).Cells.Merge
ThisDocument.Range(tb.Cell(1, 2).Range.Start, tb.Cell(1, 8).Range.End).Cells.Merge
Application.ScreenUpdating = True
End Sub

cayuer

有一种方法 可以很快实现
选中整个表格 左上角出现十字光标的时候 把鼠标放到右下角。
这时候见证奇迹的时刻来了，拖，拖到你满意为止

cayuer

https://wwsn.lanzouw.com/iKLh72az5eif
密码:b7tj


还有一种就是一个一个设置行高和列宽了，没有这么快

cku

1、鼠标点击表格，找到布局，自己输入高宽数字；

2、先设置好一个表格，然后复制粘贴一个；

cayuer

这样个别不满意的行高和列宽， 可以通过小调整即可。

cayuer

我这个屏幕截图 显示不了表格右下角的鼠标双向拉伸图标，楼主能理解就行

lovesdeeply

cayuer 发表于 2024-9-27 14:42
我这个屏幕截图 显示不了表格右下角的鼠标双向拉伸图标，楼主能理解就行

你说的是这个吧。我试了确实可以。看着效果还行

fuaijing1314

cayuer 发表于 2024-9-27 14:36
有一种方法 可以很快实现
选中整个表格 左上角出现十字光标的时候 把鼠标放到右下角。
这时候见证奇迹的 ...

这种的是达不到各个列宽的要求值

cayuer

fuaijing1314 发表于 2024-9-27 14:55
这种的是达不到各个列宽的要求值

那就没法了 或者说只有做个模板来实现楼主的功能了。
看看吾友大神有没有高手 可以解决