[求助]为何下面的VBA代码所得表格线打印出来是空线?

ssq1109 · 发表于 2006-9-28 11:22

我编的一段代码中有下面的一段是将选中的文本变成表格，奇怪的是生成的表格线在屏幕有但看起来颜色很淡，我今天偶然将它打印，发现表格线并不能打印出来（即是空线），这是何原因呢？怎样修改代码将表格线变成普通的细线（即相当于在WORD中生成的哪种表格线）？

           With Selection
               .ConvertToTable Separator:=wdSeparateByCommas '转换成表格
               .Columns.AutoFit   '调整所有列宽使之适于文本宽度
            '使表格内数据上下左右居中
               .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
               .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
               .Range.Rows.Alignment = wdAlignRowCenter '表格居中
           End With

g2nr0v2R.rar (2.42 KB, 下载次数: 13)

konggs · 发表于 2006-9-28 11:30

SSQ119兄。要定义样式才能线的。

君不见录的宏是网格型吗？

With Selection
               .ConvertToTable Separator:=wdSeparateByCommas '转换成表格
               .Columns.AutoFit   '调整所有列宽使之适于文本宽度
            '使表格内数据上下左右居中
               .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
               .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
               .Range.Rows.Alignment = wdAlignRowCenter '表格居中
               .Tables(1).Style = "网格型"
           End With

ssq1109 · 发表于 2006-9-28 14:27

谢谢孔兄！

为使后面的代码不受影响，我将您加的一句提到前面了。

With Selection
               .ConvertToTable Separator:=wdSeparateByCommas '转换成表格
               .Tables(1).Style = "网格型"
               .Columns.AutoFit   '调整所有列宽使之适于文本宽度
            '使表格内数据上下左右居中
               .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
               .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
               .Range.Rows.Alignment = wdAlignRowCenter '表格居中
           End With

		自动登录	找回密码
密码			免费注册