Hej skulle någon kunna komma med en smart lösning ??
jag skulle vilja göra VB-applikation där man skriver i
T.ex höjd och bredd till en fyrkant som sedan skickas till word eller något annat som ritas upp.

eller är måste jag göra en mall i word och sedan lägga ner värdena i
bokmärken på dokumentet med en färdigritad fyrkant


hoppas ni förstod vad jag menade !!

Per M

Om du menade att du ville rita upp en rektangle i t.ex Word så kan du göra så här..Menade du inte det så lyckades inte min lilla skalle fatta det rätta...

Denna kod kan stå i ett formulär men en knapp och två textrutor innehållande höjd o bredd...

Option Explicit
Dim WordApp As Word.Application


Private Sub cmdRita_Click()
Set WordApp = GetObject(, "Word.Application")
WordApp.Visible = True
' Ettan nedan står för rektangle...tror jag..Jag testade mig fram!!!
WordApp.ActiveDocument.Shapes.AddShape 1, 10, 10, txtWidth.Text, txtHeight.Text
End Sub

Private Sub Form_Load()
Set WordApp = GetObject(, "Word.Application")
WordApp.Visible = True
WordApp.ActiveDocument.Shapes.AddShape 1, 10, 10, txtWidth.Text, txtHeight.Text
End Sub


Mvh Henrik

Tackar alla ödmjukast
med lite fippel i koden så blev det alldeles utmärkt


MVH
Per M
p.s. du begrep det :-) d.s

du jag gjorde refferens till MS Word object library
men nu får jag upp meddelandet :

ActiveX component can´t create object
direkt i upp-starten

och markerar raden

Set WordApp = GetObject(, "Word.Application")

????????????????????????????????

Jag e osäker, men jag tror att det beror på att Word måste vara startat för att man skall kunna använda GetObject. Du kan ju prova något sånt här (jag känner igen det från andra inlägg)

<code>
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err Then Set WordApp=CreateObject(, "Word.Application")
</code>

Testa hjälpen på CreateObject om det inte funkar.

/Niklas Jansson

Tjena !!
Det stämmer bra som Niklas sa.
Använder man GetObject som jag gjorde så är det ett måste att ha Word startat. Om det nu inte är startat så kan man använda CreateObject för att "starta upp det"...
Jag skrev en lite rutin som sköter detta..
Om man sedan deklarerar WordApp som object istället för word.application så är man inte beroende av Word-version på datorn...


Dim WordApp As Object


Private Sub GetWord()
'
On Error GoTo Create
Set WordApp = GetObject(, "Word.application")
Create:
Set WordApp = CreateObject("Word.application")
Err.Clear
End Sub