Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

40 / 886

←次へ　｜　前へ→


	【872】Re:ファイル分割

マナ - 19/4/25(木) 21:31 -


	引用なし

	パスワード

▼あおぎんこさん：

これだとどうなりますか
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=myPage

動作確認のために、ほとんど同じですが、書き換えてみました。

Sub test()
　　Dim mySplit As Long
　　Dim doc As Document
　　Dim myTotalPage As Long
　　Dim myPage As Range
　　Dim r As Range
　　Dim k As Long

　　mySplit = 2

　　Set doc = ActiveDocument
　　
　　myTotalPage = doc.Range.Information(wdNumberOfPagesInDocument)

　　Set myPage = doc.Range(0, 0)
　　Set r = myPage
　　
　　k = 0

　　Do Until k > myTotalPage
　　　　k = k + mySplit
　　　　myPage.Start = r.End
　　　　If k >= myTotalPage Then
　　　　　　myPage.End = doc.Range.End
　　　　Else
　　　　　　Set r = r.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=k + 1)
　　　　　　myPage.End = r.Start - 1
　　　　End If
　　　　myPage.Copy
　　　　Documents.Add.Range.Paste
　　Loop

End Sub

381 hits

▼

【869】ファイル分割 あおぎんこ 19/4/24(水) 19:42