MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Office - Allgemein
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 09.03.2007, 20:17   #1
homo novus
Standard Off2007 - Add-In zur Konvertierung alter Officedateien ins neue Format

Nabend!

Ich suche ein Add-In für Word und Excel 2007, mit dem ich die Dateien vom alten Dateiformat ins neue konvertieren kann.

Mir ist bewusst, dass es diese Funktion bereits gibt. Es geht mir aber darum, dass ich mehrere Dateien aussuchen kann und die dann alle konvertiert werden. Die bereits im Programm integrierte Funktion macht dies nur mir einer offenen Datei möglich, was bei Hunderten von Dateien eine sehr mühselige Arbeit wäre...

Weiß jemand Abhilfe?

homo novus
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.03.2007, 20:56   #2
sack
Standard

hat denn niemand ahnung hier?
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.03.2007, 00:20   #3
SWR
MOF Koryphäe
MOF Koryphäe
Standard

Kann man sich notfalls selber basteln - hier für Word 2007:
Code:

Sub Makro1()

Dim FD As FileDialog, i As Integer, strDoc As String
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.Show

For i = 1 To FD.SelectedItems.Count

strDoc = FD.SelectedItems(i)
    
    Documents.Open FileName:=strDoc, _
        ConfirmConversions:=True, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    
    ActiveDocument.Convert
    
    ActiveDocument.SaveAs FileName:=strDoc & "x", _
         FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False

    ActiveDocument.Close

Next i
End Sub
Makro ausführen und im sich aufpoppenden Dateidialog Verzeichnis und Dateien (Multiselect ist eingeschaltet) auswählen und OK - zuschauen, wie konvertiert wird.
Bin hier allerdings nicht der Word-Fachmann- wenn's jemand besser weiß, bitteschön . . .

Gruß
Stephan
SWR ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.03.2007, 00:49   #4
SWR
MOF Koryphäe
MOF Koryphäe
Standard

. . . und hier für Excel 2007:
Code:

Sub Makro1()
Dim FD As FileDialog, i As Integer, strDoc As String
Set FD = Application.FileDialog(msoFileDialogFilePicker)
FD.Show

For i = 1 To FD.SelectedItems.Count

strDoc = FD.SelectedItems(i)
Workbooks.Open Filename:=strDoc
    ActiveWorkbook.SaveAs Filename:= _
        strDoc & "x", FileFormat:=xlOpenXMLWorkbook _
        , CreateBackup:=False

ActiveWorkbook.Close

Next i
End Sub
Auch hier der Nachsatz: Bin hier allerdings nicht der Excel-Fachmann - wenn's jemand besser weiß, bitteschön . . .

Gruß
Stephan

P.S.: in beiden Code-Demos weiß ich jetzt allerdings nicht, wie sich das Ganze verhält, wenn man Dokumente konvertieren will, welche Makros enthalten (das wird wohl in der beschriebenen Form so nicht gehen). Da lautet die Endung ja bekanntermaßen nicht "docx", sondern "docm" (bzw. "xlsx" und "xlsm" bei Excel). Gegebenenfalls muß man da noch etwas "nachbasteln" . . .
SWR ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.03.2007, 21:13   #5
homo novus
Standard

An dieser Stelle muss ich ein Lob loswerden!

Vielen Dank, es klappt wunderbar!

Außerdem ist das hier ein gutes Forum und nicht so ein Saft wie dieses hier: http://www.office-loesung.de/

Habe da auch gefragt, aber meine Frage wurde zwei Mal unbeanwortet einfach gelöscht! Scheißladen!....

Danke nochmals,

homo novus
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:16 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.