电话号码簿中间插入人员，如何在插入行往下顺移一行

菊石泽露 · 发表于 2007-3-23 10:42

菊石泽露 · 发表于 2007-3-23 10:43

LBQGyNi1.rar (15.75 KB, 下载次数: 25)

c81 · 发表于 2007-3-23 10:57

实在不好意思，俺中文不好，楼主能不能再解释一下，或做个示范？

思索 · 发表于 2007-3-23 11:40

楼主大概是这样的想法：
　　电话号码表格每页有固定的行数，现在要在某个表的某行插入一行内容，
自然要把这张表的最后一行移到下一张的第一行，如果其后还有多个表，每个表的内容都得顺延。

　　初步想了一下：
　　1、取消所有的单元格合并
　　2、提取所有行的内容到数组
　　3、添加要插入行的内容到数组
　　4、重新填充内容到表格
最后还得看看哪些单元格该合并

菊石泽露 · 发表于 2007-3-23 11:45

思索说的对！

如果在第一张表里加一人名信息，势必下面数百张都要动。WORD中多个表格，每页的行也是固定的。如果手工来动的话，工作量就大了。

chylhr · 发表于 2007-3-23 12:07

楼主为什么不把数据放在同一个表格里呢?

c81 · 发表于 2007-3-23 13:55

原来是这个意思，明白了。

表格可先合起来，很多处的

姓名

岗位或职务

办公室电话

住宅电话

移动电话

可用VBA或查找替换法删除。送到Excel中排序法删除再倒回来也是瞬间的事

然后添加你要的行，最后再设置一下（不一定得分开），可利用重复表头功能。

如果楼主还要页码，建议使用“书籍折页”打印小册子的功能。

[此贴子已经被作者于2007-3-23 14:15:47编辑过]

c81 · 发表于 2007-3-23 14:13

关于删除表格外的所有东西并将所有分表合并起来可以这样做

查找段落标记，替换为空，

表格外的文本，选择格式相似文本，删除；

查找段落标记突出显示按del键删除之（注意替换为空不行）

这样表就全合并好了。

[此贴子已经被作者于2007-3-23 14:19:15编辑过]

菊石泽露 · 发表于 2007-3-23 16:25

c81兄的方法对我很有价值！谢谢兄耐心讲解!

原来每张表上都有一行单位名称，所以表头数十个单位各有不同，我给删了。

先合并在excel中处理我也想到过。如果处理完再进行分割成单独表格，上加一行单位名称，也挺麻烦！

sylun · 发表于 2007-3-23 17:02

看看如下VBA调整方法是否可行（假设表格大小是统一的）

Sub move_row()
    Dim i As Integer
    Application.ScreenUpdating = False
    With ThisDocument.Range
        If .Tables.Count > 1 Then
            For i = 1 To .Tables.Count - 1
                .Tables(i).Rows.Last.Range.Cut
                .Tables(i + 1).Rows(2).Range.Paste
            Next
        End If
    End With
    Application.ScreenUpdating = True
End Sub

[此贴子已经被作者于2007-3-23 17:04:23编辑过]

		自动登录	找回密码
密码			免费注册