Sub CommandButton1_Click()
Call sozdpapki
End Sub

Sub sozdpapki()

HomeDir = ThisWorkbook.Path
Dim aaaa As Integer
aaaa = ActiveSheet.Range("B4")
sPath$ = HomeDir & "\Ãîòîâî\çàïðîñ_¹_" & aaaa
    On Error Resume Next
    GetAttr (sPath)   ' åñëè ïàïêà íå ñóùåñòâóåò, òî áóäåò îøèáêà
    If Err Then MkDir sPath ' åñëè áûëà îøèáêà, òî ñîçäàòü ïàïêó
Call zapolnenie
End Sub

Sub zapolnenie()
                                                
          
Dim sOM As String, sDocNum As String
Dim WordApp As Object
                                        
 HomeDir = ThisWorkbook.Path
 Dim bbbb As String
 bbbb = ActiveSheet.Range("B4")
 a = HomeDir + "\ØÀÁËÎÍÛ\6_ÀÊÒ_ÏÐÎÖÅÄÓÐÛ_ÂÑÊÐÛÒÈß_ÊÎÍÂÅÐÒÎÂ" + ".doc"
 b = HomeDir + "\Ãîòîâî" + "\çàïðîñ_¹_" + bbbb + "\6_ÀÊÒ_ÏÐÎÖÅÄÓÐÛ_ÂÑÊÐÛÒÈß_ÊÎÍÂÅÐÒÎÂ" + ".doc"
 FileCopy Source:=a, Destination:=b
 sOM = b
              
                                            ThisWorkbook.Worksheets("Ôîðìà_ó÷àñòíèêîâ").Select
                                            xxx_Naimenovanie_uchastnika_N1 = Range("$M$2").Value
                                            xxx_Naimenovanie_uchastnika_N2 = Range("$O$2").Value
                                            xxx_Naimenovanie_uchastnika_N3 = Range("$Q$2").Value
                                            xxx_yur_adres_uchastnika_N1 = Range("$M$3").Value
                                            xxx_yur_adres_uchastnika_N2 = Range("$O$3").Value
                                            xxx_yur_adres_uchastnika_N3 = Range("$Q$3").Value
                                            xxx_N_zakupki = Range("$B$4").Value
                                            xxx_INN_uchastnika_N1 = Range("$M$4").Value
                                            xxx_INN_uchastnika_N2 = Range("$O$4").Value
                                            xxx_INN_uchastnika_N3 = Range("$Q$4").Value
                                            xxx_data_vremya_postup_N1 = Range("$M$5").Value
                                            xxx_data_vremya_postup_N2 = Range("$O$5").Value
                                            xxx_data_vremya_postup_N3 = Range("$Q$5").Value
                                            xxx_Tsena_uch_N1_bez_NDS = Range("$L$7").Value
                                            xxx_Tsena_uch_N1 = Range("$M$7").Value
                                            xxx_Tsena_uch_N2_bez_NDS = Range("$N$7").Value
                                            xxx_Tsena_uch_N2 = Range("$O$7").Value
                                            xxx_Tsena_uch_N3_bez_NDS = Range("$P$7").Value
                                            xxx_Tsena_uch_N3 = Range("$Q$7").Value
                                            xxx_Tsena_uch_N1_peretorzh_bez_NDS = Range("$T$7").Value
                                            xxx_Tsena_uch_N1_peretorzh = Range("$U$7").Value
                                            xxx_Tsena_uch_N2_peretorzh_bez_NDS = Range("$V$7").Value
                                            xxx_Tsena_uch_N2_peretorzh = Range("$W$7").Value
                                            xxx_Tsena_uch_N3_peretorzh_bez_NDS = Range("$X$7").Value
                                            xxx_Tsena_uch_N3_peretorzh = Range("$Y$7").Value
                                            xxx_data_izvescheniya_o_zakupke = Range("$E$8").Value
                                            xxx_posledniy_den_podachi = Range("$F$8").Value
                                            xxx_data_vskryitiya_konvertov = Range("$G$8").Value
                                            xxx_data_otborochnoy_stadii = Range("$H$8").Value
                                            xxx_data_otsechnoy_stadii = Range("$I$8").Value
                                            xxx_predmet_dogovora = Range("$B$11").Value
                                            xxx_nomer__izvescheniya_o_zakupke = Range("$D$11").Value
                                            xxx_predmet_zakupki_Lot_N_1 = Range("$B$12").Value
                                            xxx_predmet_zakupki_Lot_N_2 = Range("$D$12").Value
                                            xxx_N_lota_Plana_zakupkiN1 = Range("$B$13").Value
                                            xxx_N_lota_Plana_zakupkiN2 = Range("$D$13").Value
                                            xxx_NMTs_dogovora = Range("$B$14").Value
                                            xxx_NMTs_lotaN1 = Range("$B$15").Value
                                            xxx_NMTs_lotaN2 = Range("$D$15").Value
                                            xxx_data_vnes_izmeneniy = Range("$B$19").Value
    
    
    On Error Resume Next
    Set WordApp = GetObject("word.application")
    If WordApp Is Nothing Then
        Set WordApp = CreateObject("word.application")
    End If
    On Error GoTo 0
    With WordApp
        .Visible = True
        .Documents.Open Filename:=sOM
    End With


                                        

                                    On Error Resume Next
                                    WordApp.ActiveDocument.Bookmarks("zzz_Naimenovanie_uchastnika_N1").Range.Text = xxx_Naimenovanie_uchastnika_N1
                                    WordApp.ActiveDocument.Bookmarks("zzz_Naimenovanie_uchastnika_N2").Range.Text = xxx_Naimenovanie_uchastnika_N2
                                    WordApp.ActiveDocument.Bookmarks("zzz_Naimenovanie_uchastnika_N3").Range.Text = xxx_Naimenovanie_uchastnika_N3
                                    WordApp.ActiveDocument.Bookmarks("zzz_yur_adres_uchastnika_N1").Range.Text = xxx_yur_adres_uchastnika_N1
                                    WordApp.ActiveDocument.Bookmarks("zzz_yur_adres_uchastnika_N2").Range.Text = xxx_yur_adres_uchastnika_N2
                                    WordApp.ActiveDocument.Bookmarks("zzz_yur_adres_uchastnika_N3").Range.Text = xxx_yur_adres_uchastnika_N3
                                    WordApp.ActiveDocument.Bookmarks("zzz_N_zakupki").Range.Text = xxx_N_zakupki
                                    WordApp.ActiveDocument.Bookmarks("zzz_INN_uchastnika_N1").Range.Text = xxx_INN_uchastnika_N1
                                    WordApp.ActiveDocument.Bookmarks("zzz_INN_uchastnika_N2").Range.Text = xxx_INN_uchastnika_N2
                                    WordApp.ActiveDocument.Bookmarks("zzz_INN_uchastnika_N3").Range.Text = xxx_INN_uchastnika_N3
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_vremya_postup_N1").Range.Text = xxx_data_vremya_postup_N1
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_vremya_postup_N2").Range.Text = xxx_data_vremya_postup_N2
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_vremya_postup_N3").Range.Text = xxx_data_vremya_postup_N3
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N1_bez_NDS").Range.Text = xxx_Tsena_uch_N1_bez_NDS
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N1").Range.Text = xxx_Tsena_uch_N1
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N2_bez_NDS").Range.Text = xxx_Tsena_uch_N2_bez_NDS
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N2").Range.Text = xxx_Tsena_uch_N2
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N3_bez_NDS").Range.Text = xxx_Tsena_uch_N3_bez_NDS
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N3").Range.Text = xxx_Tsena_uch_N3
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N1_peretorzh_bez_NDS").Range.Text = xxx_Tsena_uch_N1_peretorzh_bez_NDS
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N1_peretorzh").Range.Text = xxx_Tsena_uch_N1_peretorzh
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N2_peretorzh_bez_NDS").Range.Text = xxx_Tsena_uch_N2_peretorzh_bez_NDS
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N2_peretorzh").Range.Text = xxx_Tsena_uch_N2_peretorzh
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N3_peretorzh_bez_NDS").Range.Text = xxx_Tsena_uch_N3_peretorzh_bez_NDS
                                    WordApp.ActiveDocument.Bookmarks("zzz_Tsena_uch_N3_peretorzh").Range.Text = xxx_Tsena_uch_N3_peretorzh
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_izvescheniya_o_zakupke").Range.Text = xxx_data_izvescheniya_o_zakupke
                                    WordApp.ActiveDocument.Bookmarks("zzz_posledniy_den_podachi").Range.Text = xxx_posledniy_den_podachi
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_vskryitiya_konvertov").Range.Text = xxx_data_vskryitiya_konvertov
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_otborochnoy_stadii").Range.Text = xxx_data_otborochnoy_stadii
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_otsechnoy_stadii").Range.Text = xxx_data_otsechnoy_stadii
                                    WordApp.ActiveDocument.Bookmarks("zzz_predmet_dogovora").Range.Text = xxx_predmet_dogovora
                                    WordApp.ActiveDocument.Bookmarks("zzz_nomer__izvescheniya_o_zakupke").Range.Text = xxx_nomer__izvescheniya_o_zakupke
                                    WordApp.ActiveDocument.Bookmarks("zzz_predmet_zakupki_Lot_N_1").Range.Text = xxx_predmet_zakupki_Lot_N_1
                                    WordApp.ActiveDocument.Bookmarks("zzz_predmet_zakupki_Lot_N_2").Range.Text = xxx_predmet_zakupki_Lot_N_2
                                    WordApp.ActiveDocument.Bookmarks("zzz_N_lota_Plana_zakupkiN1").Range.Text = xxx_N_lota_Plana_zakupkiN1
                                    WordApp.ActiveDocument.Bookmarks("zzz_N_lota_Plana_zakupkiN2").Range.Text = xxx_N_lota_Plana_zakupkiN2
                                    WordApp.ActiveDocument.Bookmarks("zzz_NMTs_dogovora").Range.Text = xxx_NMTs_dogovora
                                    WordApp.ActiveDocument.Bookmarks("zzz_NMTs_lotaN1").Range.Text = xxx_NMTs_lotaN1
                                    WordApp.ActiveDocument.Bookmarks("zzz_NMTs_lotaN2").Range.Text = xxx_NMTs_lotaN2
                                    WordApp.ActiveDocument.Bookmarks("zzz_data_vnes_izmeneniy").Range.Text = xxx_data_vnes_izmeneniy
                                    WordApp.ActiveDocument.Bookmarks("óäàëèòü").Range.Text = ""


       
        WordApp.ActiveDocument.Save
        WordApp.ActiveDocument.Close
        WordApp.Quit

    
End Sub