VBA WS Toolkit, comment obtenir le fichier actuel en tant que Byte Array

Question

En utilisant VBA Je veux envoyer une copie du document Word actuel à un service Web? Comment peut-on obtenir le document actuel en tant que Byte Array?

Je sais comment utiliser le service Web ne sais pas comment obtenir le fichier en cours en tant qu'objet binaire à envoyer?

p.s. Je n'utilise que VBA depuis ce matin =) Donc des réponses simples sont appréciées

Answer 1

Public Sub Example() 
    Dim bytFile() As Byte 
    bytFile = GetFileBytes("c:\test\dirdump.doc") 
    ''// Do something with bytFile here. 
End Sub 

Public Function GetFileBytes(ByVal path As String) As Byte() 
    Dim lngFileNum As Long 
    Dim bytRtnVal() As Byte 
    lngFileNum = FreeFile 
    If LenB(Dir(path)) Then ''// Does file exist? 
     Open path For Binary Access Read As lngFileNum 
     ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte 
     Get lngFileNum, , bytRtnVal 
     Close lngFileNum 
    Else 
     Err.Raise 53 
    End If 
    GetFileBytes = bytRtnVal 
    Erase bytRtnVal 
End Function