vb6.0 & Word 2000 , Haster.....

Hejsa..

Jeg har et eksempel som du måske kan bruge..
Smid din mail adr, så sender jeg det til dig.

Guro.not

Hej Palle,

Her er et eksempel, som gør det du beder om. Du skal bare huske at lave en reference til \"Microsoft Word Object Library\"

Private Sub Brevflet()
    Dim objWord As New Word.Application
    Dim WordDoc As New Word.Document
    Set WordDoc = objWord.Documents.Add(\"C:\\Sti til skabelon.dot\")
    Call InsertAtBookmark(WordDoc, \"navn\", kundenavn.text
)
    call InsertAtBookmark(WordDoc, \"Adresse\", Adresse.text)
    objWord.Visible = True
    DoCmd.Hourglass False
End Sub

Endvidere skal du lige have denne funktion, som indsætter tekst i et bogmærke (så du er fri for at indtaste det for hvert bogmærke).

Public Function InsertAtBookmark(objWordDoc As Word.Document, _
strBookmark As String, strText As String) As Boolean
    With objWordDoc.Bookmarks
        If .Exists(strBookmark) Then
            .Item(strBookmark).Range.Text = strText
            InsertAtBookmark = True
        End If
    End With
End Function

/Thomas

Hej Thomas


Tusind tak for det fine svar, det var lige præcis
hvad jeg skulle bruge..

Hermed velfortjente 100 points til dig.

mvh Pallevad

Hej Thomas.

Glimrende svar. Jeg skynder mig at låne din kode.

Men ved du hvordan jeg har mulighed for selv at definere skrifttype, størrelse, typografi og evt. understregning på den tekst, som indsættes med

.Item(strBookmark).Range.Text = strText
           
hvis du ved det, kan du så lige sige til, så kan jeg oprette et spørgsmål til dig med point.

Hej manutd,

Her er en stump kode, som piller lidt ved forskellige ting. Jeg håber, at du kan bruge noget af det?

Selection.GoTo What:=wdGoToBookmark, Name:=strBookmark
Selection.MoveLeft Unit:=wdCharacter, Count:=16, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles(\"Heading 2\")
With Selection.Font
      .Name = \"Verdana\"
      .Size = 12
      .Bold = False
      .Italic = False
      .Underline = wdUnderlineNone
      .UnderlineColor = wdColorAutomatic
      .StrikeThrough = False
      .DoubleStrikeThrough = False
      .Outline = False
      .Emboss = False
      .Shadow = False
      .Hidden = False
      .SmallCaps = False
      .AllCaps = False
      .Color = wdColorDarkTeal
      .Engrave = False
      .Superscript = False
      .Subscript = False
      .Spacing = 0
      .Scaling = 100
      .Position = 0
      .Kerning = 0
      .Animation = wdAnimationNone
      .Italic = wdToggle
      .Underline = wdUnderlineSingle
End With

/Thomas