Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
494 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11445】テキストボックスの文字列をSendKeysステートメントでコピー かなくりん 10/2/11(木) 0:34 質問[未読]
【11451】Re:テキストボックスの文字列をSendKeysス... 超初心者 10/2/13(土) 11:58 発言[未読]
【11445】テキストボックスの文字列をSendKeysステ...
質問  かなくりん E-MAIL  - 10/2/11(木) 0:34 -
引用なし
パスワード
   テキストボックスの文字列をSendKeysステートメントでコピー

やりたいことはAccessのフォーム上にあるテキストボックス(テキスト１）の文字列をSendKeysステートメントでコピーし

ワードﾌｧｲﾙをShell関数で起動し、SendKyesステートメントで検索→貼り付けをしたいのですが。

コピー機能がうまく行きません、下記にｺｰﾄﾞを載せますのでおかしいところのご指摘お願いします.


Private Sub コマンド_Click()

Dim varad
Dim strmes As String

Me!テキスト１.SetFocus
SendKeys "^c"

strmes = "C:\Program Files\Microsoft Office\Office\WINWORD.exe C:特定ﾌｧｲﾙ名.doc"
varad = Shell(strmes, 1)

SendKeys "^f"
SendKeys "^v"

End Sub
【11451】Re:テキストボックスの文字列をSendKeys...
発言  超初心者  - 10/2/13(土) 11:58 -
引用なし
パスワード
   ▼かなくりん さん：
適当に「待ち時間」を入れてみてはいかがでしょう。

> SendKeys "^f"
　Dim myTimeS As Single
　myTimeS = Timer
　Do
　　　DoEvents
　Loop While Timer < myTimeS + 0.05　 '数値は適宜変更
> SendKeys "^v"

こんな感じで。
（別プロシージャ化の方が良い？）

うまくいかなかったらゴメンなさい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
494 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080804
(SS)C-BOARD v3.8 is Free