设置关键词所在单元格的列的列宽

1478525

Sub 设置关键词所在列列宽()

    ' 定义要查找的关键词
    Dim 关键词 As String
    关键词 = "评审标准" ' 替换为您实际要查找的关键词

    ' 遍历文档中的所有表格
    Dim table As table
    For Each table In ActiveDocument.Tables
        ' 在当前表格中查找关键词
        With table.Range.Find
            .Text = 评审标准
            If .Execute Then
                ' 找到关键词，设置该表格的
                With table.Columns
             .SetWidth ColumnWidth.CentimetersToPoints(2.2)
                End With
'
            End If
        End With
    Next table
End Sub
卡在这块了，  .SetWidth ColumnWidth.CentimetersToPoints(2.2)不知道该如何表示，谢谢各位指教，暂时不考虑合并单元格，请问该怎么写

1478525

1478525

Sub 设置包含关键词表格的第4三列列宽()
    ' 定义要查找的关键词
    Dim 关键词 As String
    关键词 = "信息采集点" ' 替换为您实际要查找的关键词
   
    ' 遍历文档中的所有表格
    Dim table As table
    For Each table In ActiveDocument.Tables
        ' 在当前表格中查找关键词
        With table.Range.Find
            .Text = 信息采集点
            If .Execute Then
                ' 找到关键词，设置该表格的第三列列宽为2.2厘米
                table.Columns(3).SetWidth CentimetersToPoints(2.2), wdAdjustNone
            End If
        End With
    Next table
End Sub最新的是这个

zhanglei1371

用正宗的chatgpt吧，不要用国产的。买个梯子免费用chat3.5

1478525

zhanglei1371 发表于 2024-7-23 19:32
用正宗的chatgpt吧，不要用国产的。买个梯子免费用chat3.5

好，谢谢 ，我试试

lisongmei

..........

1. Sub demo()
   
2. Dim cl As Cell
   
3. Dim sw As String
   
4. Dim clindex As Integer
   
5. sw = "art" '你要搜索的值
   
6. '这里只写了一个表格，如果是多少，需要循环一下表
   
7. For Each cl In ThisDocument.Tables(1).Range.Cells
   
8.     If InStr(cl.Range.Text, sw) > 0 Then
   
9.         clindex = cl.ColumnIndex
   
10.         Exit For
    
11.     End If
    
12. Next
    
13. If clindex > 0 Then
    
14.     ThisDocument.Tables(1).Columns(clindex).Width = 200
    
15. End If
    
16. End Sub

复制代码

1478525

lisongmei 发表于 2024-7-26 13:54
..........

这种的提示这个 是没办法么

lisongmei

1478525 发表于 2024-7-29 15:33
这种的提示这个 是没办法么

合并单元格，没办法。至少我暂时没办法，问下其他人。。代码针对 的普通 无合并单元格

1478525

lisongmei 发表于 2024-7-29 22:18
合并单元格，没办法。至少我暂时没办法，问下其他人。。代码针对 的普通 无合并单元格

感谢感谢