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
Das rufst Du an der passenden Stelle (zB per Button) mit dem richtigen Dokumentnamen auf.
>>> 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.
ich habe mir nun mal vorgenommen, meine täglichen Aufgaben mittels eines VBA (-Programms) zu steuern. Ich habe eine Startseite (Excel), über die ich mein Haushaltsbuch (Excel), meine Adressverwaltung (Excel), meine Steuerberechnung (Excel)und vieles mehr aufrufen kann. ich möchte auch von dieser Startseite auch einen Brief schreiben (Word), ein Fax absenden (Word) oder eine Mail (Word) erstellen können. Deshalb muß ich aus Excel ein Worddokument aufrufen können. Das ist oder war mein Problem (funktioniert immer noch nicht).
Habe ich jetzt deine Gegenfrage beantwortet?
Wenn du dazu noch ne Idee hast, so lass es mich wissen
wäre ja mal ganz schön zu wissen ob Dir meine Beispieldatenbank weitergeholfen hat, welche ich Dir pre Link in einer Email am
15.09.2009 direkt habe zukommen lassen. Oder hast Du die Email nicht erhalten? Ich habe von wer-weiss-was eine Kopie als Sendebestätigung erhalten.