FileCopy from a check box

shabbaranks · #1 11-23-2015, 08:00 AM

Hi,

Just looking at creating a document which - when the user puts a check in the document it initiates a file copy and copies a particular document to the same folder the current document is in.

But I cant see exactly how I execute this?

Thanks

shabbaranks · #2 11-23-2015, 08:22 AM

Getting closer, what I would like to do is use the active document path as the destination

Code:

Sub CopyDocument()
Dim SourceFile, StrDestinationFile As String
SourceFile = "pRINTERS.docx" 
StrDestinationFile = ActiveDocument.Path
FileCopy "P:\pRINTERS.docx", StrDestinationFile
End Sub

shabbaranks · #3 11-23-2015, 08:28 AM

Got it working:

Code:

Sub CopyDocument()
Dim strSourceFile, StrDestinationFile As String
strSourceFile = "P:\pRINTERS.docx"
StrDestinationFile = ActiveDocument.Path & "\pRINTERS.docx"
FileCopy strSourceFile, StrDestinationFile
End Sub

Just need to link it to the checkbox on the document now

shabbaranks · #4 11-24-2015, 01:58 AM

Sorted - probably quite long winded but it works

Code:

Private Sub CheckBox1_Click()
Dim strSourceFile As String
Dim StrDestinationFile As String
If Me.CheckBox1 = True Then
strSourceFile = "P:\Test Word Document.docx"
StrDestinationFile = ActiveDocument.Path & "\Test Word Document.docx"
FileCopy strSourceFile, StrDestinationFile
Else
If Me.CheckBox1 = False Then
If Not Dir(ActiveDocument.Path & "\Test Word Document.docx", vbDirectory) = vbNullString Then Kill (ActiveDocument.Path & "\Test Word Document.docx")
End If
End If
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA FileCopy Source: problem	landonminden	Word VBA	4	12-16-2015 01:02 AM
Excel vba to check to check if two columns are empty	subspace3	Excel Programming	5	07-09-2015 04:45 PM
Multiple Check In/check Out Times	big0	Excel	4	09-19-2013 05:02 AM
cannot check/uncheck check box but added check box	learn2office	Word	1	11-27-2012 02:02 AM
Link word check box to access check box	Mrkieth	Word	4	01-30-2012 06:43 AM