[已解决]请问用VBA代码创建的word表格为何无法显示？？

zwe45

头次学习使用VBA 操作word，实在是非常不熟悉，出了甚多莫名其妙的问题。

以下代码是要实现生成一个word文档，写入标题并插入一个表格，然后在表格中写入数据
现在的问题是用代码插入的表格不知为何就是不显示
代码如下：
代码如下：
Private Sub CommandButton4_Click()

Dim wd As Object, doc As Object
Set wd = CreateObject("word.application")
   
Filename = Application.GetSaveAsFilename(FileFilter:="word 97-2003文档(*.doc),*.doc", Title:="请输入文件名")

If Dir(Filename) <> "" Then
             If MsgBox("你所添加的文件已存在,是否覆盖？", 64 + vbYesNo, "提醒：") = vbNo Then Exit Sub
          End If
wd.Documents.Add

wd.Selection.Font.Name = "黑体"
wd.Selection.Font.Size = "22"
wd.Selection.TypeText Text:="企事业人员信息表"
wd.Selection.ParagraphFormat.Alignment = 1
wd.Selection.TypeParagraph
wd.Selection.ParagraphFormat.Alignment = 3
wd.ActiveDocument.Tables.Add Range:=wd.Selection.Range, NumRows:=6, NumColumns:=6 '插入6×6表格

wd.ActiveDocument.SaveAs Filename '在用户选定的路径下存储word文档
wd.Documents.Close '关掉新创建的word文档
End Sub

最佳答案

月排行榜 / 总排行榜

上清宫主

2017-8-16 21:43

加上内外边框
wd.ActiveDocument.Tables(1).Borders.InsideLineStyle = 1
wd.ActiveDocument.Tables(1).Borders.OutsideLineStyle = 1

跳转到最佳答案楼层

zwe45

不知道是什么鬼？
是否还要用代码设置边框线？

zwe45

有没有例子可以参考？

today0427

你在word里面录制一个宏 看看代码是怎么写的 根据那个把你这个修改下就行了 我看表格已经建好了 有可能是添加框线的代码没有写，录制一个宏对照一下就知道了 实在不知道每句的意思就单步执行一下看看效果

上清宫主

加上内外边框
wd.ActiveDocument.Tables(1).Borders.InsideLineStyle = 1
wd.ActiveDocument.Tables(1).Borders.OutsideLineStyle = 1

zwe45

上清宫主 发表于 2017-8-16 21:43
加上内外边框
wd.ActiveDocument.Tables(1).Borders.InsideLineStyle = 1
wd.ActiveDocument.Tables(1).B ...

太感谢了!！完全解决！

zwe45

上清宫主 发表于 2017-8-16 21:43
加上内外边框
wd.ActiveDocument.Tables(1).Borders.InsideLineStyle = 1
wd.ActiveDocument.Tables(1).B ...

另外再问一句，您知道哪有这方面的详细资料吗？

zwe45

上清宫主 发表于 2017-8-16 21:43
加上内外边框
wd.ActiveDocument.Tables(1).Borders.InsideLineStyle = 1
wd.ActiveDocument.Tables(1).B ...

我百度+google搜索了两天都没找到有用的！

上清宫主

加这句也可以：wd.ActiveDocument.Tables(1).Style = "网格型"
这些东西在WORD中录宏来看，结合MS的网站，基本上都可以找到答案

zwe45

上清宫主 发表于 2017-8-17 09:20
加这句也可以：wd.ActiveDocument.Tables(1).Style = "网格型"
这些东西在WORD中录宏来看，结合MS的网站， ...

谢谢您回复！我这就去试试！！！