如何用VBA删除WORD指定的页，谢谢

inadequate

比如说：我要删除第2页、第5页、第7页，VBA程序应该怎么写，谢谢

sol1976

綀習寫的，做法笨手笨腳，就參考看看吧～

輸入頁數的時候，請輸入一頁，回車，再輸入下一頁…
目前設定一次最多刪15頁。

不過，您提供的文檔會出錯，因為有表格跨頁…
目前測出來，若跨頁前後是文字，應該就沒有問題。


====
Sub 巨集1()
'
' 巨集1 巨集
' 巨集錄製於 2012/12/4 Tuesday，錄製者 sol

Application.ScreenUpdating = False

max = Selection.Information(wdNumberOfPagesInDocument)

Dim pages(1 To 15) As Integer
x = 1
y = 0
msg = "欲刪除頁數："

Do While x < 15

inputagain:
pages(x) = InputBox(msg & vbCrLf & vbCrLf & "請輸入欲刪除頁數，一次輸入一頁。" & vbCrLf & _
             "結束輸入請按「取消」，或留空按「確認」即可。" & vbCrLf & _
              vbCrLf & "本文檔僅" & max & "頁，請勿超出此頁數。")
On Error GoTo error

'Resume


If pages(x) > max Then
MsgBox ("別逗了，沒那麼多頁啦！再來一次！")
GoTo inputagain
End If

msg = msg & pages(x) & "、"
x = x + 1
y = y + 1

Loop

     
error:

For j = 1 To y
For i = 1 To y
     If pages(i) < pages(i + 1) Then
       z = pages(i)
       pages(i) = pages(i + 1)
       pages(i + 1) = z
     End If
Next i
Next j


x = 1
Do While x <= y
    If pages(x) = max Then
    Selection.EndKey Unit:=wdStory
    Else
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=pages(x) + 1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    End If
    Selection.InsertAfter "卍"
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=pages(x)
    Selection.InsertAfter "卍"

    Selection.MoveLeft Unit:=wdCharacter, Count:=1

Do While Selection.Next <> "卍"
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop


Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Delete

x = x + 1
Loop
Application.ScreenUpdating = False

End Sub

inadequate

sol1976 发表于 2012-12-5 02:00
綀習寫的，做法笨手笨腳，就參考看看吧～

輸入頁數的時候，請輸入一頁，回車，再輸入下一頁…

谢谢大哥，再想请教一下，如果在EXCEL删除WORD的页面，那程序应该如何改，谢谢

sol1976

inadequate 发表于 2012-12-5 09:40
谢谢大哥，再想请教一下，如果在EXCEL删除WORD的页面，那程序应该如何改，谢谢

哈哈，這個我肯定沒辦法 ^^
要看其他高手了～

inadequate

sol1976 发表于 2012-12-5 09:52
哈哈，這個我肯定沒辦法 ^^
要看其他高手了～

谢谢，我昨天已经弄出来了

庄彼梵

inadequate 发表于 2012-12-6 00:10
谢谢，我昨天已经弄出来了

请问你这个问题怎么解决的?能把代码分享出来吗？

abchua1

我也在询问这个问题，能分享吗？