Sub SendToFTP()
'
'「ツール」「マクロ」で、マクロ名に「SendToFTP」と記入し、
' OKを押した後このコードを貼り付けてください。
    If (ActiveDocument.Path = "") And (ActiveDocument.Saved) Then Exit Sub
        
    If Not ActiveDocument.Saved Then
        If MsgBox("保存しますか?", vbYesNo, "ファイルは変更されています") = vbNo Then Exit Sub
        If ActiveDocument.Path = "" Then
            If Application.Dialogs(wdDialogFileSaveAs).Show <> -1 Then Exit Sub
        Else
            ActiveDocument.Save
        End If
    End If

'K's ftp uploaderの場所と、プロファイル名の設定をお忘れなく。
    Shell ("c:\progra~1\kssoft\ksftp\ksftp.exe /server:servername " + ActiveDocument.FullName)
End Sub