VBNet - Форум - Компиляция проекта в VBA

Вопрос: Компиляция проекта в VBA Добавлено: 24.03.08 11:07

Автор вопроса: DeF

народ хелп.
написал прожку которая по введенным данным в форму создает докворд. использовался некий шаблон.dot с закладками. макросы записал в normal.dot
но организовалась проблемка: на другом компе не находит то ли проект то ли библиотеку ссылаясь на
set range1=бла бла бла

ВОПРОС: как скомпилять проект в ехе
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| Цитата \| #1	Добавлено: 24.03.08 13:05
	В VBA никак. На кажлом компе свой офис, свой ворд и конечно же свой normal.dot, в котором нет твоих макросов. Может косяк из за этого. Если будешь писать бла бла бла, ответ будет Х/З. Ответить

Номер ответа: 2 Автор ответа: DeF Вопросов: 1 Ответов: 1	Профиль \| Цитата \| #2	Добавлено: 24.03.08 14:10
	Dim aDoc As Document Dim i As Integer Dim kol(10) As Integer Dim Cen(10) As Integer Dim Naim(10) As String Public Sub UserForm_Initialize() i = 0 CmbBoxNaim.AddItem "Втулка" CmbBoxNaim.AddItem "Подшипник" CmbBoxNaim.AddItem "сетка" CmbBoxNaim.AddItem "еще какая нить поебень" End Sub Private Sub CommandButton1_Click() kol(i) = CInt(txtKol.Value) Cen(i) = CInt(txtCen.Value) Naim(i) = CmbBoxNaim.Value i = i + 1 End Sub Private Sub CommandButton2_Click() Set aDoc = Application.Documents.Add("C:\Akt1.dot" Dim j As Integer 'Генерим таблицу с 8 чтолбиками и 10 строками и форматим ее Set Range2 = aDoc.Bookmarks("aTab".Range 'ВОТ ТУТ не находит библятеку Dim Table1 As Table Set Table1 = aDoc.Tables.Add(Range2, 10, 8) Table1.Rows.Height = 20 Table1.Rows(1).Height = CentimetersToPoints(2) Table1.Columns(1).Width = CentimetersToPoints(0.8) Table1.Columns(2).Width = CentimetersToPoints(5) Table1.Columns(3).Width = CentimetersToPoints(1.5) Table1.Columns(4).Width = CentimetersToPoints(2) Table1.Columns(5).Width = CentimetersToPoints(2) Table1.Columns(6).Width = CentimetersToPoints(2) Table1.Columns(7).Width = CentimetersToPoints(2) Table1.Columns(8).Width = CentimetersToPoints(2) With Table1 With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorAutomatic End With .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomatic End With Table1.Cell(1, 1).Range.Text = "№" Table1.Cell(1, 2).Range.Text = "Наименование" Table1.Cell(1, 3).Range.Text = "Кол-во" Table1.Cell(1, 4).Range.Text = "Цена без НДС руб." Table1.Cell(1, 5).Range.Text = "Сумма без НДС руб." Table1.Cell(1, 6).Range.Text = "Ставка НДС руб." Table1.Cell(1, 7).Range.Text = "Сумма НДС руб." Table1.Cell(1, 8).Range.Text = "Сумма с НДС руб." 'сгенерили таблицу For j = 2 To (i + 1) Table1.Cell(j, 1).Range.Text = CStr(j - 1) Table1.Cell(j, 2).Range.Text = Naim(j - 2) Table1.Cell(j, 3).Range.Text = CStr(kol(j - 2)) Table1.Cell(j, 4).Range.Text = CStr(Cen(j - 2)) Table1.Cell(j, 5).Range.Text = CStr(kol(j - 2) * Cen(j - 2)) Table1.Cell(j, 6).Range.Text = CStr(18) Table1.Cell(j, 7).Range.Text = CStr(kol(j - 2) * Cen(j - 2) * 0.18) Table1.Cell(j, 8).Range.Text = CStr(Cen(j - 2) * kol(j - 2) * 0.18 + kol(j - 2) * Cen(j - 2)) Next aDoc.Bookmarks("aNakt".Range.Text = txtNakt.Value aDoc.Bookmarks("aNdog".Range.Text = txtnDog.Value aDoc.Bookmarks("aNdov".Range.Text = txtnDov.Value aDoc.Bookmarks("aRab".Range.Text = txtRab.Value aDoc.Bookmarks("aSrDog".Range.Text = txtSrDog.Value aDoc.Bookmarks("aSrDov".Range.Text = txtSrDov.Value aDoc.Bookmarks("aRem".Range.Text = txtRem.Value aDoc.Bookmarks("aSum".Range.Text = txtSum.Value aDoc.Bookmarks("aZak".Range.Text = txtZak.Value FormAkt.Hide aDoc.Activate End Sub Private Sub CommandButton3_Click() FormAkt.Hide End Sub Ответить

Страница: 1 |