[求助]谢谢帮我修改表格转换的一段代码

ssq1109

WloMPaCp.rar (4.69 KB, 下载次数: 11)

2007-3-2 10:55 上传

点击文件名下载附件
[求助]谢谢帮我修改表格转换的一段代码

下面是VBA中的一段代码，目的是将选中的文本转换为表格（分隔符为半角逗号），执行是正确的，但问题是当没有红色的那一句时，转换出来表格中的表格线是无色的，即打印出来没有表格线（见附件中的Test1.doc）。于是我加了一句（即红色部分），表格线可变成黑色且打印出来也正确，但新问题又出来了，即本来原来表格中的英文字母是斜体的，但却变成了正体（见附件中的Test2.doc）。

怎样修改下面的语句块，使Test1.doc中的线既变为黑色的，又能保持表格的字符斜体的属性呢？谢谢指点。

With Selection
   .ConvertToTable Separator:=wdSeparateByCommas  '转换成表格
       '这里套用网格型(TableFormatGrid1)是为避免转换后边线为空线
   .Tables(1).AutoFormat Format:=wdTableFormatGrid1, ApplyFirstColumn:=False
   .Columns.AutoFit   '调整所有列宽使之适于文本宽度
       '使表格内数据上下左右居中
    .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    .Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    .Range.Rows.Alignment = wdAlignRowCenter  '表格居中
 End With

konggs

用这两句：

       .Tables(1).Borders(wdBorderVertical).LineStyle = wdLineStyleSingle
       .Tables(1).Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle

或者定义一个表格样式或改表格样式。

ssq1109

谢谢孔版主！

我想应该还修改一下，因仅上面2句边框线还是空线（也许因各人机器上的样式不同，下面的可能不需要添加）。所以我又加了4句而完全达到要求。

       .Tables(1).Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
       .Tables(1).Borders(wdBorderRight).LineStyle = wdLineStyleSingle
       .Tables(1).Borders(wdBorderTop).LineStyle = wdLineStyleSingle
       .Tables(1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle

当然果想将边框线变粗还可添加类似下面的语句：

       .Tables(1).Borders(wdBorderLeft).LineWidth = wdLineWidth120pt
       ……