[T-Yoke]

Выложена для скачивания новая версия OpenOffice_2.4.0

Вот ссылки для прямой загрузки
Скачать (без Java) - 99,4 Мб
http://download.i-rs.ru/pub/openoffi...l_ru_infra.exe
Скачать (с Java) - 113,6 Мб
http://download.i-rs.ru/pub/openoffi...infra_wJRE.exe
Скачать (Portable) - 73,4 Мб
http://download.i-rs.ru/pub/openoffi...e_ru_infra.exe

[_Oleg_]

T-Yoke, спасибо.
Проблема состоит в том, что Микрософт Офис 2003 уже не продается, а связываться с 2007 особого желания нет. Скорее всего буду ставить на машину с АВК 3 Опен Офис. Думаю должно работать. Предваритеельно проконсультируюсь с разработчиками АВК. О результатах сообщу.

[vikont-tr]

Лично для меня основным преимуществом ОупенОфиса является возможности объединить в Райтере некоторых возможностей MS Ворд и Эксель. До знакомства с ОО только и приходилось мечтать о возможностях работы с переменными, которые предоставляет Райтер.
В MS Ворде задать переменную, вставить ее в текст или в формулу тоже можно, но гораздо сложнее.

Сообщение от vikont-tr В MS Ворде задать переменную, вставить ее в текст или в формулу тоже можно, но гораздо сложнее.

Да, это достаточно прикольная функция. Где то тут спорили о замене Маткада Жаль что основная масса людей достаточно ограничена в психологическом смысле.
Но на самом деле, что в ООо, что в MSO реально офигенные возможности предоставляются бейсиком.

Вернее - лучше делать вот так: (см. пример).
Но таким образом удобно вводить только несложные формулы в виде текстовых или числ. функций. На практике гораздо удобней вставлять во Writer блоки электронных таблиц и все вычисления производить средствами и по правилам Calc, а Writer использовать для красивой оформляловки и пояснений.

[vikont-tr]

Кроме этого переменным можно присваивать текстовые значения тоже очень удобно для однообразных операций

[YRat]

Не все там так радужно, не все.. но, думаю, что это пока что)

[Samar]

T-Yoke,
По какой сцылке скачивать?
Чем отличаются?
И можно ли попробовать если стоит МО?

[Солидворкер]

Сообщение от Samar T-Yoke, По какой сцылке скачивать? Чем отличаются? И можно ли попробовать если стоит МО?

Качать по той ссылке, какая тебе нужна:
без Java (если Java уже есть в системе), с Java или портативную версию (работает без установки).
А при чем тут стоит МО или не стоит?

[Samar]

Солидворкер,
Не будет клинить с МО?
И можно ли будет проверить совместимость файлов на 1 компе?

[Солидворкер]

Сообщение от Samar Солидворкер, Не будет клинить с МО? И можно ли будет проверить совместимость файлов на 1 компе?

Клинить не будет.

[Кулик Алексей aka kpblc]

