word VBA - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想用word VBA 插入一个指定列数的表格，然后一行一行输入foxtable中的数据，并且可以设置各个列的宽度，单元格的对齐方式，字体，行高自动，代码如何写？特殊原因不用excel

[此贴子已经被作者于2023/3/6 21:54:29编辑过]

此主题相关图片如下：捕获.jpg

格式没有试出来，蓝版可否帮忙改下。

格式的几点要求：页边距可以设置，表格边框，标题行加粗，单元格内容垂直水平均居中，最后一列部们列合并单元格

下载信息 [文件大小：下载次数： ]
点击浏览该文件:wordvba.rar

蓝版，我在标题后面插入一个表格，但是好像没有效果，可否麻烦帮忙看下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:wordvba.rar

测试没有问题呀，只是没有设置边框，不显示边框而已

需要在“这是标题”四个后面另起一行，然后再插入表格

在添加表格前输入文字就行了

app.Selection.TypeText(Text:="这是标题" & vbCrlf)

如果要在第一个表格后再插入一段文字，然后继续插入第二个表格呢

Dim app As New MSWord.Application
Try
    Dim doc = app.Documents.add
    app.Selection.TypeText(Text:="这是标题" & vbCrlf)
    doc.Tables.Add(Range:=app.Selection.Range, NumRows:=2, NumColumns:= 3)
    app.Selection.Tables(1).Style = "网格型"
    app.Selection.TypeText(Text:="这是第二个表格" & vbCrlf)
    doc.Tables.Add(Range:=app.Selection.Range, NumRows:=2, NumColumns:= 3)
    app.Visible = True
Catch ex As exception
    msgbox(ex.message)
    app.Quit
End Try

这样写好像不行

Dim app As New MSWord.Application

Try

Dim doc = app.Documents.add

app.Selection.TypeText(Text:="这是标题" & vbCrlf)

doc.Tables.Add(Range:=app.Selection.Range, NumRows:=2, NumColumns:= 3)

app.Selection.Tables(1).Style = "网格型"

Doc.Paragraphs.Last.Range.Text = "这是第二个表格"

Doc.Paragraphs.Last.Range.select

app.Selection.MoveRight()

app.Selection.TypeText(vbCrlf)

doc.Tables.Add(Range:=app.Selection.Range, NumRows:=2, NumColumns:= 3)

app.Visible = True

Catch ex As exception

msgbox(ex.message)

app.Quit

End Try

主题：word VBA