---

Er der en som lige kan hjælpe lidt.

WordDoc.Tables.Item(3).Cell(Row:=1, Column:=1).Range.Text =(indholdet af en
tekstbox)

Det virker helt ok.

Men hvis jeg sætter et word picture object på word dokumentet, og vil sætte
et billed på fra vb,
hvordan gør man så....?????? Skriver jeg WordDoc og punktum, så kommer der
ikke noget med image
eller picture i menuen.....

Tænkte på noget i stil med WordDoc.Image(1).image = loadpict osv.... Men
intet kan jeg få til at virke.


Jesper....

---

>
> Men hvis jeg sætter et word picture object på word dokumentet, og vil
sætte
> et billed på fra vb,
> hvordan gør man så....?????? Skriver jeg WordDoc og punktum, så kommer der
> ikke noget med image
> eller picture i menuen.....
>
> Tænkte på noget i stil med WordDoc.Image(1).image = loadpict osv.... Men
> intet kan jeg få til at virke.
>
Følgende kode lager et nytt dokument, lager en tabell med 2 rader og tre
kolonner, samt setter inn et bilde i celle 2,2:

Dim WordDoc As New Word.Document

WordDoc.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

WordDoc.Tables(1).Cell(2, 2).Select
Selection.InlineShapes.AddPicture FileName:= _
"D:\Dokumenter\My Pictures\pil2.bmp", LinkToFile:=False,
SaveWithDocument _
:=True

Var det dette du mente?

mvh
Reidar

---

"Reidar Kind" <reidar@kind.no> wrote in message
news:Qdlwc.84869$BD3.10700766@juliett.dax.net...
>
> >
> > Men hvis jeg sætter et word picture object på word dokumentet, og vil
> sætte
> > et billed på fra vb,
> > hvordan gør man så....?????? Skriver jeg WordDoc og punktum, så kommer
der
> > ikke noget med image
> > eller picture i menuen.....
> >
> > Tænkte på noget i stil med WordDoc.Image(1).image = loadpict osv.... Men
> > intet kan jeg få til at virke.
> >
> Følgende kode lager et nytt dokument, lager en tabell med 2 rader og tre
> kolonner, samt setter inn et bilde i celle 2,2:
>
> Dim WordDoc As New Word.Document
>
> WordDoc.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
> 3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
> wdAutoFitFixed
>
> WordDoc.Tables(1).Cell(2, 2).Select
> Selection.InlineShapes.AddPicture FileName:= _
> "D:\Dokumenter\My Pictures\pil2.bmp", LinkToFile:=False,
> SaveWithDocument _
> :=True

Ups, noe av koden ble utelatt.. her er det rette:

Private Sub Open()

Dim WordDoc As New Word.Document

WordDoc.Select

WordDoc.Application.Visible = True

WordDoc.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

WordDoc.Tables(1).Cell(2, 2).Select
Selection.InlineShapes.AddPicture FileName:= _
"D:\Dokumenter\My Pictures\pil2.bmp", LinkToFile:=False,
SaveWithDocument _
:=True
End Sub


-Reidar

---

WordDoc.Tables(3).Cell(2, 1).Select
Selection.InlineShapes.AddPicture FileName:=App.Path & "\Logo\" &
HoldLogo(0), LinkToFile:=False, SaveWithDocument:=True

Ok Reider, dette var de 2 eneste linier jeg havde brug for, så det virkede.
Takke så mycket....

Jesper.

> Ups, noe av koden ble utelatt.. her er det rette:

---

Fandt en fejl, som jeg ikke kan hite ud af....


Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Integer, ii As Integer, iii As Integer, j As Integer
Dim NewResult As String
On Error GoTo ErrHandler
ReDim UsedVariables(0)

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(App.Path & "\Templates\" &
"Template.doc")

WordDoc.Tables.Item(1).Cell(Row:=2, Column:=1).Range.Text =
Flex(6).TextMatrix(1, 0)
WordDoc.Tables.Item(1).Cell(Row:=2, Column:=2).Range.Text =
Flex(6).TextMatrix(1, 1)
WordDoc.Tables.Item(1).Cell(Row:=2, Column:=3).Range.Text =
Flex(6).TextMatrix(1, 2)
WordDoc.Tables.Item(1).Cell(Row:=2, Column:=4).Range.Text =
Flex(6).TextMatrix(1, 5)

WordDoc.Tables.Item(3).Cell(Row:=1, Column:=1).Range.Text =
Label4(0).Caption
WordDoc.Tables(3).Cell(2, 1).Select
Selection.InlineShapes.AddPicture App.Path & "\Logo\" & HoldLogo(0), False,
True

For t = 1 To Flex(0).Rows - 1
If Flex(0).TextMatrix(t, 0) <> "" Then
WordDoc.Tables.Item(2).Cell(Row:=t + 1, Column:=1).Range.Text =
Flex(0).TextMatrix(t, 0)
WordDoc.Tables.Item(2).Cell(Row:=t + 1, Column:=2).Range.Text =
Flex(0).TextMatrix(t, 1)
WordDoc.Tables.Item(2).Cell(Row:=t + 1, Column:=3).Range.Text =
Flex(0).TextMatrix(t, 2)
WordDoc.Tables.Item(2).Cell(Row:=t + 1, Column:=4).Range.Text =
Flex(0).TextMatrix(t, 3)
End If
Next t

WordDoc.Tables.Item(5).Cell(Row:=1, Column:=1).Range.Text =
Label4(1).Caption
WordDoc.Tables(5).Cell(2, 1).Select
Selection.InlineShapes.AddPicture App.Path & "\Logo\" & HoldLogo(0), False,
True

For t = 1 To Flex(3).Rows - 1
If Flex(3).TextMatrix(t, 0) <> "" Then
WordDoc.Tables.Item(4).Cell(Row:=t + 1, Column:=1).Range.Text =
Flex(3).TextMatrix(t, 0)
WordDoc.Tables.Item(4).Cell(Row:=t + 1, Column:=2).Range.Text =
Flex(3).TextMatrix(t, 1)
WordDoc.Tables.Item(4).Cell(Row:=t + 1, Column:=3).Range.Text =
Flex(3).TextMatrix(t, 2)
WordDoc.Tables.Item(4).Cell(Row:=t + 1, Column:=4).Range.Text =
Flex(3).TextMatrix(t, 3)
End If
Next t

WordDoc.SaveAs App.Path & "\Kamp-Rapporter\HoldOps .doc"

WordDoc.Close
WordApp.Quit
Set WordDoc = Nothing
Set WordApp = Nothing

MsgBox "Færdig"

Exit Sub
ErrHandler:
MsgBox "Unhanled Error: " & Err.Description


Første gang jeg kører den igennem, laver den fint et word dokument med alt
det der skal skrives og 2 billeder.

Anden gang jeg kører den, springer den til ErrHandler i denne linie:
Selection.InlineShapes.AddPicture App.Path & "\Logo\" & HoldLogo(0), False,
True

Err.description er herefter = The remote server machine does not exist or
is unavailable.

Hvis jeg derimod genstarter programmet, virker den fint EN gang mere....


Nogen ideer.????

Jesper....