如何在Word中使用VBA来计算每页上有多少行文本？

sub linesofpage()

方法很简单，就是数数。

dim pageno as integer, lines as integer, movedlines as integer

首先确定当前页码。

pageno =

行计数被清除为零。

lines = 0

if , 1) =0 or pageno <>then exit do

将同一页上的行数加 1 并继续移动。

lines = lines + 1

循环向下移动到它开始的位置。

wdline, lines

if , 1) =0 or pageno <>then exit do

将同一页上的行数加 1 并继续移动。

lines = lines + 1

loop最后几行是页面上的行数。

end sub

sub macro2()

dim r, p, r0, p0, rr, ppp= '当前页码。

r= '当前行。

计算行数。 p0 = p

rr = r

unit:=wdline, count:=1pp =

r0 =if pp > p then

回到你来的地方。 unit:=wdline, count:=(rr - r + 1)exit do

end if

if rr = r0 then

回到你来的地方。 unit:=wdline, count:=(rr - r)exit do

end if

rr = r0

loopmsgbox "当前页码。 " & p & vbcrlf & "本页总行数：" & rr

end sub

领取**奖励积分！！

'在工作簿的最前面插入工作表。

在新表中，分别输入 A1 和 B1 中的名称和行数。

选择 A1 并运行以下宏。

public sub hang()

for i = 2 to

r = sheets(i).

n = sheets(i).name

0) = n

1) = r

nextend sub

在页面设置中，有一个名为“文档网格”的选项卡，选择“指定行和字符网格”，然后确定具体数字。

打开Word文档后，打开“页面设置”，选择“文档网格”，设置一行字数和每页行数，在“网格”中选择“指定行数和字符网格”，然后在“字符数”中设置“每行”中的字数，在“行数”中设置“每页”中的行数;

如果要设置每页的几行，请选择“指定行网格”选项进行设置。

你不能只让一个页面只有几个字或几行。

这两个功能的实现受以下设置的影响：（1） 字体大小; （2）字间距、行距 （3）页眉和页脚 如果你坚持要快速实现你的目标，你可以插入一个灰色**来设置行号来实现它。 试一试。

看一下页面设置，点击文档网络设置每行字数和每页行数。

让我们看看是不是这个，如果不是，我不知道你想要什么样的。

亲爱的，**如下，查找“abc”首次出现的页面的页码。 请根据情况修改您需要查找的字符：

sub cz()

dim myrange as range

set myrange =

findtext:="abc", forward:=truemsgbox

end sub

工具材料：计算机、Word。

第一步是打开电脑进入桌面，打开软件进入界面。

第二步是打开软件，打开相应的文档。

第三步：找到 插入 --插入 在上方的菜单栏中，然后单击进入。

第四步，点击弹出的对话框，输入所需的行和列，点击 确定.

第 5 步：完成上述步骤后，您可以获得 35 行的页面，每行 40 个单词。

如何设置：

2.弹出页面设置对话框，选择文档网格选项卡，在网格处选择名称和网格选项，每行输入框输入40，每页输入框输入35，如图所示。

文件菜单 - 页面设置 - 文档网络 - 指定行和字符网络 - 每行 40 个字 - 每页 35 行。

要达到此效果，可能还取决于您设置的字体大小和行距。

每页行数易于控制，设置页面布局中的行数---页面设置---文档网络，可以通过调整边距和字体大小间距来控制字数。

页面设置 - 在文档网格内。

您的问题有点笼统，不清楚您的具体要求，如果有屏幕截图就好了。 VBA 可能不是必需的。

如果表格已经形成，每页一个表格，但每页顶部的内容需要更改，例如发送给每个人（单位）的**等，并且应在前面添加名称（单位名称）。 建议在邮件合并下学习。

要提供此方法，您可以在“*degree”下“合并邮件”，这比我在这里说的更清楚。 它真的还是有用的。