Thema Datum  Von Nutzer Rating
Antwort
Rot ExportAsFixedFormat
 21.12.2020 17:48:46 r-heu
NotSolved
21.12.2020 19:04:08 Gast57701
NotSolved
22.12.2020 13:17:06 r-heu
Solved

Ansicht des Beitrags:
Von:
r-heu		 Datum:
21.12.2020 17:48:46		 Views:
1505		 Rating:
     
Antwort:
  Ja
Thema:
ExportAsFixedFormat

Hallo Zusammen,

ich hab wieder einmal eine Frage bei der ich nicht weiter komm...

Kann man die Export Fktion nicht zweimal nacheinander verwenden?

Übersehe ich etwas?

?
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
41
Dim objWord2 As Object
           Set objWord2 = CreateObject("Word.Application")
           objWord2.Visible = True
           objWord2.Documents.Open "T:\Austausch\01 von\vonHeu\" & dateiNameRechnung
           objWord2.Activate
'PDF von Rechnung erzeugen und abspeichern
           dateiName = "S:\01 Forderungen vonUns\10 Rechnung Ausgang\" & Left(dateiNameRechnung, InStr(dateiNameRechnung, ".docx") - 1) & " R" & ".pdf"
           objWord2.ActiveDocument.ExportAsFixedFormat OutputFileName:=dateiName, _
              OpenAfterExport:=False, _
              OptimizeFor:=0, _
              Range:=2, _
              Item:=0, _
              IncludeDocProps:=True, _
              KeepIRM:=True, _
              CreateBookmarks:=0, _
              DocStructureTags:=True, _
              BitmapMissingFonts:=True, _
              UseISO19005_1:=False
               
               
'PDF von Rechnung und Anschreiben erzeugen und abspeichern''<strong>KLAPPT NICHT - wirft aber auch keinen Fehler</strong>''
           dateiNameRuA = "U:\scanner von_PC14\geschrieben zu\" & "zu " & nummer & dateiNameRechnung & " + Anschreiben" & ".pdf"
           objWord2.ActiveDocument.ExportAsFixedFormat OutputFileName:=dateiNameRuA, _
              OpenAfterExport:=False, _
              OptimizeFor:=0, _
              Range:=0, _
              Item:=0, _
              IncludeDocProps:=True, _
              KeepIRM:=True, _
              CreateBookmarks:=0, _
              DocStructureTags:=True, _
              BitmapMissingFonts:=True, _
              UseISO19005_1:=False
        
           ' Dokument schließen und nicht speichern
           objWord2.Documents.Close SaveChanges:=False
 
           ' Wird beendet
           objWord2.Quit
           ' Objekt zerstören
           Set objWord2 = Nothing

 

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 ExportAsFixedFormat
 21.12.2020 17:48:46 r-heu
NotSolved
21.12.2020 19:04:08 Gast57701
NotSolved
22.12.2020 13:17:06 r-heu
Solved