Office: (Office 2003) Alle Datensätze aus einem Unterformular in Zwischenablage kopieren

elmar · 24. Oktober 2010

rechte Maustaste im Text..., es erscheint ein Kontextmenu.

PS: Bist Du sicher, dass deine Proben mit Word später auch in der anderen Software funktionieren? ich hab da so meine Zweifel...wäre doch schade um die "Probierzeit".

edgar113 · 25. Oktober 2010

Hallo,
hab da noch eine Frage.
Ich glaube das dass mit der Zwischenablage nicht der richtige Weg war.
Ist es denn möglich in ein vorhandenes schon geöffnetes Worddokument die Daten zu bekommen.
Der beigefügte Code erzeugt halt auch ein neues Formular.
Das habe ich ja schon geöffnet.
Welche Daten brauche ich von meinem schon geöffnetes Worddokument damit es funktioniert?
Code:

Private Sub DokumentFRZ_Click()
Dim rs As DAO.Recordset
Dim i As Integer
Dim wordobj As Word.Application
Dim worddoc As Word.Document
Dim objBMRange As Word.Range
Dim VORLAGE As String
Dim FS As FileSearch
Dim test As Integer
Dim Lesefiles As String
Dim Laufwerksordner As String
Dim strBMName As String
Dim strBMText As String
Dim strText As String
Vorlagenordner = Application.CurrentProject.Path
Set FS = Application.FileSearch
With FS
.LookIn = Vorlagenordner
Debug.Print Vorlagenordner
.NewSearch
.SearchSubFolders = False
'Filter für *.doc einstellen
.FileName = "*.doc*"
.Execute
For i = 1 To .FoundFiles.Count
Lesefiles = Lesefiles & ";" & Mid(.FoundFiles(i), Len(Vorlagenordner) + 2)
Next i
End With
'Me!Dokument.RowSourceType = valuelist
Me!DokumentFRZ.RowSource = Mid(Lesefiles, 2)
Laufwerksordner = Vorlagenordner & "\" & Me!DokumentFRZ

'Start Microsoft Word.
Set wordobj = CreateObject("Word.Application")
'Vorlage erstellen. Dadurch wird das Original nicht überschrieben
VORLAGE = Laufwerksordner

Set worddoc = wordobj.Documents.Add(Template:=VORLAGE)
'Vorgeschlagener Ordner, wenn 'Speichern unter' in Word gewählt wird
'Ordner muss schon existieren.
'worddoc.Parent.ChangeFileOpenDirectory "e:\"
With wordobj
'Make the application visible.
wordobj.Visible = True
'wordobj.Activate
'Open the document.
'Move to each bookmark and insert text from the form.
'Fehlerroutine für nicht vorhandene bookmarks in Wordvorlage
On Error GoTo ERRORBEENDEN

Set rs = Me![frmArtikelOfferte].Form.RecordsetClone
rs.MoveLast
rs.MoveFirst
If Not (rs.EOF And rs.BOF) Then
For i = 1 To rs.RecordCount

worddoc.Bookmarks("Pharmacode").Select
wordobj.Selection.TypeText Text:=CStr(rs!PH_Code)
worddoc.Bookmarks("Bezeichnung").Select
wordobj.Selection.TypeText Text:=CStr(rs!Bezeichnung)
worddoc.Bookmarks("Generika").Select
wordobj.Selection.TypeText Text:=CStr(rs!Generika)

If i = rs.RecordCount Then Exit Sub 'Leerzeile vermeiden
wordobj.Selection.InsertRows 1
wordobj.Selection.Collapse Direction:=wdCollapseStart

