【Word2007】はじめに選んでいた場所を選びなおしたい

質問

Word2007を使用しています。

以前以下の質問をしました。
http://oshiete1.goo.ne.jp/qa4854648.html

そこでInlineShapeの情報を取得するための
特殊な方法を教えて頂きました。

ただしこの方法を使用すると
選択されている場所が変更されてしまうため、
この処理をしたあとに、
選択箇所を元に戻したいと思っています。

今行っている処理は以下の通りです。

Sub main()

Dim shape As Word.shape

Dim ishp As Word.InlineShape

For Each sh In ActiveDocument.Shapes
sh.Select
For Each ishp In Selection.Range.InlineShapes
MsgBox (ishp.Width)
Next
Next

End Sub

このプログラムの前後で、
現在の選択箇所を取得し、そこに選択を戻せば良いのだろう
ということは分かるのですが、その方法が分かりません。

もしよろしければ、教えて頂けませんか？
ぜひよろしくお願い致します。

回答No.3

xls88 · ベストアンサー

Dim rng As Range

Set rng = Selection.Range
・
・
・
rng.Select

お礼

ありがとうございます。
これが良さそうですね。
Rangeを取得するときには、Setしないといけないのですね。
勉強になりました。
ありがとうございました。

回答No.2

xls88

curpn = Selection.Information(wdActiveEndPageNumber)
curln = Selection.Information(wdFirstCharacterLineNumber)
curcn = Selection.Information(wdFirstCharacterColumnNumber)

For Each shp In ActiveDocument.Shapes
shp.Select
For Each ishp In Selection.Range.InlineShapes
MsgBox (ishp.Width)
Next
Next

Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=curpn
Selection.GoTo What:=wdGoToLine, Which:=wdGoToRelative, Count:=curln - 1
Selection.MoveRight Unit:=wdCharacter, Count:=curcn - 1

お礼

ありがとうございます。
デザインモードで動かすことを想定していますので、
これですと、シェイプを選んでいると
正しく動きませんね。
また一番左上の行を選んでいるときにも
１行したにずれてしまうようです。

参考になりました。
ありがとうございます。

回答No.1

xls88

Application.GoBack

お礼

ありがとうございます。
文書を編集していれば、カーソルの位置が戻るようですね。
編集していない場合は、カーソルの位置が戻らないようですので、
少し残念です。

Sub main()の直後でカーソルの位置を取得して、
End Subの直前でカーソルの位置を設定できれば良いのですが。。。
いろいろなケースが考えられるため、
難しいですよね。。。