применение имени и пути сохранения файлу Word из Excel.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

monster_rat

Дата: Вторник, 30.10.2012, 09:43 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте. Суть проблемы в следующем, есть макрос создающий отчет по данным из Excel в Word,е. Макрос обращается к шаблону Word,а и присваивает некие значения закладкам в шаблоне. Необходимо присвоить путь для сохранения по умолчанию и имя файла.

[vba]

Code

Private Sub CommandButton8_Click()

        Dim obj As Object, tplName As String
        Const wdGoToBookmark As Long = &HFFFFFFFF

        FamIspoln = (ComboBox1.Text)
        PrichIzm = (ComboBox3.Text)
        KudRazosl = (ComboBox4.Text)
        ChifrIzv = (TextBox6.Text)
        OboznIzd = (TextBox3.Text)
        Primen = (TextBox4.Text)
        DataVip = (TextBox1.Text)
        DataZaver = (TextBox2.Text)
        zadel = (TextBox7.Text)
        kolvo = (TextBox5.Text)

        Set obj = CreateObject("Word.Application")
        tplName = "C:\izveschenia\01\000.dot"
        FamIspoln1 = "FamIspoln1"
        PrichIzm2 = "PrichIzm2"
        kodError1 = "kodError1"
        OboznIzd1 = "OboznIzd1"
        Primen1 = "Primen1"
        KudRazosl1 = "KudRazosl1"
        ChifrIzv1 = "ChifrIzv1"
        DataVip1 = "DataVip1"
        zadel1 = "zadel1"
        DataZaver1 = "DataZaver1"
        kolvo1 = "kolvo1"

        obj.Documents.Add(Template:=tplName).Activate
        With obj.Selection
          .GoTo What:=wdGoToBookmark, Name:=FamIspoln1
          .TypeText Text:=FamIspoln

          .GoTo What:=wdGoToBookmark, Name:=KudRazosl1
          .TypeText Text:=KudRazosl

          .GoTo What:=wdGoToBookmark, Name:=PrichIzm2
          .TypeText Text:=PrichIzm

          .GoTo What:=wdGoToBookmark, Name:=OboznIzd1
          .TypeText Text:=OboznIzd

          .GoTo What:=wdGoToBookmark, Name:=Primen1
          .TypeText Text:=Primen

          .GoTo What:=wdGoToBookmark, Name:=zadel1
          .TypeText Text:=zadel

          .GoTo What:=wdGoToBookmark, Name:=ChifrIzv1
          .TypeText Text:=ChifrIzv

          .GoTo What:=wdGoToBookmark, Name:=DataVip1
          .TypeText Text:=DataVip

          .GoTo What:=wdGoToBookmark, Name:=DataZaver1
          .TypeText Text:=DataZaver

          .GoTo What:=wdGoToBookmark, Name:=kolvo1
          .TypeText Text:=kolvo

          .GoTo What:=wdGoToBookmark, Name:=kodError1
          .TypeText Text:=kodError
        End With

        obj.ActiveDocument.Saved = True
        obj.Visible = True
        Set obj = Nothing
        oNewDoc.Close True
        Set oRng = oRng.GoToNext(1)

End Sub

[/vba]

Прилагаю часть кода, которая занимается выше описанным.

PS Это часть моего первого макроса, по этому если что то лишнее просьба "понять и простить" и указать на недочеты по возможности и желанию.

[vba]

Code

[/vba]

Один злой мальчик при каждом падении звезды загадывал падение еще одной и за выходные уничтожил целую галактику.

Сообщение отредактировал monster_rat - Вторник, 30.10.2012, 09:46

Ответить

СообщениеЗдравствуйте. Суть проблемы в следующем, есть макрос создающий отчет по данным из Excel в Word,е. Макрос обращается к шаблону Word,а и присваивает некие значения закладкам в шаблоне. Необходимо присвоить путь для сохранения по умолчанию и имя файла.

[vba]

Code