Word VBA質問箱 IV

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

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


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

80 / 886

←次へ　｜　前へ→


	【831】Re:各ページ各行それぞれ違う文字列の挿入

あかよん - 18/2/5(月) 9:30 -


	引用なし

	パスワード

ご回答ありがとうございます。
とりあえず、＊のところに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

272 hits

▼

【829】各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/2(金) 10:58