Word VBA質問箱 IV

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

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


2 / 293 ツリー ←次へ | 前へ→

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

【849】Re:各ページ各行それぞれ違う文字列の挿入 あかよん 18/2/14(水) 11:05 お礼[未読]

【849】Re:各ページ各行それぞれ違う文字列の挿入
お礼  あかよん  - 18/2/14(水) 11:05 -

引用なし
パスワード
   比較する現在行が一番最初に取得した時のままになってしまっているんじゃないか?とループの中に☆の部分を入れて実行してみたら、できました。長々とご面倒をおかけして、申し訳ありませんでした。助けていただき、ありがとうございました。これから本番データで不安ですが、わかりやすく説明していただき、考え方は理解できましたので頑張ります。
>
>
>Dim tempLine As Long
>Dim tempColumn As Long
>
>tempLine = Selection.Infomation(wdFirstCharacterLineNumber)
>tempColumn = Selection.Infomation(wdFirstColumnNumber)
>
>Do

tempLine = Selection.Infomation(wdFirstCharacterLineNumber)  ←☆
tempColumn = Selection.Infomation(wdFirstColumnNumber)   ←☆


>  Selection.Move wdLine, 1
>   Select Case Selection.Information(wdFirstCharacterLineNumber)
>    Case 1 '1行目の時
>      Selection.MoveUp Unit:=wdLine, Count:=1
>      Selection.EndKey Unit:=wdLine
>      Selection.TypeParagraph
>      Selection.TypeText Text:="</item>"
>            Selection.Go To What:=wdGoToNext, Count:=1 
>
>      Case tempLine '最終ページの最終行の時
>      Selection.EndKey Unit:=wdLine
>      Selection.TypeParagraph
>      Selection.TypeText Text:="</item>"
>      Exit Sub
>  End Select
>Loop

2 / 293 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
197910
(SS)C-BOARD v3.8 is Free