[求助]页码的域代码

prince · 发表于 2005-11-3 16:38

请问：

在ＶＢＡ中使用Fields.Add(Range:=mFooter, Type:=wdFieldEmpty, Text:= "＊＊＊", PreserveFormatting:=False)向文档中插入域，请问当前页码的text值应是什么？是ＰＡＧＥ吗？

守柔 · 发表于 2005-11-4 07:41

录个宏最知道了。

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE "

或者：

Option Explicit Sub Example() Dim myRange As Range With ActiveDocument '向第一节的页脚中添加一个页码域 Set myRange = .Sections(1).Footers(wdHeaderFooterPrimary).Range myRange.Fields.Add Range:=myRange, Type:=wdFieldPage '向文档起点处添加一个页码域 Set myRange = .Range(0, 0) .Fields.Add Range:=myRange, Type:=wdFieldPage End With End Sub '----------------------

prince · 发表于 2005-11-4 08:30

其实我是参加版主的WORD正式竞赛题,因为我是第一次用WORD宏,所以基本上是边看帮助边写.在设置页眉页脚的代码遇到以下问题: [em06].Text = "第 " & mField1.Result.Text & "页共 " & mField2.Result.Text & "页" [em06]'在运行到上面这一句出现错误“5891”，该属性无法用于那个对象，请问应如何处理。 End With

[此贴子已经被作者于2005-11-7 11:33:34编辑过]

守柔 · 发表于 2005-11-4 08:49

你的主题贴，我基本就明白了，是关于那个题目的。

我提示一下，两个方法：

一是使用自动图文集法，你可以录个宏，“页眉页脚”工具栏 /插入自动图文集。

二是使用指定TEXT，然后使用增加空域的方法。

[此贴子已经被作者于2005-11-4 9:00:29编辑过]

prince · 发表于 2005-11-4 09:05

谢谢守柔版主！

二是使用指定TEXT，然后使用增加空域的方法

版主方便再详细指点,或说明相关的对象吗?

[此贴子已经被作者于2005-11-4 9:21:01编辑过]

守柔 · 发表于 2005-11-4 09:49

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-11-4 09:51:34 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00042^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim myRange As Range, aField As Field With ActiveDocument Set myRange = .Range(0, 0) myRange.InsertAfter "QUOTE ""这是一个插入域试验""" Set aField = .Fields.Add(myRange, wdFieldEmpty, , False) aField.Update End With End Sub '----------------------

prince · 发表于 2005-11-4 10:07

十分感谢版主！

ningyong58 · 发表于 2010-2-6 07:37

原帖由守柔于 2005-11-4 08:49 发表
你的主题贴，我基本就明白了，是关于那个题目的。
我提示一下，两个方法：
一是使用自动图文集法，你可以录个宏，“页眉页脚”工具栏 /插入自动图文集。
二是使用指定TEXT，然后使用增加空域的方法。
[此贴子已经 ...

能否把这道题帖出来.谢谢.

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