| |
ご回答ありがとうございます。
とりあえず、＊のところに1行目の前後に挿入する記述を書いて、テストをしてみました。＊のところに記述したのは以下の通りです。それから、1ページ目だけに関しては、2行目以降はmytextの数字を変えただけでそのままコピペしてこの記述の繰り返しでできましたが、それでよいのでしょうか？
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1
myExcludes = Chr(9) & Chr(10) & Chr(11) & Chr(12) & Chr(13)
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveEndWhile Cset:=myExcludes, Count:=wdBackward
Dim myDoc As Document
Dim myRange As Range
Const myText1 As String = "<item id=""" '前の文字列"
Const myText2 As String = """>" '後の文字列
Set myDoc = ActiveDocument
With Selection
.InsertBefore myText1
.InsertAfter myText2
End With
With Selection
Set myRange = myDoc.Range(.End - Len(myText2), .End)
End With
Selection.Collapse wdCollapseEnd
Set myRange = Nothing
Set myDoc = Nothing
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
|
|
あかよん
- 18/2/5(月) 9:30 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
