这句VBA代码什么意思

billdon · 发表于 2007-3-7 15:55

myPage = .ActiveWindow.ActivePane.Pages(N).Rectangles(1).Range.Tables(1).Cell(1, ColId).Range.Text

守柔 · 发表于 2007-3-7 17:40

QUOTE:

以下是引用billdon在2007-3-7 15:55:27的发言：
myPage = .ActiveWindow.ActivePane.Pages(N).Rectangles(1).Range.Tables(1).Cell(1, ColId).Range.Text

这句代码的意思是返回第N页文字层中第一个表格的第一行某个单元格的文本内容，含单元格结束标记。

此代码必须是在WORD2003及其以上版本中适用，另外，该页中的表格不能处于多页中，否则，将返回的是上一页的表格第一行中的单元格内容，而非本页中的表格第一行的内容。

billdon · 发表于 2007-3-8 08:14

该代码其实是版主帮我编的，

现在碰到一个问题，就是页码在页脚表格的第一行第2列，奇偶页对称，运行代码后出现“错误5941，可能原因：集合所要求的成员不存在”，我想是不是要改这句代码，所以请教版主。

OTxFMno1.rar (33.91 KB, 下载次数: 9)

[此贴子已经被作者于2007-3-8 8:31:47编辑过]

billdon · 发表于 2007-3-8 19:43

版主再帮忙看看，谢谢！

守柔 · 发表于 2007-3-9 06:19

QUOTE:

以下是引用billdon在2007-3-8 19:43:06的发言：

版主再帮忙看看，谢谢！

在你的这个附件中，必须更改成以下代码：

If N Mod 2 = 0 Then ColId = 1 Else ColId = 2
myPage = .ActiveWindow.ActivePane.Pages(N).Rectangles(2).Range.Tables(1).Cell(1, ColId).Range.Text

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