| |
▼マナ さん：
>箇条書き番号は、ここを参考にできませんか？
>ht tps://wordmvp.com/FAQs/Numbering/ListRestartFromVBA.htm
マナさん、ありがとうございます。Numbering Listですか、勉強してみます。
Sub test1() 'マナさんより .InsertBreak wdPageBreak削除にて白紙除去，但し箇条書き数字増える
Dim r As Range
Dim k As Long
Dim doc As Document
Set r = ThisDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, 3)
Set r = r.GoTo(wdGoToBookmark, , , "\page")
Set doc = Documents.Open(ThisDocument.Path & "\DataRec.docx")
For k = 1 To 3
ThisDocument.Shapes("MyNo").TextFrame.TextRange.Text = k
doc.Bookmarks("\EndOfDoc").Range.FormattedText = r.FormattedText
Next
End Sub
Sub testR() 'Selectionはあるが、箇条書き数字は維持される
Dim r As Range
Dim k As Long
Dim doc As Document
Set r = ThisDocument.Range.GoTo(wdGoToPage, wdGoToAbsolute, 3)
Set r = r.GoTo(wdGoToBookmark, , , "\page")
Set doc = Documents.Open(ThisDocument.Path & "\DataRec.docx")
For k = 1 To 3
ThisDocument.Shapes("MyNo").TextFrame.TextRange.Text = k
r.Select: Selection.Copy
doc.Bookmarks("\EndOfDoc").Range.PasteAndFormat (wdFormatOriginalFormatting)
Next
Selection.Collapse Direction:=wdCollapseStart 'Sel解除
End Sub
test1は白紙除去できましたが、箇条書きのNumberingが増えていきます。
testRはコピペが美しくないですが、箇条書きのNumberingはOKです。
それにしても、最初に戻りますが配列を使うとなぜ全て最後のページになるのでしょう？
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
