| |
比較する現在行が一番最初に取得した時のままになってしまっているんじゃないか？とループの中に☆の部分を入れて実行してみたら、できました。長々とご面倒をおかけして、申し訳ありませんでした。助けていただき、ありがとうございました。これから本番データで不安ですが、わかりやすく説明していただき、考え方は理解できましたので頑張ります。
>
>
>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
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
