菜鸟问：如何自动插入分页符

orientson

我刚刚对vba感冒；对excel的时间要长一些；

对word是绝对初级阶段

我试着录了一个宏，想实现自动插入分页符。

可是无法判定其位置。

如：

总轧差123

费用 5526.36

总轧差3342232342.06

费用 582.06

总轧差5826.00

如何在每个总轧差后面自动插入分页符呢？谢谢各位了。

具体见文件：

F4kU8c3g.rar (2.44 KB, 下载次数: 28)

2005-5-8 17:55 上传

点击文件名下载附件
菜鸟问：如何自动插入分页符

orientson

包括总轧差后面的数字.

自己顶一下。

orientson

在总轧差（含数字）后面继续查找段落标记

查找后再插入 break；

但是结果是多次插入了break，并且还多插入了一页；

请诸位帮忙解决。

Sub Macro1()

Do Set myrange = Word.Selection.Find myrange.ClearFormatting myrange.Execute FindText:="总轧差" If myrange Is Nothing Then Exit Do 'Set myrange2 = ActiveDocument.Selection = "^p" Set myrange2 = Selection.Find myrange2.ClearFormatting myrange2.Execute FindText:="^p", Format:=True, Forward:=True If Not myrange2 Is Nothing Then Selection.InsertBreak Type:=wdPageBreak End If 'Selection.Find.Execute Loop While Not myrange Is Nothing End Sub

守柔

呵呵，把楼主给急了。

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-14 09:22:57 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyRange As Range On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 Set MyRange = ActiveDocument.Content '活动文档 With MyRange.Find .ClearFormatting '清除查找格式 .Text = "总轧差" ''设置查找文本 Do While .Execute '查找 '在查找到的对象的第一个段落后面插入一个分页符 MyRange.Paragraphs(1).Range.InsertAfter Chr(12) Loop End With '恢复屏幕更新 Application.ScreenUpdating = True End Sub '----------------------有问题再交流。

orientson

谢谢守柔。

有问题再麻烦你。