Avatar billede domino1977 Nybegynder
14. august 2002 - 13:22 Der er 5 kommentarer og
1 løsning

VB6.0 -> Word 2000

HJÆLP!!!

Jeg har denne kode her:
-------------------------------------------------------
Private Sub skrivbrev_Click()
Dim objWord As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objWord.Documents.Add("C:\brev.dot")
Call InsertAtBookmark(WordDoc, "navn", navn.Text)
Call InsertAtBookmark(WordDoc, "Adress", adress.Text)
Call InsertAtBookmark(WordDoc, "postnr", postnr.Text)
Call InsertAtBookmark(WordDoc, "by", by.Text)
Call InsertAtBookmark(WordDoc, "land", land.Text)
objWord.Visible = True

End Sub
-----------------------------------------------------
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
-------------------------------------------------------
MEN hvordan laver jeg om på skrifttypen på hver enkelt!!!

Feks at navnet bliver med fed... men alt det andet er bare normalt??????
Avatar billede martin_moth Mester
14. august 2002 - 16:44 #1
Virker følgende mon?

Public Function InsertAtBookmark(objWordDoc As Word.Document, _
strBookmark As String, strText As String) As Boolean

  With objWordDoc.Bookmarks
    If .Exists(strBookmark) Then
 
    'Ny IF-blok ----------------------------------------------

      if strBookmark = "navn" then
        .Item.Range.Bold = True
      else
        .Item.Range.Bold = False   
      end if

    'Slut på ny IF-blok --------------------------------------
 
      .Item(strBookmark).Range.Text = strText
      InsertAtBookmark = True
    End If
  End With
End Function
Avatar billede domino1977 Nybegynder
15. august 2002 - 10:00 #2
Ok........ noget i denne stil her???
---------------------------------------------------------------------------
Public Function InsertAtBookmark(objWordDoc As Word.Document, _
    strBookmark As String, strText As String) As Boolean
    With objWordDoc.Bookmarks
    If .Exists(strBookmark) Then
    End If
   
    If strBookmark = "Kundenavn" Then
    .Item.Range.Bold = True
    Else
    .Item.Range.Bold = False
    End If
   
    .Item(strBookmark).Range.Text = strText
    InsertAtBookmark = True
    End If
    End With
End Function
---------------------------------------------------------------------------
Den kommer bare med fejl, hvor den siger, "argument not optional"....???
Avatar billede martin_moth Mester
15. august 2002 - 17:16 #3
Øhh -

If .Exists(strBookmark) Then
End If

Det giver ingen mening - "det End If" skal slettes!

Prøv at brug prøcis hvad jeg har skrevet - kommer der fejl, så skriv i hvilken linie fejlen kommer :o)

Hvor kommer fejlen?
Avatar billede domino1977 Nybegynder
16. august 2002 - 08:25 #4
Fejlen jeg får er "Compile Error: Argument not optional"

Og den stopper ved denne linie:

      .Item.Range.Bold = True

Hvor .Item er markerert....
Avatar billede martin_moth Mester
16. august 2002 - 09:30 #5
Nå - så er det åbenbart ikke måden at gøre det på :o(

Prøv selv at skriv .Item - når du sætter et nyt punktum foreslår VB nogle valgmuligheder....

Håber en anden kan hjælpe, Martin
Avatar billede domino1977 Nybegynder
16. august 2002 - 09:41 #6
Ok.... ellers takker..

SAGEN LUKKET
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester