Eine formatierte rtf oder doc Datei mit Autoit erstellen

kayes

Hallo zusammen!

ich habe folgendes Problem:

ich möchte eine rtf (oder doc) Datei mit autoit in einem bestimmten Format erstellen.

So sieht der Code bisher aus.

C

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <WindowsConstants.au3>


; -------------------------------------------------------------------------------------------------------------------------------
; Funktion     : _FILE
; Beschreibung : Erzeugung der Textdatei
; -------------------------------------------------------------------------------------------------------------------------------
;Func _FILE()
    Local $hFileOpen = FileOpen("I:\Testumgebung\TEST.rtf", $FO_APPEND)
    FileWrite($hFileOpen, "Beispiel")
	FileClose($hFileOpen)
;
;EndFunc   ;==>_Ende

Alles anzeigen

Was muss ich tun, damit mir folgende Formatierung erzeugt wird:

Wenn ich mir in Word die rtf Datei erzeuge, kommt im Editor eine Riesendatei dabei raus. Kann ich das über eine Verkettung von Variablen lösen?

**Schnuffel**

ich denke nein.

Warum muss es denn das rtf / doc Format sein?

In pdf ist das sicher einfacher erstellt

kayes

Zitat von Schnuffel

ich denke nein.
Warum muss es denn das rtf / doc Format sein?
In pdf ist das sicher einfacher erstellt

Weil die weiterverarbeitende Software pdf nicht verarbeitet.

Hab es jetzt so gelöst:

Schritt 1: Erstellung der Beispieldatei in Word, abgespeichert im rtf Format.

Schritt 2: Editieren der rtf Datei im Editor und Speicherung in 2 Teil, einmal was vor dem Beispieltext ist und das was nach dem Beispieltext ist.

Schritt 3: Verkettung der 3 Teile.

Sieht im Code dann so aus:

C

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIShPath.au3>
#include <WindowsConstants.au3>


; -------------------------------------------------------------------------------------------------------------------------------
; Funktion     : _FILE
; Beschreibung : Erzeugung der Textdatei
; -------------------------------------------------------------------------------------------------------------------------------
;Func _FILE()
    Local $File1 = "I:\Testumgebung\teil1.txt"
	Local $File2 = "I:\Testumgebung\teil2.txt"
    Local $hFileOpen = FileOpen("I:\Testumgebung\TEST.doc", $FO_APPEND)
	local $Az ="Beispiel"
	Local $Text1 = FileRead ($File1)
	Local $Text2 = FileRead ($File2)
    FileWrite($hFileOpen, $Text1)
	FileWrite($hFileOpen, $Az)
	FileWrite($hFileOpen, $Text2)
	FileClose($hFileOpen)
;
;EndFunc   ;==>_Ende

Alles anzeigen

kayes

weitere Vorschläge - Verbesserungen gerne, ansonsten:

-Thema erledigt-

**Schnuffel**

ein recht rudimentärer Ansatz auf den ich so nicht sofort gekommen wäre. mea culpa

Ich denke wenn es für dich deine Anforderung erfüllt ist ja alles prächtig.

mir ist unklar wir das rtf-Format Textdrehung verarbeitet, aber wie gesagt wenns klappt ist alles gut.

kayes

Zitat von Schnuffel

mir ist unklar wir das rtf-Format Textdrehung verarbeitet, aber wie gesagt wenns klappt ist alles gut

manchmal sind die Wege unergründlich.