Selection.GoTo在最后一页插入分节符.

ningyong58

Sub ls()
  Selection.GoTo(wdGoToPage, wdGoToAbsolute, 11).Bookmarks("\page").Range.InsertBreak wdSectionBreakNextPage
End Sub

目标需求:
,每次都是从最后一页插入分节符后.插入附件中dot模板文件
也就是在新建的doc文件,n次重复操作上述步骤.

零部件工艺过程卡.rar (4.83 KB, 下载次数: 15)

2010-2-5 15:50 上传

点击文件名下载附件

ningyong58

看了下面的GoTo方法, 问题是wdGoToPage, wdGoToAbsolute, 11 确定是执行了手动^+end谢谢.


http://www.meizvfp.com/bbs/dispbbs.asp?boardid=2&id=56497
GoTo 方法
对于 Document 或 Range 对象：返回一个 Range 对象，该对象代表指定项（例如页、书签或域）的开始位置。

对于 Selection 对象：将插入点移至指定项前面的字符位置，并返回一个 Range 对象（但 wdGoToGrammaticalError、wdGoToProofrea*Error 或 wdGoToSpellingError 常量除外）。

expression.GoTo(What, Which, Count, Name)

expression      必需。该表达式返回“应用于”列表中的一个对象。

What     Variant 类型，可选。指定区域或所选内容要移动到的项目类型。可以是下列 WdGoToItem 常量之一。

WdGoToItem 可以是下列 WdGoToItem 常量之一：
wdGoToBookmark
wdGoToComment
wdGoToEndnote
wdGoToEquation
wdGoToField
wdGoToFootnote
wdGoToGrammaticalError
wdGoToGraphic
wdGoToHea*
wdGoToLine
wdGoToObject
wdGoToPage
wdGoToPercent
wdGoToProofrea*Error
wdGoToRevision
wdGoToSection
wdGoToSpellingError
wdGoToTable

Which     Variant 类型，可选。指定区域或所选内容要移动到的项。可以是下列 WdGoToDirection 常量之一。下列示例功能相等，都将所选内容移动到文档中的第一个标题。

WdGoToDirection 可以是下列 WdGoToDirection 常量之一：
wdGoToAbsolute
wdGoToFirst
wdGoToLast
wdGoToNext
wdGoToPrevious
wdGoToRelative

Selection.GoTo What:=wdGoToHea*, Which:=wdGoToFirstSelection.GoTo What:=wdGoToHea*, Which:=wdGoToAbsolute, Count:=1                Count     Variant 类型，可选。文档中的项数。默认值是 1。下面的示例将所选内容移至文档中的第四行。

Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4                只有正数是有效的。若要指定一个在该区域或所选内容之前的项，可将 Which 参数指定为 wdGoToPrevious，并指定一个 Count 值。下面的示例将所选内容向上移动两行。

Selection.GoTo What:=wdGoToLine, Which:=wdGoToPrevious, Count:=2                Name     Variant 类型，可选。如果 What 参数是 wdGoToBookmark

ningyong58

在word中录制了一段宏
Sub Macro2()
'    Selection.EndKey Unit:=wdStory
    Selection.InsertFile FileName:="零部件工艺过程卡.dot", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
    Selection.InsertBreak Type:=wdSectionBreakNextPage
End Sub

目标需求,也就是Goto如何实现Selection.EndKey Unit:=wdStory的功能.

wx486

这样行吗？
Sub ls()
   Selection.GoTo WHAT:=wdGoToPage, WHICH:=wdGoToAbsolute, Count:=12   '11+1
   Selection.MoveLeft UNIT:=wdCharacter, Count:=1
   Selection.InsertBreak wdSectionBreakNextPage
End Sub