wordobj.Selection.MoveRight Unit:=wdCell
With worddoc
Set objBMRange = wordobj.Selection.Range
.Bookmarks.Add Name:="Pharmacode", Range:=objBMRange
.Bookmarks.DefaultSorting = wdSortByName
.Bookmarks.ShowHidden = False
End With
wordobj.Selection.MoveRight Unit:=wdCell
With worddoc
Set objBMRange = wordobj.Selection.Range
.Bookmarks.Add Name:="Bezeichnung", Range:=objBMRange
.Bookmarks.DefaultSorting = wdSortByName
.Bookmarks.ShowHidden = False
End With
wordobj.Selection.MoveRight Unit:=wdCell
With worddoc
Set objBMRange = wordobj.Selection.Range
.Bookmarks.Add Name:="Generika", Range:=objBMRange
.Bookmarks.DefaultSorting = wdSortByName
.Bookmarks.ShowHidden = False
End With

rs.MoveNext

Next i
End If
rs.Close
Set rs = Nothing
End With
Set worddoc = Nothing
Set wordobj = Nothing
Exit Sub
ERRORBEENDEN:
Exit Sub
End Sub

Private Sub DokumentFRZ_Enter()
Vorlagenordner = Application.CurrentProject.Path
Dim i As Integer
Dim Lesefiles As String
Dim test As Integer
Dim FS As FileSearch
Set FS = Application.FileSearch
With FS
.LookIn = Vorlagenordner
.NewSearch
.SearchSubFolders = False
'Filter für *.doc einstellen
.FileName = "*.doc*"
.Execute
For i = 1 To .FoundFiles.Count
Lesefiles = Lesefiles & ";" & Mid(.FoundFiles(i), Len(Vorlagenordner) + 2)
'Debug.Print Lesefiles
Next i
End With
'Me!comboVorlagenFRZ.RowSourceType = valuelist
Me!DokumentFRZ.RowSource = Mid(Lesefiles, 2)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Edgar

edgar113 · 30. Oktober 2010

Hallo,
kann mir denn keiner mehr helfen?

Besteht denn überhabt die Möglichkeit auf ein schon geöffnetes Word-Dokument zu zugreifen?

elmar · 7. Januar 2021

von edgar113

Besteht denn überhabt die Möglichkeit auf ein schon geöffnetes Word-Dokument zu zugreifen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Doch, es geht schon.
Schau Dir mal den Code an, den ich Dir in der angehängten TXT-Datei sende. Habe den Code aus einer etwas älteren DB ausgegraben. Es ging damals darum, die Adresse eines Kunden in das Word-Dokument einzufügen. Im Dokument befindet sich eine Textmarke, welche den Namen "Adresse" trägt. Der Brief wird auf der Grundlage einer Word-Vorlage (*.DOT) erstellt, die zunächst einmal anzulegen wäre.
Aber auch in einem geöffneten Dokument kannst Du Textmarken einfügen und ganz gezielt Feldinhalte aus der Datenbank dort einfügen.
Wie sieht das Word-Dokument denn inhaltlich aus? Ist immer der gleiche Text vorhanden und müssen nur einzelne Werte im Text durch die Inhalte aus der DB ersetzt werden?
Wichtig: Bei den Verweisen im VBA-Editor von ACCESS muss ein Verweis auf die beiden Objekt Library's gelegt werden. Siehe dazu das Bild.

Marsu65 · 30. Oktober 2010

von edgar

Es ist eine Word ähnliche Software.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist die Software geheime Kommandosache oder warum verrätst du uns nicht um was es geht?

Und in dieser lassen sich auch Textmarken ansprechen?
Bzw. diese stellt ein per VBA anprechbares Objektmodell zur Verfügung?

Ohne Klärung dieser Fragen macht

Besteht denn überhabt die Möglichkeit auf ein schon geöffnetes Word-Dokument zu zugreifen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ja nu kar keinen Sinn.
Elmar wies mit seiner Frage in #16 - die leider unbeantwortet blieb - bereits darauf hin.

Welche Daten brauche ich von meinem schon geöffnetes Worddokument damit es funktioniert?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Dateinamen. Siehe OH zu Document.Open.

edgar113 · 30. Oktober 2010

