Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dateiname im Betreff kürzen
zurück: Makro geht nicht mit INDEX und Combobox weiter: Zellenfarbe bei Artikel kopieren (sverweis) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
alsimera
Office Anwender mit Grundkenntnissen in VBA


Verfasst am:
09. Apr 2014, 07:24
Rufname:
Wohnort: Allmendingen

Dateiname im Betreff kürzen - Dateiname im Betreff kürzen

Nach oben
       Version: Office 2010

Hallo zusammen,

eine kleine Frage. In einer aus Word generierten E-Mail wird der Dateiname des offenen Word-Dokuments in den Berteff übernommen (z.Bsp.: Bitte überarbeiten Sie Anschreiben.doc).
Nun wird aber das Dokument als PDF angehängt, da macht sich das .doc im Betreff nicht so gut. Kann man das wegkürzen, oder den Dateinamen ohne Endung übertragen lassen?

Danke für eure Tipps.

Gruß Ralph

_________________
Wenn die Menschen nur über das redeten, was sie verstehen, dann wäre es sehr ruhig auf der Welt!
theoS
WORD/Excel Erfahren und VBA Bastler


Verfasst am:
09. Apr 2014, 08:36
Rufname: theo


AW: Dateiname im Betreff kürzen - AW: Dateiname im Betreff kürzen

Nach oben
       Version: Office 2010

Wenn du grad die letzten vier Zeichen weg haben willst, dann kannst du das mit so einer Konstruktion machen:
Code:
Sub hub()
Dim dd1 As Document: Set dd1 = ActiveDocument
Dim strZuKuerzen As String
pf = dd1.FullName
strZuKuerzen = Left(pf, Len(pf) - 4)
Debug.Print strZuKuerzen
End Sub

_________________
theo s.
alsimera
Office Anwender mit Grundkenntnissen in VBA


Verfasst am:
09. Apr 2014, 09:02
Rufname:
Wohnort: Allmendingen

AW: Dateiname im Betreff kürzen - AW: Dateiname im Betreff kürzen

Nach oben
       Version: Office 2010

Hallo theo.s,

das sieht schon gut aus, wie übergebe ich jetzt das Ergebnis an mein E-Mail in der Betreffzeile?

Momentan steht dort:

Code:
.Subject = "Angebot " & ActiveDocument & ""


Momentan gibt dein Code zwar die Dateiendung nicht mehr mit aus, dafür aber den Dateipfad. Das soll er aber nicht.

Danke für die Hilfe.

Gruß Ralph

_________________
Wenn die Menschen nur über das redeten, was sie verstehen, dann wäre es sehr ruhig auf der Welt!
theoS
WORD/Excel Erfahren und VBA Bastler


Verfasst am:
09. Apr 2014, 10:28
Rufname: theo

AW: Dateiname im Betreff kürzen - AW: Dateiname im Betreff kürzen

Nach oben
       Version: Office 2010

Sorry, dachte, du willst den Pfad auch mit drin.
Nimm statt .FullName einfach nur .Name
pf = dd1.FullName

geht übrigens nur, wenn das Ding gespeichert ist. (Ach ja, bei einer Dateiendung *.docx, musst du hier
strZuKuerzen = Left(pf, Len(pf) - 4)
statt 4 die 5 abziehen, sonst bleibt dir der Punkt stehen

_________________
theo s.
alsimera
Office Anwender mit Grundkenntnissen in VBA


Verfasst am:
09. Apr 2014, 10:58
Rufname:
Wohnort: Allmendingen


AW: Dateiname im Betreff kürzen - AW: Dateiname im Betreff kürzen

Nach oben
       Version: Office 2010

Hey theo.s,

vielen Dank, klappt super, genau was ich brauchte.

Danke für die Hillfe.

Gruß Ralph

_________________
Wenn die Menschen nur über das redeten, was sie verstehen, dann wäre es sehr ruhig auf der Welt!
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 Word VBA Programmierung (Makros): Dateiname als Titel in Dokument übernehmen 1 simon_fcz_1996 101 15. Jan 2014, 18:27
r.mueller Dateiname als Titel in Dokument übernehmen
Keine neuen Beiträge Word VBA Programmierung (Makros): Access zu Word, Problem mit Dateiname aus Textmarke! 8 Henry78 306 03. Dez 2012, 16:10
Henry78 Access zu Word, Problem mit Dateiname aus Textmarke!
Keine neuen Beiträge Word VBA Programmierung (Makros): Uhrzeit aus Datum mittels Leftfunktion kürzen 6 Bodhi123 389 22. Jun 2012, 08:56
Bodhi123 Uhrzeit aus Datum mittels Leftfunktion kürzen
Keine neuen Beiträge Word VBA Programmierung (Makros): Word als PDf speichern gleicher Pfad und Dateiname 1 Blackbumpkin 1006 04. Jan 2012, 16:25
Makrone Word als PDf speichern gleicher Pfad und Dateiname
Keine neuen Beiträge Word VBA Programmierung (Makros): Hyperlink, Betreff und Anlage per VBA von Word nach Outlook 5 Ruediger.Albrecht 1420 02. Aug 2011, 06:04
steffen0815 Hyperlink, Betreff und Anlage per VBA von Word nach Outlook
Keine neuen Beiträge Word VBA Programmierung (Makros): Datei - Senden an Emailempfänger mit autom. Betreff 0 caso1 902 21. Jul 2011, 16:13
caso1 Datei - Senden an Emailempfänger mit autom. Betreff
Keine neuen Beiträge Word Formate: Dateiname einfügen ohne Dateiendung 0 gusel 1732 07. Jan 2011, 10:32
gusel Dateiname einfügen ohne Dateiendung
Keine neuen Beiträge Word Formate: Formatvorlage zweite Seite, Falzkante, Betreff fest 7 Laila77 2421 24. Sep 2010, 18:16
Laila77 Formatvorlage zweite Seite, Falzkante, Betreff fest
Keine neuen Beiträge Word VBA Programmierung (Makros): Dateiname aus externen Daten generieren 0 Daurin 287 26. Jul 2010, 15:21
Daurin Dateiname aus externen Daten generieren
Keine neuen Beiträge Word Formate: wie kann man Kolumnentitel bearbeiten bzw. kürzen? 2 cito 1826 05. Mai 2010, 01:01
cito wie kann man Kolumnentitel bearbeiten bzw. kürzen?
Keine neuen Beiträge Word VBA Programmierung (Makros): Speichern unter mit Pfad und Dateiname 5 Derkaefer 1505 23. Jul 2009, 12:59
Lisa Speichern unter mit Pfad und Dateiname
Keine neuen Beiträge Word VBA Programmierung (Makros): RibbonX - MouseOver Hilfe - Dateiname ausblenden 1 Sam Círculo 1416 06. Mai 2009, 14:40
mumpel RibbonX - MouseOver Hilfe - Dateiname ausblenden
 

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