Как правильно адаптировать код

[alb]

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

 

[DNT]

Для: alb

хелп Microsoft Visual Basic !?

или не то?

 

[morpheus]

<!--QuoteBegin-DNT+16:08:2007, 16:52 -->
<span class="vbquote">(DNT @ 16:08:2007, 16:52 )</span><!--QuoteEBegin-->хелп Microsoft Visual Basic !?

или не то?

[snapback]75508" rel="nofollow" target="_blank[/snapback]​

[/quote]
то -то, а есче msdn.ru

 

[alb]

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

 

[morpheus]

Для: alb
ну тады надо включаться логику

 

[alb]

нашел все таки правилу,вернее я читал этот документ ранше но видимо не внимательно. пишу макрос копируюнужный кусок кода и согласно приведенной ниже правилу перевожу на лотус скрипт, пока что все идет в нормально.
автор Андрей Черепанов, и спасибо ему большое

Форма записи у MS Word и LS несколько различается:
Microsoft Word:

FilePageSetup .Tab = "0", .PaperSize = "9", .TopMargin = "2,5 см", .BottomMargin = "2,5 см", .LeftMargin = "3 см", .RightMargin = "3 см", .Gutter = "0 см", .PageWidth = "21 см", .PageHeight = "29,7 см", .Orientation = 0, .FirstPage = 0, .OtherPages = 0, .VertAlign = 0, .ApplyPropsTo = 4, .FacingPages = 0, .HeaderDistance = "1,25 см", .FooterDistance = "1,25 см", .SectionStart = 2, .OddAndEvenPages = 0, .DifferentFirstPage = 0, .Endnotes = 0, .LineNum = 0, .StartingNum = "", .FromText = "", .CountBy = "0", .NumMode = -1

TableInsertTable .ConvertFrom = "", .NumColumns = "3", .NumRows = "1", .InitialColWidth = "Auto", .Format = "0", .Apply = "167"

LineDown 1



Для LotusScript:
wObj.FilePageSetup “0”, “9”, "2.5", "2.5", "3", "3", "0", "21", "29.7", 0
wObj.TableInsertTable 0, 3, 1
wObj.LineDown 1

Ссылка скрыта от гостей