VB复制，就是把WORD从D盘复制到E盘，
但是，如果打开WORD后，运行程序复制，则复制的是空文档，
如果WORD没有打开，则是好的
什么原因呢

你的代码呢?
复制的用什么代码写的呢?

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command1_Click()
CopyFile "c:\123.doc", "d:\234.doc", 1
End Sub
你用这个看看了!

Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CopyFile "c:\123.doc", "d:\234.doc"
End Sub

这个看行不