一个很多人问过的问题！但是怎么用代码实现？

juny0508

一个很多人问过的问题！但是怎么用代码实现？ 请问如何用代码实现在word中插入“第X页共Y页”样式的页码？ 在一个表格项里边插入！如在oWordApplic.Selection.Tables(1).Cell(1, 1)这个位置插入！ konggs兄，守柔，请多多指点！

juny0508

我用域操作如下：

oWordApplic.Selection.Tables(1).Cell(1, 1).Range.Text = "第{PAGE }页 / 共{NUMPAGES }页"

可是不行啊！

juny0508

我在页眉的表格第一行第一列插入页码如下，可是不成功！

各位大哥帮帮忙！

oWordApplic.Selection.Tables(1).Cell(1, 1).Range.Text = "第" & Word.WdFieldType.wdFieldPage & "页共" & Word.WdFieldType.wdFieldNumPages & "页"

守柔

参考：

Sub Example()
Dim myRange As Word.Range
With Word.Selection
Set myRange = Word.ActiveDocument.Range(.Tables(1).Cell(1, 1).Range.Start, .Tables(1).Cell(1, 1).Range.Start)
Word.NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=myRange, RichText:=True
End With
End Sub

konggs

Juny兄，试试这个。

Sub Macro5()
Dim a As Range
Set a = Selection.Tables(1).Cell(1, 1).Range
a.SetRange a.End - 1, a.End - 1
NormalTemplate.AutoTextEntries("第 X 页 共 Y 页").Insert Where:=a _
, RichText:=True
End Sub

konggs

呵呵，老大已发了。

守柔

更多域代码的插入法（特别是嵌套域代码），可参此贴：

http://club.excelhome.net/viewthread.php?tid=131579&replyID=&skin=0

juny0508

小弟在这里

谢谢各位老大的热情回帖了

我先试试上面的方法！

juny0508

根据konggs兄，守柔兄的方法

问题已经得到解决！

谢谢两位大哥！