hallo ralf,
ich habe nun folgendes erstellt:
Private Sub auswahl_04_subjumppost_Click()
>>> Sub Open_Word(docname As String)
Dim oApp As Object
Set oApp = CreateObject(„word.application“)
With oApp
.Visible = True
.Documents.Open (docname)
End With
’
End Sub
>>>
End Sub
das geht aber nun überhaupt nicht.
(Ich möchte einmal folgendes bemerken:
alles was ich in hier VBA „bastele“, muß ich mir ohne Kurse oder richtige Bücher zusammenfieseln, mehr Möglichkeiten habe ich als EU-Rentner nicht mangels finnzieller Ausstattung. Was ich hier tue, dient dazu, vielleicht auf diesem Wege den potenziellen Arbeitgebern ein „Zusatzwissen“ zu präsentieren, um vieleicht mit meinem Handycap noch eine Arbeitschance zu bekommen. (ich bin nur ein kleiner Elektrotechniker). Deshalb hier der verzweifelte Weg, etwas einigermassen brauchbares zu erlernen).
Ich habe deinen Code ( der ja auch in der MS - Hilfe abgebildet ist), in ein Modul eingebunden.
Da stehe ich nun mit meinem Modul und kanns nicht anwenden.
Hilfe.
trotzdem vielen Dank…
Nikodemo