Pitäisi saada Wordissä tallennettua dokumentti yhdestä lomakekentässä olevan tekstin mukaan. EN ole onnistunut ainakaan alla olevalla. Miten pitäisi muokata?
Sub Tallenna_nimella()
ChDir "C:\polku"
Fname = ActiveDocument.FormField("Nimi") & ".doc"
On Error GoTo Virhe
ActiveDocumnet.SaveAs FileName:=Fname
GoTo Loppu
Virhe:
MsgBox ("Tallennus ei onnistunut")
Loppu:
End Sub
Sub Tallenna_nimella()
ChDir "C:\polku"
Fname = ActiveDocument.FormField("Nimi") & ".doc"
On Error GoTo Virhe
ActiveDocumnet.SaveAs FileName:=Fname
GoTo Loppu
Virhe:
MsgBox ("Tallennus ei onnistunut")
Loppu:
End Sub
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.