簡単に書けるだろうと思ったら異様なほど手間取った。 Option Explicit Private Sub PageSplitButton_Click() Dim pageCount As Integer: pageCount = Selection.Information(WdInformation.wdNumberOfPagesInDocument) Dim saveCount As Integer: saveCount…