Небольшое уточнение: если сначала был поставлен MS Office 2003, потом OpenOffice (и сказано "открывать файлы Word / Excel / PowrePoint в ОО), а потом установлен SP для MS Office и он обновлен до 2007, возможно, что клинить будет: время открытия файла через Проводник может увеличиться до 5-6 минут. Проворачивал на Windows XP Pro + SP2 + все обновления, вышедшие до SP3. Возможно, там просто машина была уже в таком состоянии, что ее было проще убить, чем вылечить.
Вывод у меня получился таков: сначала по нормальному установить 1 офис, потом - другой. Тогда все хорошо.

[Samar]

Сообщение от Jerald При выгрузке из технических программ в ОО часто бывают глюки, которые вручную править нереально(считай придется еще одного человека сажать, зарплата которого за месяц = 1 лицензии MS Office). Для бухгалтерии ОО не подходит - интеграции никакой, если в Calc приходится работать с тысячами записей, конкуренции не выдерживает совершенно. Так что MS не зря просят такие деньги.

2 года стоит ОО с 1С, бухгалтер попищала, потом ничего, если все отработано, то какая разница?
Сам поставил, тестю месяц, есть конечно минусы большие
- отсутствие присутствия виртуального принтера МО document image writer,
- долго грузится, медленно работает
Ну как нибудь выкрутимся.

[Хворобьев]

Сообщение от Samar 2 года стоит ОО с 1С, бухгалтер попищала .

Бухгалтеру как раз, возможно и стоило прикупить ООо - ей чаще приходится работать с форматами Word/Excel.

Зачем, если есть pdf принтеры??? Встроенный в ООо или PDFCreator ?

Сообщение от Samar - долго грузится, медленно работает.

Работает он достаточно быстро, если не конвертирует файлы по ходу.
Эта проблема решается переходом на форматы .odt, .ods

[Samar]

- отсутствие присутствия виртуального принтера МО document image writer, -
Привык я к нему:-)
Очень удобно с АСАДа в формат ТифФ было через МДИ переводить - получаются картинки великолепного качества и весят всего ничего (до 100Кб) и потом можно кидать куда хочешь.
А формат ПДФ недостаточно удобен для меня.

[Хворобьев]

Сообщение от Samar Очень удобно с АСАДа в формат ТифФ было через МДИ переводить - получаются картинки великолепного качества и весят всего ничего (до 100Кб) .

Есть даже бесплатные программы по конвертированию тиффов и проч. с разными опциями и в разные разновидности. Просто вам кто то показал и вы привыкли именно в таком порядке... не вдаваясь почему один весит 100 мб, а другой 100 кб
Я тоже так делал, на заре освоения компьютера.
Да и нужен ли тифф, когда Акробат стоит на 99% компов.

[Samar]

Сообщение от Хворобьев ... Я тоже так делал, на заре освоения компьютера. Да и нужен ли тифф, когда Акробат стоит на 99% компов.

Кроме того, с Автокада через МДИ можно не только чисто ч/б графику кидать, но и тонированное изображение, причем с неплохим катчеством (наподобие рендера), но намного быстрее.
К сожалению про автокад надо забыть (осваивать зверькад),
про МО тоже...

[Хворобьев]

Вот - между делом нашел пример вставки Math-формул в Calc

http://www.oooforum.org/forum/viewtopic.phtml?t=62787

Following is an example of how to make a thecnical report inserting by macro both calc-formula and math-formula.

Код:

[Выделить все]

Dim oCell As Object 
Dim oCellCursor As Object 
Dim oDoc As Object 
Dim RangeAddr As Object 
Dim oSheets As Object 
Dim oSheet As Object 
Dim DrawPage As Object 
Dim NamedRanges As Object 
Dim NamedRange As Object 
Dim CellRange As Object 
Dim aCellAddress As Object 
Dim oShape As Object 
Dim EmbeddedObject As Object 
Dim MathFormula As Object 
Dim ColumnOfCalcFormula% 
Dim ColCodeOfCalcFormula$ 
Dim ColumnOfMathFormula% 
Dim ColumnOfUnitsOfMeasure% 
Dim ColumnOfVariableName% 
Dim RowNumber% 
Dim decimalSeparator$ 
Dim aLocale As Object 

Sub MATHEXAMPLE() 
Dim i% 
oDoc = ThisComponent 
oSheets = oDoc.getSheets 
oSheet = oSheets.getByIndex(0) 
DrawPage = oSheet.getDrawPage 
oSheet.clearContents &HFF 
oSheet.CharFontName = "Arial" 
oSheet.CharHeight = 12 
oSheet.CharWeight = com.sun.star.awt.FontWeight.BOLD 
Dim oSrv As Object 
aLocale = oDoc.CharLocale 
oSrv = createUnoService("com.sun.star.i18n.LocaleData") 
decimalSeparator = oSrv.getLocaleItem(aLocale).decimalSeparator 
ColCodeOfCalcFormula = "B" 
ColumnOfCalcFormula = Asc(ColCodeOfCalcFormula) - Asc("A") 
ColumnOfMathFormula = 3 
ColumnOfUnitsOfMeasure = 2 
ColumnOfVariableName = 0 
RowNumber = 1 
PutCommentLine "Stress calculation as C profile beam" 
PutCommentLine "      (uniform load distribution, free bending at ends)" 
PutCommentLine "Load over the beam, [Newton]" 
PutFormula Formula:="P : 1113", units:="N" 
PutCommentLine "Thickness of beam mm" 
PutFormula Formula:="SPL : 2", units:="mm" 
PutCommentLine "Height of beam mm" 
PutFormula Formula:="H : 190", units:="mm" 
PutCommentLine "Width of beam mm" 
PutFormula Formula:="B : 25", units:="mm" 
PutCommentLine "Moment of inertia" 
PutFormula Formula:="I=1 over 12*((B * H ^3)-(B - SPL)*(H -2* SPL)^3)", units:="mm4" 
PutCommentLine "Moment of resistence" 
PutFormula Formula:="W=I over H*2", units:="mm3" 
PutCommentLine "Length of beam mm" 
PutFormula Formula:="A : 635", units:="mm" 
PutCommentLine "Stress Mpa" 
PutFormula Formula:="kf=( P * A ) over (8* W )", units:="Mpa" 
For i = 1 To 2 
    oSheet.getColumns.getByIndex(i).OptimalWidth = True 
Next 
End Sub 


Sub PutFormula(Formula$, units$, Optional ByVal CellsOfFormulaHeight As Variant) 
If IsMissing(CellsOfFormulaHeight) Then CellsOfFormulaHeight = 1! 
Dim aContent$, CellVal# 
Dim CalcFormula$, VariableName$, DirectValue As Boolean 
Dim i% 
i = InStr(Formula, "=") 
DirectValue = False 
If i < 1 Then 
   i = InStr(Formula, ":") 
   DirectValue = True 
   Mid$(Formula, i,1,"=") 
end if 
If i < 1 Then Exit Sub 
VariableName = Trim$(Left$(Formula, i - 1)) 
oCell = oSheet.getCellByPosition(ColumnOfVariableName, RowNumber) 
oCell.setString VariableName + " =" 
oCell = oSheet.getCellByPosition(ColumnOfUnitsOfMeasure, RowNumber) 
oCell.setString units 
oCell = oSheet.getCellByPosition(ColumnOfCalcFormula, RowNumber) 
CalcFormula = Trim$(Mid$(Formula, i + 1)) 
i = InStr(CalcFormula, "over") 
If i > 0 Then 
    CalcFormula = Left$(CalcFormula, i - 1) + "/" + Mid$(CalcFormula, i + 4) 
    If IsMissing(CellsOfFormulaHeight) Then CellsOfFormulaHeight = 1.5 
End If 
If DirectValue Then 
    oCell.SetValue val(CalcFormula) 
Else 
    oCell.setFormula "=" & CalcFormula 
    oDoc.calculate 
End If 
CellVal = oCell.getValue 
If CellVal > 1000000# Then 
    oCell.NumberFormat = FormatNum("0" & decimalSeparator & "0000E+00") 
ElseIf CellVal > 10000# Then 
    oCell.NumberFormat = FormatNum("0") 
ElseIf CellVal > 10000# Then 
    oCell.NumberFormat = FormatNum("0") 
ElseIf (CellVal = Int(CellVal)) Then 
    oCell.NumberFormat = FormatNum("0") 
ElseIf CellVal > 0.1 Then 
    oCell.NumberFormat = FormatNum("0" & decimalSeparator & "000") 
ElseIf CellVal > 0.001 Then 
    oCell.NumberFormat = FormatNum("0" & decimalSeparator & "000000") 
Else 
    oCell.NumberFormat = FormatNum("0" & decimalSeparator & "0000E+00") 
End If 
aCellAddress = oCell.getCellAddress 
aContent = "$" & ColCodeOfCalcFormula & "$" + Format(RowNumber + 1) 
aContent = "$" & oSheet.getName & "." & aContent & ":" & aContent 
NamedRanges = oDoc.NamedRanges 
If NamedRanges.hasByName(VariableName) Then NamedRanges.removeByName VariableName 
NamedRanges.addNewByName VariableName, aContent, aCellAddress, 0 
If Not DirectValue Then 
    oCell = oSheet.getCellByPosition(ColumnOfMathFormula, RowNumber) 
    oShape = oDoc.createInstance("com.sun.star.drawing.OLE2Shape") 
    apoint = oCell.Position 
    asize = oCell.Size 
    apoint.y = apoint.y - asize.Height * ((CellsOfFormulaHeight - 1) / 2) 
    'asize.Height = asize.Height * CellsOfFormulaHeight 
    asize.Width = asize.Height 
    oShape.setPosition apoint 
    oShape.setSize asize 
    DrawPage.Add oShape 
    oShape.CLSID = "078B7ABA-54FC-457F-8551-6147e776a997" 
    EmbeddedObject = oShape.EmbeddedObject 
    MathFormula = EmbeddedObject.getComponent 
    oShape.SizeProtect = False 
    oShape.MoveProtect = False 
    MathFormula.Formula = Formula 
    MathFormula.BaseFontHeight = 8 
    MathFormula.Alignment = 1 'center 
    MathFormula.BottomMargin = 0 
    MathFormula.FontFixedIsBold = False 
    MathFormula.FontFixedIsItalic = False 
    MathFormula.FontFunctionsIsBold = False 
    MathFormula.FontFunctionsIsItalic = False 
    MathFormula.FontNameFunctions = "Arial" 
    MathFormula.FontNameNumbers = "Arial" 
    MathFormula.FontNameText = "Arial" 
    MathFormula.FontVariablesIsItalic = False 
    MathFormula.FontVariablesIsBold = False 
    MathFormula.LeftMargin = 0 
    MathFormula.RelativeFractionBarExcessLength = 0 
    MathFormula.RelativeFractionBarLineWeight = 0 
    MathFormula.RelativeOperatorExcessSize = 0 
    MathFormula.RightMargin = 0 
    MathFormula.TopMargin = 0 
End If 
RowNumber = RowNumber + CellsOfFormulaHeight 
End Sub 


Sub PutCommentLine(Comment As String) 
oCell = oSheet.getCellByPosition(0, RowNumber) 
oCell.setString Comment 
RowNumber = RowNumber + 1 
End Sub 

Function FormatNum(ByVal sFormat As String) As Long 
Dim oFormats As Object 
oFormats = oDoc.getNumberFormats() 
FormatNum = oFormats.queryKey(sFormat, aLocale, True) 
If (FormatNum = -1) Then 
    FormatNum = oFormats.addNew(sFormat, aLocale) 
    If (FormatNum = -1) Then FormatNum = 0 
End If 
End Function

[Александр Бауск]

Здорово. Практически MathCAD.

[Хворобьев]

Опен -Бейсик вообще кстати рулит: сочетает в себе (простоту, кроссплатформенность, консервативность, бесплатность-открытость, поддерживаемость и книгоописанность). Я долго находился в поиске среды для программирования инженерных расчетов. В Экселе в новых версиях мои старые наработки нужно было переделывать. Вижуал Бейсик оказался на грани того, чтобы приказать долго жить. В общем когда я узнал, что все еще и денег стоит ...
Теперь моя душенька довольна. Хотя я в нем дуб-дубом, но для зарабатывания куска колбасы хватает.

[Profan]

Open Office 3.0 открывает файлы *.docx.