制表符转空格

1478525

录制的宏生成的制表符转表格，也记录了多少列，不能根据制表符个数自动变换，请各位大佬看一下，这种要怎么改，附上测试文档


Sub 制表符()
'
' 制表符 宏
'
'
    selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=4, _
        NumRows:=15, AutoFitBehavior:=wdAutoFitFixed
    With selection.Tables(1)
        .style = "网格型"
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
    End With
    selection.EscapeKey
End Sub

batmanbbs

1478525

batmanbbs 发表于 2024-6-28 13:36

是这样，但是录制的那个可不可以自动根据制表符个数自动转表格，每次都要在代码里改列数吗

batmanbbs

1478525 发表于 2024-6-28 15:10
是这样，但是录制的那个可不可以自动根据制表符个数自动转表格，每次都要在代码里改列数吗

可以判断选中的第一个段落的制表符个数来确定列数

1478525

batmanbbs 发表于 2024-6-28 15:44
可以判断选中的第一个段落的制表符个数来确定列数

谢谢

wdpfox

把圈红的删掉不行吗？

1478525

wdpfox 发表于 2024-6-29 21:32
把圈红的删掉不行吗？

谢谢，真的可以！！！！！