Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Für Experten/ Doc.als Querformat drucken

Für Experten/ Doc.als Querformat drucken
19.02.2008 19:41:22
Fred
Hallo zusammen
Ich speichere eine Tabelle über den unten stehenden Code als Word Dokument.Weiss jemand wie ich vor dem Speichern dem Doc. beibringen kann,das wenn jemand es ausdrucken will, das automatisch Das Querformat vorgegeben ist.
Option Explicit

Sub Störmeldung_speichernDoc()
Const thisDir = "C:\Dokumente und Einstellungen\xanwfb\Eigene Dateien\Störmeldung\"
Const thisTmpName = "Störmeldung"
Dim objWord As Object
Dim objDoc As Object
Dim strFileHTML As String
Dim strFileDOC As String
strFileHTML = thisDir & thisTmpName & ".htm"
strFileDOC = Left(strFileHTML, Len(strFileHTML) - 4) & ".doc"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFileHTML, _
Sheet:=ActiveSheet.Name, _
Source:=ActiveSheet.UsedRange.Address, _
HtmlType:=xlHtmlStatic).Publish True
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(Filename:=strFileHTML, Format:=wdOpenFormatWebPages)
objDoc.SaveAs Filename:=strFileDOC, FileFormat:=wdFormatDocument
objDoc.Close
Set objWord = Nothing
Set objDoc = Nothing
Kill strFileHTML
End Sub


Grüße Fred

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Für Experten/ Doc.als Querformat drucken
19.02.2008 21:08:00
Ramses
Hallo
Probier mal

Sub Störmeldung_speichernDoc()
Const thisDir = "C:\Dokumente und Einstellungen\xanwfb\Eigene Dateien\Störmeldung\"
Const thisTmpName = "Störmeldung"
Dim objWord As Object
Dim objDoc As Object
Dim strFileHTML As String
Dim strFileDOC As String
strFileHTML = thisDir & thisTmpName & ".htm"
strFileDOC = Left(strFileHTML, Len(strFileHTML) - 4) & ".doc"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
FileName:=strFileHTML, _
Sheet:=ActiveSheet.Name, _
Source:=ActiveSheet.UsedRange.Address, _
HtmlType:=xlHtmlStatic).Publish True
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(FileName:=strFileHTML, Format:=wdOpenFormatWebPages)
With objDoc
.PageSetup.Orientation = wdOrientLandscape
.SaveAs FileName:=strFileDOC, FileFormat:=wdFormatDocument
.Close
End With
Set objWord = Nothing
Set objDoc = Nothing
Kill strFileHTML
End Sub


Gruss Rainer

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige