如何在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”下“合併郵件”，這比我在這裡說的更清楚。 它真的還是有用的。