Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Alte Office (2003) im Stapelbetrieb zu 2016 konvertieren

Mitglied: pixel24

pixel24 (Level 1) - Jetzt verbinden

13.03.2018 um 15:00 Uhr, 430 Aufrufe, 5 Kommentare

Hallo zusammen,

wir hatten hier lange Zeit Office 2003 im Einsatz. Dann zunächst neue PC's mit Office 2016 eingerichtet und nun final alle auf diese neue Version umgestellt. Nun haben wir im Netzwerk ein bunt gemischtes Dateiformat. Die meisten Dokumente sind Office 2003 und einige schon im neuen Format.

Gibt es einen Stapelkonverter mit dem Ich alle alten Dokumente auf das neue Format bekomme oder wie löst man so etwas?

Viele Grüße
pixel24
Mitglied: colinardo
13.03.2018, aktualisiert um 15:15 Uhr
Servus @pixel24 .
Bitte ab und zu unsere Suche benutzen, die Frage kommt pro Woche drei vier mal, ein Skript dazu habe ich vor kurzem hier gepostet
https://www.administrator.de/contentid/365694#comment-1266357

Grüße Uwe
Bitte warten ..
Mitglied: pixel24
13.03.2018 um 16:03 Uhr
Ja, habe nach "office stapekonvertierung" gesucht aber nichts gefunden. Ja, habe aber auch nur die ersten 10 angeschaut. Eine Frage zum Skript da ich mich damit nicht auskenne.

Wäre dies auch so zu modifizieren dass das neue konvertierte Dokument einfach an gleicher Stelle liegt wie das alte?

Hintergrund ist der. Im Projekt-Verzeichnis haben wir unseren ganze Projekte organisiert. Das sind PDF-Dokumente, CAD-Dateien, GAEB-Dateien und eben Office-Dokumente.

Wenn ist das richtig verstanden habe liegt bei dem Skript nachher ja alles in einem neuen Unterbaum und ich müsste es von dort zurück in die Projekt-Struktur verschieben.

Das wäre extrem aufwendig.

Viele Grüße
pixel24
Bitte warten ..
Mitglied: BassFishFox
13.03.2018, aktualisiert um 17:36 Uhr
Hallo,

Ja, habe nach "office stapekonvertierung" gesucht aber nichts gefunden.

Schon klar das da nix gefunden wird, oder?

Wenn ist das richtig verstanden habe liegt bei dem Skript nachher ja alles in einem neuen Unterbaum und ich
müsste es von dort zurück in die Projekt-Struktur verschieben.
Das wäre extrem aufwendig.

Warum ist das aufwaendig? Einfach die entstandene Ordnerunterstruktur mit der Maus in die vorhandene Struktur reinziehen geht nicht?
Ich wuerde eher sowieso alles in einer neuen Struktur unter bringen bzw. die ollen Office-Dateien gleich noch loeschen, damit die Nutzer nicht noch die ollen Dateien bearbeiten.

BFF
Bitte warten ..
Mitglied: colinardo
13.03.2018, aktualisiert 23.03.2018
Zitat von pixel24:
Wäre dies auch so zu modifizieren dass das neue konvertierte Dokument einfach an gleicher Stelle liegt wie das alte?
Kein Problem.

Wenn ist das richtig verstanden habe liegt bei dem Skript nachher ja alles in einem neuen Unterbaum und ich müsste es von dort zurück in die Projekt-Struktur verschieben.
Richtig.
Das wäre extrem aufwendig.
?? hä, einfach auf den alten Baum drauf ziehen, dann werden sie an der richtigen Stelle einsortiert, ein Kinderspiel .

Bei Bedarf passe ich dir aber auch das Skript an deine Bedürfnisse an. => PN

-edit das hier speichert die Dokumente direkt an der gleichen Stelle und entfernt die alten Dokumente gleichzeitig:

Aufrufen mit
.\OfficeDocumentConverter.ps1 "C:\Daten"
01.
<#  
02.
    Office Document-Format Converter 
03.
#> 
04.
 
05.
param( 
06.
    [Parameter(Mandatory=$true)][ValidateNotNullOrEmpty()][string]$foldersource 
07.
08.
 
09.
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return} 
10.
 
