■クリップボードへのコピーとクリップボードからのペースト

Me!Text.SetFocus
DoCmd.RunCommand acCmdCopy

Me!Text.SetFocus
DoCmd.RunCommand acCmdPaste


■起動中の他アプリケーションをアクティブ(最前面)に

AppActivate "Microsoft Excel - ABC.xls"

※パラメータには、アプリケーションのタイトルバーに表示されているタイトル文字列
  例は、Excelアプリケーションがファイル名「ABC.xls」を起動中の場合。


■他アプリケーションの起動

Dim A
A = Shell(("msaccess " & Chr$(&H22) & "test.mdb" & Chr$(&H22)), vbMaximizedFocus)
AppActivate A, False

上記例は、アクセスを起動し、「test.mdb」を実行、アプリケーションウインドウを最大化


検索・置換メニューを呼び出す

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70


OSへ制御を一時渡す

DoEvents

※OSへ制御を移すDoEventsは、時間を取ります。大量のループで高速さが必要な場合は、次のように記述します。

Declare Function GetInputState Lib "USER32" () As Long ’API宣言部
        :
For I = 0 to 100000
            :

    If GetInputState() Then DoEvents 'ループ中
Next I


コンピュータ名、ドメイン名、ユーザー名

Dim W as Object
Set W = CreateObject("WScript.Network")
MsgBox W.ComputerName
MsgBox W.UserDomain
MsgBox W.UserName
Set W = Nothing