Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textmarker - saveas etc.
zurück: Do While Schleife auf eine Query weiter: negative Lagerbestände verhindern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
firenze21
Gast


Verfasst am:
22. Apr 2014, 20:35
Rufname:

Textmarker - saveas etc. - Textmarker - saveas etc.

Nach oben
       Version: Office365

Hallo ihr Lieben,

ich arbeite an einer kleinen Datenbank mit ca. 15 Feldern und komme da nicht weiter.
Ich habe alle benötigten Formulare und Daten eingepflegt und aufgearbeitet - jetzt geht es um die Ausgabe dieser Daten.

Hierfür habe ich eine Word-Vorlage (dotx). Mit diesen Befehlen gehen einzelne Werte der Tabellen auch super in die Vorlage. Allerdings habe ich zwei Probleme.
Code:
Private Sub Befehl57_Click()
'---------- Für Projekttitel
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim Projekttitel As String
    Dim i As Integer, sStr As String
   
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' zum testen
    Set wdDoc = wdApp.Documents.Add("C:\xxxx_Projektliste.docx")
    Projekttitel = "Projekttitel"
    If wdDoc.Bookmarks.Exists(Projekttitel) Then
        wdDoc.Bookmarks(Projekttitel).Range = Nz(Me!Projekttitel)
    End If
'---------- Speichern
    wdDoc.SaveAs "C:\xxxx_Projektliste_neu.docx"
    wdDoc.Close: Set wdDoc = Nothing
    wdApp.Quit: Set wdApp = Nothing

1. Frage: Das eine ist, ich würde gerne, wenn eine Textmarke z.B. Förderer_1 leer ist, auch die Überschrift "Fördermittel" der Vorlage gelöscht wird.
Habe es so versucht:
Code:
    If wdDoc.Bookmarks(Förderer).Range = "" Then
        wdDoc.Bookmarks(Förderermittelüberschrift).Delete
    End If
geht aber nicht....

2. Frage: Wie kann ich bei der Ausgabe den Namen der Datei ändern? z.B. in den Namen der Textmarke "Projekttitel"?
firenze21
Gast


Verfasst am:
29. Apr 2014, 19:56
Rufname:

AW: Textmarker - saveas etc. - AW: Textmarker - saveas etc.

Nach oben
       Version: Office365

Hat keiner einen Tipp?
KlausMz
Moderator Access


Verfasst am:
29. Apr 2014, 19:59
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Textmarker - saveas etc. - AW: Textmarker - saveas etc.

Nach oben
       Version: Office365

Hallo,
kein direkter Tip, aber eine Frage: Warum müssen die Daten nach Word?
Kannst Du keinen Access Bericht zur Datenausgabe machen.
Du schreibst ja auch selbst, dass es nur um die Ausgabe geht.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2014, 13:24
Rufname:
Wohnort: NRW

AW: Textmarker - saveas etc. - AW: Textmarker - saveas etc.

Nach oben
       Version: Office365

Hallo,

unabhängig von der Frage, warum überhaupt Word...

zu 1)
"Geht aber nicht" heißt was genau? Ist die Überschrift überhaupt als geschlossene Textmarke definiert?
Und warum setzt du Variablen ein, die du mit dem Namen der Textmarke füllst, anstatt den Namen direkt anzugeben?

zu 2)
Den Namen der Datei kannst du mittels Verkettung als Kombination von Konstanten und Variablen festlegen.

_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: ActiveWorkbook.SaveAs erzeugt Anführungszeichen 1 keule55 180 21. Feb 2013, 13:46
Gast ActiveWorkbook.SaveAs erzeugt Anführungszeichen
Keine neuen Beiträge Access Berichte: Einheiten(mm, cm, kg, etc.) im Bericht anzeigen 7 Marcccey 8404 16. Apr 2012, 15:13
Gast Einheiten(mm, cm, kg, etc.) im Bericht anzeigen
Keine neuen Beiträge Access Programmierung / VBA: wdDoc.SaveAs -> PDF 1 myvantage 493 26. Okt 2011, 15:50
myvantage wdDoc.SaveAs -> PDF
Keine neuen Beiträge Access Hilfe: Formatierten Text (Tab, Zeilenumbruch, etc.) ausgeben 4 oetzi 1821 18. Mai 2011, 08:58
Gast Formatierten Text (Tab, Zeilenumbruch, etc.) ausgeben
Keine neuen Beiträge Access Hilfe: Sicherheit in Access 2010. Benutzerebene, Datensatzebene etc 4 Gast 5341 08. März 2011, 13:24
Gast Sicherheit in Access 2010. Benutzerebene, Datensatzebene etc
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung Tabellendarstellung etc nach Neustart verschwunden 0 rahan 492 28. Sep 2009, 16:25
rahan Beziehung Tabellendarstellung etc nach Neustart verschwunden
Keine neuen Beiträge Access Programmierung / VBA: ACCESS ALS EXE ETC. 2 marcus_aös_gast 289 29. Jul 2009, 19:45
marcus_als_gast ACCESS ALS EXE ETC.
Keine neuen Beiträge Access Formulare: Memofeld: Formatierungen, Grafiken etc. 0 access0815 385 01. Aug 2008, 15:59
access0815 Memofeld: Formatierungen, Grafiken etc.
Keine neuen Beiträge Access Formulare: Bilder und Buttons etc 3 makler81 589 23. Okt 2007, 12:08
maike kaluscha Bilder und Buttons etc
Keine neuen Beiträge Access Formulare: Laden und Ausgeben von Daten etc 1 makler81 679 02. Okt 2007, 16:41
Köbi Laden und Ausgeben von Daten etc
Keine neuen Beiträge Access Hilfe: AGB's Lizenzbestimmungen, Nutzungbedingungen etc... 23 vTec 1296 15. März 2007, 00:00
derArb AGB's Lizenzbestimmungen, Nutzungbedingungen etc...
Keine neuen Beiträge Access Formulare: "Formatvorlage" fuer Buttons etc? / mehrere st.ele 0 nautisch 482 14. Dez 2006, 11:10
nautisch "Formatvorlage" fuer Buttons etc? / mehrere st.ele
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps