克隆问题，用VBA编，谢谢！！

smuynidw

手工输入第一页满后，自动转到第二页，第二页与第一页表格相同，，。。。。

守柔

原帖由 smuynidw 于 2010-7-9 16:33 发表
手工输入第一页满后，自动转到第二页，第二页与第一页表格相同，，。。。。

命令+自动图文集。

Sub Insert_Table()
    With Selection
        If Not .Information(wdWithInTable) Then
            If .Information(wdFirstCharacterLineNumber) = 1 Then
                If .Information(wdActiveEndPageNumber) = .Information(wdNumberOfPagesInDocument) Then
                    ActiveDocument.AttachedTemplate.AutoTextEntries("¿Ë¡±í¸ñ").Insert Where:=Selection.Range, RichText:=True
                End If
            End If
        End If
    End With
End Sub

附件：
操作方法：光标在新页的第一行时按下“克隆表格”命令（位于常用工具栏最后一个位置）。
注意：可以使用表格将页面内的文档整合起来，以便使得结构更紧凑。

tangqingfu

谢谢守版的分享，学习ing ……

sqhsqhli

我越来越明白为什么美国人要给版主发个牌牌，什么毒招都想得出来，佩服佩服

smuynidw

收下了。非常感谢守柔版主。。。。即将中秋之即，祝贺你家人安康！工作顺意！天天开心！