L
LEU
I was going through all the questions posted on coping and found almost what
I was looking for under a response by Doug Robbins. What I have is as follows:
Private Sub Copy1_Click()
With ActiveDocument
..Variables("varA").Value = Cmb1.Value
..Variables("varB").Value = Text1.Text
etc
..SaveAs ("c:\TempA")
End With
End Sub
Private Sub Paste1_Click()
Dim DocA As Document
Set DocA = Documents.Open("c:\TempA")
With DocA
Text1.Text = .Variables("varA").Value
Cmb1.Text = .Variables("varB").Value
etc
DocA.Close wdDoNotSaveChanges
End With
End Sub
My questions are in my Copy1_Click() how do I close "c:\TempA" after its
saved and in my Paste1_Click() how do I delete TempA when I’m done?
I was looking for under a response by Doug Robbins. What I have is as follows:
Private Sub Copy1_Click()
With ActiveDocument
..Variables("varA").Value = Cmb1.Value
..Variables("varB").Value = Text1.Text
etc
..SaveAs ("c:\TempA")
End With
End Sub
Private Sub Paste1_Click()
Dim DocA As Document
Set DocA = Documents.Open("c:\TempA")
With DocA
Text1.Text = .Variables("varA").Value
Cmb1.Text = .Variables("varB").Value
etc
DocA.Close wdDoNotSaveChanges
End With
End Sub
My questions are in my Copy1_Click() how do I close "c:\TempA" after its
saved and in my Paste1_Click() how do I delete TempA when I’m done?