• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы alb
  • Дата начала
A

alb

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

DNT

Для: alb

хелп Microsoft Visual Basic !?

или не то?
 
M

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
 
A

alb

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

morpheus

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

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

 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!