| Vis foregående emne :: Vis næste emne |
| Forfatter |
Besked |
SnowmanDK
Indmeldt: 16. Jun 2009
Indlæg: 23
Geografisk sted: Hammel
|
 Skrevet: Ons Jan 27, 2010 13:13 Emne: [LUKKET men IKKE løst!] Skjule rammen i en textFrame? |
 |
|
Jeg har fået en opgave ind fra en ansat der har fundet følgende makro:
| Kode: | 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?
Sidst rettet af SnowmanDK den Tors Maj 06, 2010 15:04, rettet 1 gang |
|
| Tilbage til toppen |
|
 |
SnowmanDK
Indmeldt: 16. Jun 2009
Indlæg: 23
Geografisk sted: Hammel
|
| Skrevet: Man Feb 08, 2010 10:12 Emne: |
|
|
| Hmmm.... Jeg gætter på at ingen har en ide... |
|
| Tilbage til toppen |
|
|
lapont
Indmeldt: 17. Sep 2004
Indlæg: 90
Geografisk sted: Nordjylland
|
|
| Tilbage til toppen |
|
|
SnowmanDK
Indmeldt: 16. Jun 2009
Indlæg: 23
Geografisk sted: Hammel
|
| Skrevet: Fre Feb 12, 2010 13:30 Emne: |
|
|
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? |
|
| Tilbage til toppen |
|
|
|
FAQ
Søg
Grupper
Tilmeld
Profil
Login
