Thema Datum  Von Nutzer Rating
Antwort
Rot Word Textmarken mit Excel Makro befüllen
 03.03.2016 15:48:14 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris		 Datum:
03.03.2016 15:48:14		 Views:
2080		 Rating:
     
Antwort:
  Ja
Thema:
Word Textmarken mit Excel Makro befüllen

Hallo liebes VBA Forum,

ich bin ein blutiger Anfänger im Programmieren und möchte mich trotzdem an eine, wie ich finde, nicht ganz so leicht Aufgabe wagen.

Ich hoffe es erbarmt sich jemand und hilft mir weiter.

Meine Aufgabe:

Ich habe eine ExcelDatenbank die mehrere Einträge für mehrere Kunden verwaltet. ( Name, Anrede, Straße usw. )

Außerdem habe ich ein Word Dokument erstellt in das ich die Word Textmarken eingefügt habe ( Ebenfalls so benannt Name, Straße, Anrede usw. )

Nun möchte ich in Excel eine Zeile anklicken und anschließend das Makro ausführen. ( Das Makro soll dann nur für die Ausgewählte Zeile ausgeführt werden )

Die Vorlage soll aber nicht überschrieben werden, es soll ein neues Word Dokument erstellt werden, in dem die Felder dann ausgefüllt sind ( Am besten mit anderem Speicherpfad den ich dann auch direkt im Makro eingeben kann. )

Natürlich habe ich es auch schon selber versucht, allerding haben mir die Codeschnipsel die ich aus dem Internet geholt habe nicht ganz geholfen.

Hier mein Code:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub AnschreibenGutachtenNeu()
  Dim strFileName As String
  Dim objWDApp As Object  'Word.Application
  Dim objDocx As Object    'Word.Document
  Dim xlZelle As Range    'Referenzzelle in Excel
   
  strFileName = "C:\Users\Christopher Goihl\Documents\Spaces\Bea und Chris\Projekt Makro\tester.docx"
   
  If Dir(strFileName) = "" Then
    MsgBox "Datei """ & strFileName & """ nicht gefunden!"
    Exit Sub
  End If
   
  'Excel-Referenzzelle für Auftrag setzen
  ActiveCell.SpecialCells(xlLastCell).Select
  With ActiveSheet
    Set xlZelle = .Cells(ActiveCell.Row, 1) ' Zelle in aktiver Zeile, Spalte A
  End With
   
  Application.ScreenUpdating = False
   
   If objWDApp Is Nothing Then
   'damit wird verhindert das Word ein zweites Mal
   'mit CreateObject geöffnet wird
   'die erstere läst sich sonst aus dem Task nicht entfernen
   'Bei mehreren Versuchen erreichst du ganz schnell ein OutOfMemory
  Set objWDApp = CreateObject("Word.Application")
  bolWordLiefNicht = True
 End If
  
  
   
  'Word-Anwendung sichtbar starten
  Set objWDApp = CreateObject("Word.Application")
  objWDApp.Visible = True
  'Vorlage öffnen - schreibgeschützt
  Set objDocx = objWDApp.Documents.Open(strFileName, ReadOnly:=False)
   
  'Werte aus Zellen in Excel an Textmarken im Worddokument einfügen
  objDocx.Bookmarks("Aktenzeichen").Range.Text = xlZelle.Offset(0, 6).Text       'aus Spalte G
  'objDocx.Bookmarks("Anrede").Range.Text = xlZelle.Offset(0, 4).Text 'aus Spalte E
  'objDocx.Bookmarks("Ansprechpartner").Range.Text = xlZelle.Offset(0, 5).Text  'aus Spalte F
  'objDocx.Bookmarks("Aktenzeichen").Range.Text = "Hallo"
   
  
  Application.ScreenUpdating = True
 
 
End Sub

Ich habe das Befüllen der Bookmarks auskommentiert weil es so leider nicht funktioniert hat.

Ich hoffe sehr das mir jmd. weiter helfen kann

 

Liebe Grüße Chris

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Word Textmarken mit Excel Makro befüllen
 03.03.2016 15:48:14 Chris
NotSolved