[求助]如何用vba拷贝文档中的某一页?

zxyding · 发表于 2003-1-8 11:34

如题。[em06]

zxyding · 发表于 2003-1-9 08:24

谢谢！

zxyding · 发表于 2003-1-9 08:44

如何取得当前页数。

[此贴子已经被作者于1/9/2003 8:44:10 AM编辑过]

zxyding · 发表于 2003-1-9 10:29

谢谢

惊叹不已 · 发表于 2003-1-9 10:13

MsgBox Selection.Information(wdActiveEndAdjustedPageNumber)

惊叹不已 · 发表于 2003-1-8 18:37

Sub 复制一页() '取得总页数 pagescount = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) a = InputBox("请输入要复制的页码") b = Val(a) If b = pagescount Then Selection.GoTo wdGoToPage, wdGoToLast Selection.MoveEnd wdLine, 1000 '此处不一定是1000,只要不小于本页的行数即可 ElseIf b < pagescount Then Set st = Selection.GoTo(wdGoToPage, wdGoToAbsolute, b) Set en = Selection.GoTo(wdGoToPage, wdGoToAbsolute, b + 1) ActiveDocument.Range(st.Start, en.End).Select End If Selection.Copy End Sub

[此贴子已经被惊叹不已于1/8/2003 6:37:26 PM编辑过]

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