| |
▼マナ さん：
さっそく追加質問をさせてください。
ファイルを保存するときに、分割元ファイルにある文字をファイル名にしたいと考えています。
使用したい文字の位置は一定ではないのですが、必ず「番号」という文字があるセルの次のセルに入っているので、
「番号」を検索し、右に一つタブ移動し取得した文字列をファイル名の変数に格納という方法で何とか取得できないかと考えているのですが
検索はできるのですが、見つかった個所を選択するというのができずにいます。
myPage内に必ず1つ「番号」はあるので、myPageの範囲確定後に
検索文字列を赤で表示するコードを参考に下記のように記述しています。
with myPage.Find
.text="番号"
Do While .Execute
myPage.HighlightColorIndex= wdRed
Loop
End With
これで赤く表示されるのですが、カーソルは動いていないので、
検索文字列に一つ右というのがうまくいきません。
検索文字にカーソルを持っていきたいのですが、方法がよくわかりません。
myPage.HighlightColorIndex= wdRed をどのように変えたらいいのか。。
検索文字にカーソルが移動できたら、
その後は
Selection.MoveRight Unit:=wdCell
で右に一つカーソル移動し
その文字列をコピーすればいいのかなと思っております。（ここはまだコードを思いついていませんがなんとか）
もしくはファイル名をうまく取得できる方法がほかにありましたら、ご教示いただけると幸いです。
よろしくお願いいたします。
|
|
あおぎんこ
- 19/4/26(金) 12:07 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