Hallo,
ich habe das soweit hinbekommen.
Das Dokument wird mit
Code:

Set wordobj = GetObject(, "Word.Application")
'Zugriff auf das aktive Dokument
Set worddoc = wordobj.ActiveDocument
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

erkannt.
Hab da noch ein Problem.
Die Daten die an das Worddokument übergen werden sind nicht in der Reihenfolge wie im Unterformular. D.h. der erste Datensatz ist der letzte.
Wenn ihr einen Tip habt.

Ich habe mal eine Testdatei hochgelagen.
Das Worddokument ist eine Vorlage wie Sie auch so ähnlich ist wie die in meiner Software.
Zu meiner Software ist zu sagen,

Es ist eine Word ähnliche Software.
Ich habe z.Z. Das Programm nicht auf meinen PC.
Probiere alles mit einem Word 2003.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Software wurde von der Firma zur verfügung gestellt.
Ich kann Sie auch nur im Büro nutzen.

Mit dem Was ich jetzt habe, werde ich das an der Richtigen Software am Dienstag wusprobieren.

Gruß Edgar

edgar113 · 31. Oktober 2010

Hallo,
auch die Reihenfolge hab ich hinbekommen.

Jetzt aber noch eine Frage.

Ich gebe jetzt die Daten der Tabelle aus meinem UFO mit VBA nach Word.
In Word habe ich als Textmarke eine Tabelle.
Meine Frage:
Weil es sich um mehrere Texte handet muss ich die einzelnen Textpassagen mit einem Zeilenumbruch anschließend in Word bearbeiten.

Kann ich die Formatierung der Tabelle mit VBA vorgeben so das vor jeder Tabellenzeile eine Leerzeile entsteht?

Und wie könnte ich gewisse Zeilen in Fettschrift ausgeben?

Gibt es hierfür Sonderzeichen die ich in meiner Accesstabelle/Text eingeben könnte um diese funktion hin zu bekommen?
Sowas z.B. wie hier im Forum mit Key einfügen

edgar113 · 1. November 2010

Hat noch einer einen Tipp?

elmar · 1. November 2010

In Word habe ich als Textmarke eine Tabelle.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was ist das denn? *upps Ich kenne nur Textmarken als Textmarke.
Welche Daten (Feldinhalte) werden denn eingefügt? 1,2,3 oder mehr Inhalte von Datenbankfeldern?
Feldinhalt von DB-Feld 1 muss zur Textmarke 1, Feldinhalt 2 zur Textmarke 2 usw.
Wenn die Textmarke entsprechend mit "Fettschrift" in Word formatiert ist, sollte auch der eingefügte Wert in Fettschrift erscheinen. Sicher bin ich da aber nicht. Dafür gibt es das Forum für WORD.
Gewisse Zeilen wirst Du wohl nach dem einfügen in Word selber formatieren müssen.
Langsam frage ich mich auch, ob Du das ganze nicht auch mit einem Serienbrief hättest lösen können.

Office: (Office 2003) Alle Datensätze aus einem Unterformular in Zwischenablage kopieren

Alle Datensätze aus einem Unterformular in Zwischenablage kopieren

Alle Datensätze aus einem Unterformular in Zwischenablage kopieren

Alle Datensätze aus einem Unterformular in Zwischenablage kopieren

Alle Datensätze aus einem Unterformular in Zwischenablage kopieren

Alle Datensätze aus einem Unterformular in Zwischenablage kopieren - Similar Threads - Datensätze Unterformular Zwischenablage

MS Access Formular: Datensatz duplizieren mit Unterformularen

Datensätze im unterformular nach suche Filtern

Listenfeld in Unterformular soll auf Datensatz des Hauptformulars reagieren

Im Unterformular bestehenden Datensatz auswählen

neuer datensatz in unterformular per button click mit festem wert einfügen

Datensatz im Unterformular suchen

Unterformular mit richtigem Datensatz über Button öffnen