insert into tb_sys_menu
  (menu_id,
   menu_nm,
   menu_desc,
   menu_pid,
   menu_level,
   link_url,
   sys_cd,
   menu_stat_cd,
   disp_seq,
   etr_id,
   etr_date,
   mdf_id,
   mdf_date,
   is_data_menu,
   open_yn,
   menu_id_old,
   menu_pid_old)
  select '302014',
      '采购未到货',
         t2.menu_desc,
         t2.menu_pid,
         t2.menu_level,
         'purch/po_not_receive.ugo',
         t2.sys_cd,
         t2.menu_stat_cd,
         t2.disp_seq,
         t2.etr_id,
         t2.etr_date,
         t2.mdf_id,
         t2.mdf_date,
         t2.is_data_menu,
         t2.open_yn,
         t2.menu_id_old,
         t2.menu_pid_old
    from tb_sys_menu t2
   where t2.link_url = 'purch/podtl_query_trace.ugo'

利用宏代码快速删除Word文档中的这些空行。按下“Alt+F11”组合键打开Microsoft Visual Basic编辑器窗口，依次执行“插入→模块”，在右侧窗格中插入一个空白模块，手工输入如下代码：

Sub 删除表格空行()
Dim aTable As Table, aRow As Row
Application.ScreenUpdating = False
For Each aTable In ActiveDocument.Tables
    For Each aRow In aTable.Rows
        If Len(aRow.Range) < aRow.Cells.Count * 2 + 3 Then aRow.Delete
    Next
Next
Application.ScreenUpdating = True
End Sub

    单击工具栏上的“保存”按钮进行保存，执行“文件→关闭并返回到Microsoft Word”，返回Word窗口之后，按下“Alt+F8”组合键，打开“宏”对话框，选中列表框中的“删除表格空行”宏，单击右侧的“运行”按钮。

呆呆呆呆呆呆地