WORD VBA 如何在給定資料夾中所有 DOC 檔案的末尾新增段落？

你自己寫了多久了？

**除了。

for each p

缺少乙個空格，它應該是。

for each p in

否則，應該沒有問題。

房東是不是想用這個**新增一些文件開篇語句來處理資料夾中的所有word文件？

首先，第三行的概念是什麼。

是第三段嗎？ 還是段落的第三行？ 你最好發乙個**。

找到並替換要替換的單詞，然後輸入要替換的單詞。

'1 建立乙個新檔案。

2 （with do...）loop） 開啟以 z 開頭的 D： 目錄。 docx 檔案。

3. 將符合條件的部分複製到剪貼簿，關閉檔案，然後返回新的空白檔案。

4 貼上。 5 重複 2 4

6 最後，將複製貼上的內容保留為當前檔案。

sub dothis()

dim mypath, myfile

mypath = "d:\"

documenttype:=wdnewblankdocumentmyfile = dir(mypath & "z*.doc", vbnormal)

do while myfile <>""

mypath & myfile

docopyrange

myfile = dir

loopend sub

sub docopyrange()

withtext = "a"

wrap = wdfindcontinueend with

a =with

text = "b"

wrap = wdfindcontinueend with

b == a + 1

bend sub

例如，段落總是以“從前”開頭，以“過上幸福的生活”結尾。 “所以：

sub dothis()

withtext = "很久以前"

wrap = wdfindcontinueend with

a =with

text = "過上幸福的生活。 "

wrap = wdfindcontinueend with

b == a + 1

bend sub

你說的太複雜了，無法實現。

例如：shell" c:\"，vbNormalFocus，水平選擇兩個單元格，然後開啟 C：

Private Sub Worksheet SelectionChange（Byval Target as Range）。

if > 2 and = 1 and = 2 thenshell " c:\", vbnormalfocusend if

end sub

我明白你說的字段應該是**檔案中的乙個單元格，具體邏輯是這樣的。

1. 開啟乙個包含物件的資料夾，然後遍歷其中的所有 word 檔案2。開啟 word 檔案並讀取檔案中 table（i） 物件的特定單元格。

完成。 至於上面 i 的值和讀取單元格的位址，這取決於您的具體檔案。

是的，您必須上傳附件並說明目的。