Страница: 1 |
Вопрос: Компиляция проекта в VBA | Добавлено: 24.03.08 11:07 |
Автор вопроса: ![]() |
народ хелп.
написал прожку которая по введенным данным в форму создает докворд. использовался некий шаблон.dot с закладками. макросы записал в normal.dot но организовалась проблемка: на другом компе не находит то ли проект то ли библиотеку ссылаясь на set range1=бла бла бла ВОПРОС: как скомпилять проект в ехе |
Ответы | Всего ответов: 2 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() Вопросов: 13 Ответов: 348 |
Профиль | Цитата | #1 | Добавлено: 24.03.08 13:05 |
В VBA никак. На кажлом компе свой офис, свой ворд и конечно же свой normal.dot, в котором нет твоих макросов. Может косяк из за этого. Если будешь писать бла бла бла, ответ будет Х/З. |
Номер ответа: 2 Автор ответа: ![]() ![]() Вопросов: 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" ![]() 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" ![]() aDoc.Bookmarks("aNdog" ![]() aDoc.Bookmarks("aNdov" ![]() aDoc.Bookmarks("aRab" ![]() aDoc.Bookmarks("aSrDog" ![]() aDoc.Bookmarks("aSrDov" ![]() aDoc.Bookmarks("aRem" ![]() aDoc.Bookmarks("aSum" ![]() aDoc.Bookmarks("aZak" ![]() FormAkt.Hide aDoc.Activate End Sub Private Sub CommandButton3_Click() FormAkt.Hide End Sub |
Страница: 1 |
|