11.
# ==== GLOBAL VARS ==== 
12.
$valid_extensions = '*.xls','*.xlt','*.doc','*.dot','*.ppt','*.pot','*.pps' 
13.
$mpar = [System.Reflection.Missing]::Value 
14.
# ===================== 
15.
 
16.
# enum all office files in source with recursive search 
17.
$files = gci $foldersource -Recurse -Force -File -Include $valid_extensions 
18.
$files_excel = $files | ?{$_.Extension -match '\.(xls|xlt)$'} 
19.
$files_word = $files | ?{$_.Extension -match '\.(doc|dot)$'} 
20.
$files_powerpoint = $files | ?{$_.Extension -match '\.(ppt|pot|pps)$'} 
21.
 
22.
# ====== EXCEL ======== 
23.
 
24.
if ($files_excel){ 
25.
    write-host "Processing EXCEL Workbooks:" -F White -B Green 
26.
     
27.
    # Prepare Excel for conversion 
28.
    $xl = New-Object -Com Excel.Application 
29.
    $xl.DisplayAlerts = $false 
30.
    $xl.Screenupdating = $false 
31.
    $xl.Visible = $false 
32.
    $remove = @() 
33.
     
34.
    # For each file 
35.
    foreach($file in $files_excel){ 
36.
        write-host "Converting '$($file.Fullname)' ... " -NoNewline -F Green 
37.
        try{ 
38.
            $wb = $xl.Workbooks.Open($file.Fullname,$false,$true) 
39.
            # file has macroproject ? 
40.
            $macroproject = $wb.HasVBProject 
41.
            $targetformat = '.xlsx' 
42.
            $format = 51 
43.
            # determine file extension and set format number 
44.
            switch($file.Extension){ 
45.
                '.xls' { 
46.
                    $targetformat = @{$true='.xlsm';$false='.xlsx'}[$macroproject] 
47.
                    $format = @{$true=52;$false=51}[($targetformat -like '*m')] 
48.
49.
                '.xlt' { 
50.
                    $targetformat = @{$true='.xltm';$false='.xltx'}[$macroproject] 
51.
                    $format = @{$true=53;$false=54}[($targetformat -like '*tm')] 
52.
53.
54.
            # new filename 
55.
            $targetfile = Join-Path $file.Directory.Fullname 
56.
 ($file.Basename + $targetformat) 
57.
                     
58.
            # Save file as new format 
59.
            $wb.SaveAs($targetfile,$format) | out-null 
60.
            if (Test-Path $targetfile){write-host 'OK.' -F Green} 
61.
	    $remove += $file 
62.
        }catch{ 
63.
            # Error occured 
64.
            write-error "Error converting file '$($file.Fullname)': $($_.Exception.Message)" 
65.
        }finally{ 
66.
            # close workbook 
67.
            if ($wb){$wb.Close($false) | out-null} 
68.
69.
70.
    # Quit Excel and tidy up 
71.
    $xl.DisplayAlerts = $true 
72.
    $xl.Screenupdating = $true 
73.
    $xl.Quit() | out-null 
74.
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($xl) | out-null 
75.
    $remove | remove-item -Force 
76.
77.
 
78.
# ====== WORD ======== 
79.
 
80.
if ($files_word){ 
81.
    write-host "Processing WORD documents:" -F White -B Green 
82.
    # Prepare Word for conversion 
83.
    $word = New-Object -Com Word.Application 
84.
    $word.DisplayAlerts = 0 
85.
    $word.Screenupdating = $false 
86.
    $word.Visible = $false 
87.
    # Array which hold files to delete afterwards 
88.
    $remove = @() 
89.
 
90.
    # For each file 
91.
    foreach($file in $files_word){ 
92.
        write-host "Converting '$($file.Fullname)' ... " -NoNewline -F Green 
93.
        try{ 
94.
            $doc = $word.Documents.Open($file.Fullname,$false,$true) 
95.
            # file has macroproject ? 
96.
            $macroproject = $doc.HasVBProject 
97.
            $targetformat = '.docx' 
98.
            $format = 12 
99.
            # determine file extension and set format number 
100.
            switch($file.Extension){ 
101.
                '.doc' { 
102.
                    $targetformat = @{$true='.docm';$false='.docx'}[$macroproject] 
103.
                    $format = @{$true=13;$false=12}[($targetformat -like '*m')] 
104.
105.
                '.dot' { 
106.
                    $targetformat = @{$true='.dotm';$false='.dotx'}[$macroproject] 
107.
                    $format = @{$true=15;$false=14}[($targetformat -like '*tm')] 
108.
109.
110.
            # new filename 
111.
            $targetfile = Join-Path $file.Directory.Fullname 
112.
 ($file.Basename + $targetformat) 
113.
                     
114.
            # Save file as new format 
115.
            $doc.SaveAs2([ref][system.object]$targetfile,[ref]$format) 
116.
            if (Test-Path $targetfile){write-host 'OK.' -F Green} 
117.
	    $remove += $file 
118.
        }catch{ 
119.
            # Error occured 
120.
            write-error "Error converting file '$($file.Fullname)': $($_.Exception.Message)" 
121.
        }finally{ 
122.
            # close document 
123.
            if ($doc -ne $null){$doc.Close($false)} 
124.
125.
126.
    # Quit Word and tidy up 
127.
    $word.DisplayAlerts = -1 
128.
    $word.Screenupdating = $true 
129.
    $word.Quit() | out-null 
130.
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($word) | out-null 
131.
    $remove | remove-item -Force 
132.
133.
 
134.
# ====== POWERPOINT ======== 
135.
 
136.
if ($files_powerpoint){ 
137.
    write-host "Processing POWERPOINT presentations:" -F White -B Green 
138.
    # Prepare Word for conversion 
139.
    $pp = New-Object -Com Powerpoint.Application 
140.
    $pp.DisplayAlerts = 1 
141.
    $remove = @() 
142.
     
143.
    # For each file 
144.
    foreach($file in $files_powerpoint){ 
145.
        write-host "Converting '$($file.Fullname)' ... " -NoNewline -F Green 
146.
         
147.
        try{ 
148.
            $presentation = $pp.Presentations.Open($file.Fullname,$true,$mpar,0) 
149.
            # file has macroproject ? 
150.
            $macroproject = $presentation.HasVBProject 
151.
            $targetformat = '.pptx' 
152.
            $format = 12 
153.
            # determine file extension and set format number 
154.
            switch($file.Extension){ 
155.
                '.ppt' { 
156.
                    $targetformat = @{$true='.pptm';$false='.pptx'}[$macroproject] 
157.
                    $format = @{$true=25;$false=24}[($targetformat -like '*m')] 
158.
159.
                '.pot' { 
160.
                    $targetformat = @{$true='.potm';$false='.potx'}[$macroproject] 
161.
                    $format = @{$true=27;$false=26}[($targetformat -like '*tm')] 
162.
163.
                '.pps' { 
164.
                    $targetformat = @{$true='.ppsm';$false='.ppsx'}[$macroproject] 
165.
                    $format = @{$true=29;$false=28}[($targetformat -like '*sm')] 
166.
167.
168.
            # new filename 
169.
            $targetfile = Join-Path $file.Directory.Fullname 
170.
 ($file.Basename + $targetformat) 
171.
                     
172.
            # Save file as new format 
173.
            $presentation.SaveAs([ref][system.object]$targetfile,[ref]$format) 
174.
            if (Test-Path $targetfile){write-host 'OK.' -F Green} 
175.
	    $remove += $file 
176.
        }catch{ 
177.
            # Error occured 
178.
            write-error "Error converting file '$($file.Fullname)': $($_.Exception.Message)" 
179.
        }finally{ 
180.
            # close presentation 
181.
            if ($presentation){$presentation.Close() | out-null} 
182.
183.
184.
    # Quit Powerpoint and tidy up 
185.
    $pp.DisplayAlerts = 2 
186.
    $pp.Quit() | out-null 
187.
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($pp) | out-null 
188.
    $remove | remove-item -Force 
189.
}
Bitte warten ..
Mitglied: pixel24
22.03.2018 um 15:48 Uhr
Danke für die Infos ... Ich komme leider erst übernächstes Wochenende dazu es zu testen. Ich werde berichten!
Bitte warten ..
Ähnliche Inhalte
Exchange Server
Office 2013 oder 2016 mit Exchange 2003
Frage von uridium69Exchange Server2 Kommentare

Gemäss Microsoft ist es seit Office 2013 nicht mehr möglich, Outlook mit Exchange 2003 zu benutzen. Gibt es dennoch ...

Microsoft Office
Office 2016 oder 2016 mehrsprachig
Frage von sammy65Microsoft Office3 Kommentare

Hallo miteinander, ich möchte auf einem Terminalserver eine bestehende Office 2013 Installation so konfigurieren, dass je nach User das ...

Microsoft Office
Office 365 oder Office 2016
Frage von Leo-leMicrosoft Office14 Kommentare

Hallo zusammen, was habt ihr so am laufen an Office-Software in der Firma. Wir überlegen Office 365 auszurollen, jedoch ...

Microsoft Office

Donwgrade von Office 2016 auf Office 2010

Frage von Fitzel69Microsoft Office9 Kommentare

Hallo zusammen da ich noch nie einen Lizenzdowngrade vorgenommen habe, kann mir vielleicht jemand helfen Wir haben bei uns ...

Neue Wissensbeiträge
Windows Netzwerk

CGM Praxisarchiv funktioniert auf Clients nach Update auf 4.14 nicht mehr

Tipp von MOS6581 vor 3 StundenWindows Netzwerk

Moin, ein Kunde setzt das CGM-Praxisarchiv ein. Mehrplatzinstallation mit SQL-Server. Nachdem letzte Woche auf die 4.14 aktualisiert wurde, funktionierte ...

Windows 10

Win 10 - Storage Sense - neues herstellerseitiges Cleaning-Tool statt cleanmgr

Tipp von mathu vor 9 StundenWindows 101 Kommentar

Vermutlich ab dem Oktoberrelease wird eine neue Speicherbereinigungssuftware ausgeliefert von Microsoft. Cleanmgr.exe soll angeblich aber noch weiter parallel verfügbar ...

E-Mail
Neueste Masche der Bad Guys: Offene Erpressung
Information von the-buccaneer vor 1 TagE-Mail14 Kommentare

"Warum den komplizierten Weg über einen Kryptotrojaner nehmen, wenn man die Leute auch direkt erpressen kann?" haben sich wohl ...

Viren und Trojaner
Neues ct-desinfect 2018 erschienen
Information von Lochkartenstanzer vor 1 TagViren und Trojaner

Moin, heise hat eine neues Sonderheft Desinfect veröffentlicht (9,90€/12,90€) . Falls jemand öfter mal Kisten "säubern" muß ist das ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Kombiniere mehrere 4G Router zu einem Netzwerk - Anwendung kleine LAN (10-20 Leute)
Frage von HulkTheHeroLAN, WAN, Wireless22 Kommentare

Guten Mittag liebes Administrator - Fourm, ich hoffe ich habe das richtige Thema ausgewählt - ansonsten bitte gerne verschieben ...

Firewall
Blocken illegaler Film-Streams
gelöst Frage von CoreknabeFirewall20 Kommentare

Moin Wissende, unsere kleine Hochschule möchte gern das illegale Streaming von Kinofilmen und Serien unterbinden. Wir sperren bisher alle ...

Windows Server
2012 R2 Server Keine Anmeldung möglich Meldung: Laut den Sicherheitsrichtlinien auf diesem PC sollen informationen zur letzten interaktiven Anmeldung angezeigt werden
Frage von Speedy18A4Windows Server19 Kommentare

Hallo, ich habe vor einigen Wochen einen zweiten Domain Controller zu meiner Domain hinzugefügt. Funktionierte alles wunderbar. Auch die ...

iOS
Virus auf iphone
Frage von jensgebkeniOS17 Kommentare

hallo gemeinschaft, habe einen virus auf meinem iphone es kommen zwei meldungsfenster 1. online-2018-software-free.win 2. wpform.com - please click ...