Dim GVeri, strTemplateLocation As String



GVeri = InputBox("", "Konusunu Gir", "")



If GVeri = "gbt" Then



strTemplateLocation = CurrentProject.Path & "\gbt.doc"



'word belgesini açtırma ve yer imlerine veri aktarma kodları





ElseIf GVeri = "kan" Then



strTemplateLocation = CurrentProject.Path & "\kan.doc"



'word belgesini açtırma ve yer imlerine veri aktarma kodları



End If

Şeklinde kod ekleyiniz. Butona tıkladığınızda input açılır gbt yazdığınızda gbt.doc açılır. Veri aktarma kodlarını eklemelisiniz.