数据库导出表结构设计word文档

1、DBExportDoc V1.0 For Oracle工具导出的word文档中的表格没有边框。

2、可以通过如下的宏，选中所有表格后，进行边框设置。
ALT+F8,打开宏对话框，创建名为SelectAllTables的宏。代码如下：
Sub SelectAllTables()
    Dim tempTable As Table
  
    Application.ScreenUpdating = False
  
    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护，此时不能选中多个表格！"
        Exit Sub
    End If
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    '选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
  
    Application.ScreenUpdating = True
  
End Sub

保存完成后选择加载该宏即可。