お前ら、wsh使ってますか？ Part2
>465
On Error Resume Next
Set Application = GetObject(, "Word.Application")
If Err.Number = 0 Then
Application.Selection.Paste
End If
こんな感じかな?
On Error Resume Next
Set Application = GetObject(, "Word.Application")
If Err.Number = 0 Then
Application.Selection.Paste
End If
こんな感じかな?
|
|
|