Сделать документ пустым\чистым, поместить на него вывод

[Ципихович Эндрю]

здравствуйте, подскажите новичку в либре, как:
1 сделать документ пустым\чистым
2 поместить на него вывод
спасибо

[bigor]

Новичку, если интересно, полезнее Питоньяка почитать.
Код с учетом 1 и 2

Код Выделить Развернуть

sub filesort
Dim arr, arr1
Dim i As Long, sDir, fn As String
Dim sFileName
Dim Dummy()
Dim Url As String
Dim Doc As Object
sDir="/home/bigor/Test1/"
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
sfilename=files(sDir)
redim arr(1,ubound(sfilename))
for i= 0 to ubound(sfilename)
arr(0,i)=int(split(getname(sfilename(i)),".")(0))
arr(1,i)=convertfromurl(sfilename(i))
Next
fn=""
arr1=sortcolumns(arr,0)
for i=0 to ubound(sfilename)
fn= fn & arr1(1,i) &chr(13)
next

Url = "private:factory/swriter"
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
Doc.Text.string=fn
end sub

[Ципихович Эндрю]

спасибо

Питоньяка почитать

это что такое, можно ссылку?

[bigor]

можно ссылку

здесь посмотрите

[Ципихович Эндрю]

спасибо на днях посмотрю))
честно говоря зная основы вордовского вба на либре не так просто вкурить
так я так и не понял, зачем эти телодвижения - открыть новый документ, я ведь и так нахожусь в документе, как выложенное:

Код Выделить Развернуть

Dim Url As String
' устанавливает переменную Url на значение "private:factory/swriter", это значение представляет URL-адрес для открытия нового документа Writer
Url = "private:factory/swriter"
' метод loadComponentFromURL() объекта StarDesktop, чтобы открыть новый документ Writer
' метод loadComponentFromURL() принимает четыре параметра:
' Url: URL-адрес для открытия документа
' WindowMode: режим открытия документа, егоозможные значения:
' _blank: документ открывается в новом окне.
' _modal: документ открывается в модальном окне.
' _modeless: документ открывается в немодальном окне.
' Arguments: аргументы, которые будут переданы документу при открытии, что означает, что документ будет открыт без аргументов
' Parent: родительский объект, в который будет вставлен документ, равен Dummy(), что означает, что документ не будет вставлен в какой-либо родительский объект
Dim Doc As Object
Dim Dummy()
Doc = StarDesktop.loadComponentFromURL(Url, "_blank", 0, Dummy())
' значение свойства string объекта Text документа Doc на значение переменной ххх, свойство string представляет текст документа
Doc.Text.string=sFiles_printсделать в активном документе - сделать его пустым\чистым, поместить в него нужное

[bigor]

я ведь и так нахожусь в документе

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

Код Выделить Развернуть

Doc.Text.string=""
Doc.Text.string=sFiles_print

[Ципихович Эндрю]

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

Код Выделить Развернуть

Sub Макрос1()
   ActiveDocument.Range = "вывод"
End Sub
Sub Макрос2()
    ActiveDocument.Range = ""
    ActiveDocument.Range = "вывод"
End Sub
Sub Макрос3()
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    ActiveDocument.Range = "вывод"
End Subможно их перевести в либру? спасибо

[bigor]

Код Выделить Развернуть

sub Macros1
ThisComponent.Text.string="вывод"
end sub

[Ципихович Эндрю]

то, что доктор прописал-спасибо