Word VBA質問箱 IV

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

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


9 / 866 ←次へ | 前へ→

【883】ファイル分割
質問  ころん  - 19/6/24(月) 2:09 -

引用なし
パスワード
   ファイルのページ設定やヘッダーやフッターを維持して、ファイルを指定するページ毎に分割したいと考えています。
ファイルのセクションごとに分割できるコードを見つけたのですが、これを指定するページ毎に分割できるようにするにはどうしたらよいのかご教示いただけないでしょうか。

Sub ファイル分割()
Dim doc As Document
Dim newDoc As Document
Dim i As Long, j As Long
Set doc = ActiveDocument
doc.SaveAs2 doc.Path & "\" & "ファイル名.docx"
For i = 1 To doc.Sections.Count
Set newDoc = Application.Documents.Add(Template:=doc.Path & "\" & "ファイル名.docx")
For j = doc.Sections.Count To 1 Step -1
If j <> i Then newDoc.Sections(j).Range.Delete
Next
newDoc.SaveAs2 doc.Path & "\" & "ファイル名_" & i & ".docx"
newDoc.Close
Next
End Sub

27 hits

【883】ファイル分割 ころん 19/6/24(月) 2:09 質問[未読]
【884】Re:ファイル分割 マナ 19/6/25(火) 22:31 発言[未読]
【885】Re:ファイル分割 ころんさん 19/6/30(日) 8:20 お礼[未読]

9 / 866 ←次へ | 前へ→
ページ:  ┃  記事番号:
202637
(SS)C-BOARD v3.8 is Free