[LUKKET men IKKE løst!] Skjule rammen i en textFrame?

Brugerhjælp og support til makroer i LibreOffice Basic

Redaktører: Lodahl, LarsBrandi

Besvar
SnowmanDK
Indlæg: 23
Tilmeldt: 16. jun 2009 12:16
Geografisk sted: Hammel

[LUKKET men IKKE løst!] Skjule rammen i en textFrame?

Indlæg af SnowmanDK » 27. jan 2010 12:13

Jeg har fået en opgave ind fra en ansat der har fundet følgende makro:

Kode: Vælg alt

Set objServiceManager= WScript.CreateObject("com.sun.star.ServiceManager")
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Userkey = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Volatile Environment\FullName")
Modtager = "E.N. Modtager"
Gade = "Gaden 1444"
By = "9999 Voresby"

'*******************************************
Dim args()
Set objDoc= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
Set oFrame = objDoc.createInstance( "com.sun.star.text.TextFrame" )
Set oViewCursor = objDoc.CurrentController.getViewCursor()
oPageStyleName = oViewCursor.PageStyleName
Set oPageStyles = objDoc.StyleFamilies.getByName("PageStyles")
Set oStyle = oPageStyles.getByName(oPageStyleName)
Set objText= objDoc.getText
Set objCursor= objText.createTextCursor
objText.insertString objCursor, "Kære " & Modtager & vbLf & vbLf & vbLf & vbLf & "m.v.h. " & Userkey , false
oStyle.TopMargin = 10000
oStyle.RightMargin = 5000
oStyle.BottomMargin = 1200
oStyle.FooterIsOn = False
oStyle.HeaderIsOn = False
oFrame.Width = 8000
objDoc.Text.insertTextContent objDoc.Text, oFrame, false
oFrame.AnchorType = AS_CHARACTER
oFrame.IsFollowingTextFlow = False
oFrame.HoriOrient = 0
oFrame.VertOrient = 0
oFrame.TopMargin = 0
oFrame.VertOrientPosition = -7000
oFrame.HoriOrientPosition = 0
Set oFrameCursor = oFrame.createTextCursor()
oFrameCursor.String =  Modtager & Vbcr & Gade & Vbcr & By
oFrameCursor.CharHeight="16"
oFrameCursor.CharFontName="Trebuchet MS"
oViewCursor.GoUp 3, False
Den virker efter hensigten, men den textFrame som modtagerens navn står i (den øverste) skal have en skjult ramme. Nogen der ved hvordan man gør det?
Senest rettet af SnowmanDK 6. maj 2010 15:04, rettet i alt 1 gang.

SnowmanDK
Indlæg: 23
Tilmeldt: 16. jun 2009 12:16
Geografisk sted: Hammel

Indlæg af SnowmanDK » 8. feb 2010 09:12

Hmmm.... Jeg gætter på at ingen har en ide...

lapont
Indlæg: 91
Tilmeldt: 17. sep 2004 11:37
Geografisk sted: Nordjylland

Indlæg af lapont » 8. feb 2010 10:58

lubuntu 14.04 LibreOffice 4.1.6.2

SnowmanDK
Indlæg: 23
Tilmeldt: 16. jun 2009 12:16
Geografisk sted: Hammel

Indlæg af SnowmanDK » 12. feb 2010 12:30

lapont skrev:Måske er der en løsning her:
http://www.oooforum.org/forum/viewtopic ... ame+border
Det er noget i den stil, men problemet er at det der linkes til er en intern OO makro. Det jeg skal bruge kører i et vb-script direkte.

Nogen der ved hvordan man kan omskrive det så det virker?

Besvar

Hvem er online

Brugere der viser dette forum: Bing [Bot] og 1 gæst