Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Aktives Word-Dokument ansprechen
Autor: stefanbla80
Datum: 24.09.09 14:39
Hallo Forum, ich brauche Eure Hilfe. Auf meinem Form befindet sich ein Button, mit dem ich ein neues Word-Dokument erzeugen kann. In diesem Dokument, das auf einer Vorlage basiert, fülle ich Textmarken. Bisher kann ich immer nur ein neues Word-Dokument erzeugen und dann darin meine Textmarken füllen. Das geht super so. Aber gibt es eine Möglichkeit nur auf das jetzt aktive Word-Dokument zu zugreifen um dann die Textboxen des aktiven Dokumentes zu füllen? Ich brauch keine neues Dokument erzeugen. Code Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim pfad_vorlage As String pfad_vorlage = "C:\Documents and Settings\BLAS\My Documents\Visual Studio 2005\Projects\Textmarke_füllen\Word Vorlagen\" Dim appWord As Object Dim doc As Object appWord = CreateObject("Word.Application") appWord.Visible = True Dim Datum As String Dim Zeit As String Datum = Date.Today Zeit = TimeOfDay doc = appWord.Documents.Add 'doc = appWord.Documents.Add("C:\Documents and Settings\BLAS\My Documents\Visual Studio 2005\Projects\Textmarke_füllen\Word Vorlagen\Wordvorlage.dot") 'With doc 'Text im Hauptteil des Dokuments zuweisen '.Range.Text = "Notiz" '& vbCrLf & vbCrLf & _ '"Fa.: " & TextBox1.Text & vbCrLf & _ '"Ansprechpartner: " & TextBox2.Text 'Kopfzeilen-Text zuweisen '.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = _ ' "Telefonnotiz vom " & Format$(Now, "Long Date") & "/" & ' TextBox17.Text 'Fusszeilen-Text zuweisen '.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = _ ' "Erstellt am " & Format$(Now, "Long Date") 'End With If doc.ActiveDocument.Bookmarks.Exists("Textmarke1") Then Call DateiEinfuegen(doc:=doc, strDatei:=pfad_vorlage & "Inhalt für Textmarke1.doc", strTMName:="Textmarke1") End If 'Textboxen mit Inhalt füllen 'If doc.Bookmarks.Exists("Textmarke1") Then 'Call DateiEinfuegen(doc:=doc, strDatei:=pfad_vorlage & "Inhalt für Textmarke1.doc", strTMName:="Textmarke1") 'End If If doc.Bookmarks.Exists("Textmarke2") Then Call DateiEinfuegen(doc:=doc, strDatei:=pfad_vorlage & "Inhalt für Textmarke2.doc", strTMName:="Textmarke2") End If 'Verbindungen beenden doc = Nothing appWord = Nothing End Sub

Aktives Word-Dokument ansprechen	4.488	stefanbla80	24.09.09 14:39
Re: Aktives Word-Dokument ansprechen	3.221	DaveS	24.09.09 15:09
Re: Aktives Word-Dokument ansprechen	3.210	stefanbla80	25.09.09 07:50
Re: Aktives Word-Dokument ansprechen	3.242	DaveS	25.09.09 08:55
Re: Aktives Word-Dokument ansprechen	3.652	stefanbla80	25.09.09 09:16
Re: Aktives Word-Dokument ansprechen	3.216	xtts02	25.09.09 09:37
Re: Aktives Word-Dokument ansprechen	3.230	stefanbla80	25.09.09 09:43
Re: Aktives Word-Dokument ansprechen	3.164	stefanbla80	25.09.09 11:42
Re: Aktives Word-Dokument ansprechen	3.166	DaveS	25.09.09 12:51
Re: Aktives Word-Dokument ansprechen	3.220	stefanbla80	25.09.09 13:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen