listboks til makro KørProgram (program + fil sti)

Eller er der en anden måde at lave det på? uden "kørprogram" kommandoen

Du åbner Word i en forudbestemt fil således:

Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.
Documents.Add("DREV:\MAPPE\FIL.doc")
objword.Visible = True

Kræver en reference til Word.

Prøv denne referende til en combo i din formular, stadig en reference til Word:

On Error GoTo err_open

Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = Me.DIN COMBO
Const ext As String = ".doc"
docname = dir & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number
End Sub

jow men hvordan "lænker" jeg det sammene med min list boks som indeholder stierne?

det prøver jeg lige

Den siger
Compile error constant expression required
og highlighter "Const dir As String"


Skal man ikke definere om den skal tage navn(felt1) eller sti(felt2) fra combo boksens tabel?




Private Sub Kommandoknap17_Click()
On Error GoTo err_open

Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = Me.Kombinationsboks15
Const ext As String = ".doc"
docname = dir & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number
End Sub
End Sub

Me!DIN COMBO og Me!Nr er 2 felter på din formular. Den er afprøvet og fungerer:

On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const ext As String = ".doc"
docname = Me!Tekst40 & "\" & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number

Du kan hente data ud af din listboks med f.eks.:
  MsgBox Me.Kombinationsboks4.Column(1)
Kolonnerne er nummereret fra 0 og opefter.

Nåå - Var der flere kolonner!!

forstår ikke dette?

Me!DIN COMBO og Me!Nr er 2 felter på din formular.

docname = Me!Tekst40 & "\" & Me.Nr & ext


min komboboks hedder:
Etiket17
Kombinationsboks15
Rækkekilde: servicebreve brevsti

servicebreve brevsti:
navn: servicebrev
sti c:\service\servicebrev.doc

og det hele bliver udført fra
Kommandoknap 17

Hvis brevet ALTID liger på C:\service og filnavnet er indeholdt i kombinationsboks15 skal den se sådan ud:

On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const ext As String = ".doc"
docname = C:\service & "\" & Me.Kombinationsboks15 & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number

Hvis både stien og filnavnet er variabel og indeholdt i 2 felter på formularen burde min kode Kl 14:50 fungere. Hvis der er tale om forskellige kolonner i din kombo, skal du prøve fdata's forslat med at hente informationer ud af kombo'en.

docname = Me.Kombinationsboks4.Column(1)

så virker det :-)

point til jer begge, hvordag giver jeg engentlig til jer begge?

lige et tillæg

hvis jeg skal have den kode i en modul fil istedet og køre den i makro med en funktion

er der så andet der skal med?

skal denne linje så ikke defineres lidt bedre så den ogs åved hvilken formular den kommer fra. og hvordan gøres det?

docname = Me.Kombinationsboks15.Column(1)

Det reserverede ord Me refererer til den aktuelle formular.

har lavet sådan en i et modul istedet

Public Function openletter()


Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const ext As String = ".doc"
docname = Me.Kombinationsboks15.Column(1)
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
End Function

dvs nu da formularen hedder Serviceind2

så skal den linje være
docname = Serviceind2.Kombinationsboks15.Column(1)

ik?

den vil ikke med
docname = Serviceind2.Kombinationsboks15.Column(1)

Dit kald af funktionen skal se således ud, idet du skal overføre komboen's værdi til modulet:

CPR.Check Kombinationsboks15.Column(1)

Derefter skal modulet vide at der overføres en værdi:

Public Function openletter(Kombinationsboks15.Column(1)

Men jeg har ike nogenn erfaring med at overføre bestem,te kolonner til et modul, men princippet er godt nok.

Grunden til jeg skal køre set som modul er at jeg bliver nød ti lat køre den fra en makro hvor den først
OverførTekst:
Eksporter brevfletning med Word til Windows
forespørgselnavn Servicebrev-email
filnavn c:\servicebreve\servicebreve.csv

mit modul ser sådan ud nu. hvor der er fejl i
docname = Serviceind2.Kombinationsboks15.Column(1)

hvor
Serviceind2= formular
Kombinationsboks15= comboboks



modul code:
Public Function openletter()


Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const ext As String = ".doc"
docname = Serviceind2.Kombinationsboks15.Column(1)
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
'On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
'err_open:
'MsgBox "fejlkode: " & Err.Number
End Function

docname = Forms!Serviceind2.Kombinationsboks15.Column(1)