Thema Datum  Von Nutzer Rating
Antwort
Rot Dateien mit Formatvorlage zusammenfügen
18.09.2013 09:05:01 Jens
NotSolved

Ansicht des Beitrags:
Von:
Jens		 Datum:
18.09.2013 09:05:01		 Views:
1587		 Rating:
     
Antwort:
  Ja
Thema:
Dateien mit Formatvorlage zusammenfügen

Hallo zusammen,

 

ich muss mehrere Dateien zu einer Datei zusammenfügen und diese dann in eine PDF umwandeln.
Das ganze ist sehr unspektakulär und habe ich schon wunderbar codiert.
Allerdings habe ich noch ein Problem, der nimmt die Formate nicht mit bzw. stört sich an den anderen Makros in den Dateien :-(
Hinter jeder Datei liegt ein Template es kann das selbe sein, es kann aber auch unterschiedlich sein, aber alle Formate müssen mit den dazu gehörigen Inhalten in eine Datei. 

Kann mir einer einen Tipp geben oder ein entsprechendes Skript das mir die Dateien zusammenfügt mit Formaten? 

Ich währe euch sehr verbunden.
Vg Jens

 

Dieser fügt die Inhalte zusammen - wunderbar nur ohne Format :-(

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub abc()
Documents.Add
ChDir "C:\TEST"
myName = Dir("*.DOC")
While myName <> ""
With Selection
.InsertFile FileName:=myName, ConfirmConversions:=False
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
myName = Dir()
Wend
End Sub

 

Dieser erstellt aus allen Dateien einzelne PDF's nur leider stört er sich an den im Schreiben enthaltene Makros :-/

?
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
Sub PDF_Erzeugen_Koppieren()
'
' PDF_Erzeugen_Koppieren Makro
'
'
Dim Datei(15) As String
Dim i
i = 0
Datei(0) = "Bewilligung_"
Datei(1) = "BeWo_r"
Datei(2) = "Hinweise"
 
Datei(3) = "Bewilligung"
Datei(4) = "HinweiseBew"
 
Datei(5) = "Bewilligung_mit_anöT"
Datei(6) = "BeWo_Durchschrift_anÖT"
Datei(7) = "HinweiseBewilligung_anÖT"
 
While i <= 11
    Documents.Open FileName:="C:\TEST" & Datei(i) & ".doc", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\TEST" & Datei(i), _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
 
i = i + 1
 
 Wend
         
         
         
 
End Sub

 

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 Dateien mit Formatvorlage zusammenfügen
18.09.2013 09:05:01 Jens
NotSolved