Dialogboks ved start af word dokument, hvor bruger angiver sti til Excel dokument som database for brevflet

Måske kan dette bruges:

Rem Reference til Microsoft Excel application 12.0 (office 2007) er sat
Rem Koden indsættes i Word - ThisDocument
Dim sti As String, xlsFil As Object
Private Sub Document_Open()
    Set xlsFil = CreateObject("Excel.Application")
    With xlsFil
        .Visible = True
        sti = .Application.GetOpenFilename
        .Application.Quit
    End With
    Set xlsFil = Nothing
End Sub

Tusind tak supertekst!

Det åbner ihvertfalt Excel, dog står den kun og blinker nede i taskbaren.

Jeg kunne måske også have udtrykt mig lidt mere klart.

En Userform, med en "gennemse" knap hvor man så skulle finde stien, ville være det mest optimale.

Alternativt hvis man kunne få den dialogboks der kommer op nu til at blive fremhævet mere end den blot blinker nede i taksbaren?

Selv tak..

Jeg vil i en ledig stund prøve at se på det..

Det er meget prisværdigt :)

Hvis du vil have hele dokumentet med Userform - så send en mail -@-adresse under min profil.

NB: Når en sti er valgt - gemmes den i dokumentet som dokumentvariabel.
Næste gang vises den så i userformen.

Rem Thisdocument
Rem ============
Private Sub Document_Open()
    Load UserForm1
    UserForm1.Show
End Sub

Rem Userform
Rem ========

Const varNavn = "datakilde"            'kan evt.justeres

Dim filSti As String
Private Sub Cb_gennemse_Click()
    filSti = valgAfSti
   
    If filSti <> "" Then
        sletGlsti varNavn
       
        Me.Lab_sti.Caption = filSti
    End If
End Sub
Private Sub Cb_luk_Click()
    Unload UserForm1
End Sub
Private Sub Cb_ok_Click()
    gemVariabel varNavn, filSti
    Unload UserForm1
End Sub
Private Sub UserForm_activate()
    If findVariabel("datakilde") = True Then
        Me.Lab_sti.Caption = hentVariabel(varNavn)
    End If
End Sub
Private Function findVariabel(vNavn)
Dim v As Variable
    For Each v In ActiveDocument.Variables
        If v.Name = vNavn Then
            findVariabel = True
            Exit Function
        End If
    Next v
    findVariabel = False
End Function
Private Function hentVariabel(vNavn)
    hentVariabel = ActiveDocument.Variables(vNavn).Value
End Function
Private Sub gemVariabel(vNavn, filSti)
    ActiveDocument.Variables.Add vNavn, filSti
End Sub
Private Sub sletGlsti(vNavn)
    ActiveDocument.Variables(varNavn).Delete
End Sub
Private Function valgAfSti()
    filSti = ""
    On Error GoTo fejl1
   
    With Dialogs(wdDialogFileOpen)
        .Name = "*.xls"                    '<-----------JUSTER
        .Display
       
        valgAfSti = CurDir
       
        If Right(valgAfSti, 1) <> "\" Then
            valgAfSti = valgAfSti + "\"
        End If
       
        valgAfSti = valgAfSti & .Name
       
        If InStr(valgAfSti, "*") > 0 Then
            valgAfSti = ""
        End If
       
    End With
    Exit Function
   
fejl1:
    valgAfSti = ""
End Function

Point givet og tak for svar! :)

Selv tak..