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

Brugerhjælp og support til makroer i LibreOffice Basic

Moderators: Lodahl, LarsBrandi

Post Reply
SnowmanDK
Posts: 23
Joined: Tue Jun 16, 2009 11:16
Location: Hammel

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

Post by SnowmanDK » Wed Jan 27, 2010 12:13

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

Code: Select all

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?
Last edited by SnowmanDK on Thu May 06, 2010 14:04, edited 1 time in total.

SnowmanDK
Posts: 23
Joined: Tue Jun 16, 2009 11:16
Location: Hammel

Post by SnowmanDK » Mon Feb 08, 2010 9:12

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

lapont
Posts: 91
Joined: Fri Sep 17, 2004 10:37
Location: Nordjylland

Post by lapont » Mon Feb 08, 2010 10:58

lubuntu 14.04 LibreOffice 4.1.6.2

SnowmanDK
Posts: 23
Joined: Tue Jun 16, 2009 11:16
Location: Hammel

Post by SnowmanDK » Fri Feb 12, 2010 12:30

lapont wrote: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?

Post Reply

Who is online

Users browsing this forum: No registered users and 3 guests