Office - Word, Excel und Co. 9.747 Themen, 41.434 Beiträge

Verfolgung starten Optionen

Word Makro gesucht (Office for XP)

gelöscht_180069 / 11 Antworten / Flachansicht Nickles

Hallo, liebe Hilfreiche, das Makro soll folgendes bewirken:

1. einen Presseartikel aus dem Internet ("Kopieren" bereits ausgeführt) als Word-Dokument in den Ordner C:\Presse speichern und - dies ist die Schwierigkeit - bei unspezifischen Dateinamen (URL oder ähnlich) den Namen immer wieder abwandeln (z. B. URL1, URL2 usw.), damit nicht eine Datei die andere ungewollt ersetzt

2. die Word-Datei schließen

3. eine neue leere Word-Seite aufrufen.

Variante: nicht das HTML-Dokument speichern, sondern Bearbeiten - Inhalte einfügen - Unformatierten Text
_________________

bei Antwort benachrichtigen
Hallo elbbatz, es gibt in jedem Officeprogramm eine Makrofunktion. Sie ... violetta7388
Danke, aber leider ist es nicht so einfach. Problem ist die Vergabe des ... gelöscht_180069
Hallo elbbatz, nun , es ist nicht bekannt wie Ihre Dateinamen aussehen ... violetta7388
Danke wiederum, violetta. Also, ich mache viel mit Makros unter Word, habe ... gelöscht_180069
Hallo ellbatz, auch das ist kein Problem. Sie verwenden einfach Ihren ... violetta7388
Hallo Warum so Umständlich mit Zähler handieren, hänge Datum und Uhrzeit ... hddiesel
Hallo hddiesel, geht natürlich auch, ist nur beim visuellen Suchen und ... violetta7388
hddiesel violetta7388 „Hallo hddiesel, geht natürlich auch, ist nur beim visuellen Suchen und...“
Optionen

Hallo

Nachtrag:

Kleines Beispiel zum Speichern mit Datum und Uhrzeit:

Beispiel ist mit festem Dateiname,
Sicherung ist mit Datum und Uhrzeit im Dateinamen (Pfad_S)
und Aktuelles Dokument ohne Datum und Uhrzeit im Dateinamen (Pfad_A)


Sub Dateiname_Datum_Zeit_Speichern()
'
' Beispiel Makro
'
Dim Pfad_S As String
Dim Pfad_A As String

Pfad_S = "D:\Daten\2009\Sicherung\" ' Sicherungs Dokument: Ordner im Pfad müssen vorhanden sein, sonst Fehler!
Pfad_A = "D:\Daten\2009\Dokumente\" ' Aktuelles Dokument: Ordner im Pfad müssen vorhanden sein, sonst Fehler!

ChangeFileOpenDirectory Pfad_S ' Ordner im Pfad müssen vorhanden sein, sonst Fehler!
ActiveDocument.SaveAs FileName:="Test_Name_Datum_Zeit_Speichern " & "_Datum " & Format(Date, "YYYY MM DD") _
& "_Uhr " & Format(Time, "hh mm ss") & ".doc"

ChangeFileOpenDirectory Pfad_A ' Ordner im Pfad müssen vorhanden sein, sonst Fehler!
ActiveDocument.SaveAs FileName:="Test_Name_Datum_Zeit_Speichern" & ".doc"

End Sub


Wünsche euch ein schönes Wochenende!

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen
Danke beiden und besonders Karl. Mein Problem ist damit gelöst. gelöscht_180069
Hallo elbbatz Als Nachtrag ein Beispiel, mit markiertem Bereich als Datei- ... hddiesel
Danke, Karl, noch eleganter, aber das andere war auch schon prima. gelöscht_180069