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, 375 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

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 ...

Exchange Server

Exchange - Office-Dokumente in PDF konvertieren

Frage von RedBullBF2Exchange Server3 Kommentare

Hallo zusammen, gibt es eine Möglichkeit im Exchange Server Nachrichtenanhänge (Office) in PDF umzuwandeln und diese gegen die Originale ...

Neue Wissensbeiträge
Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 1 TagWindows 101 Kommentar

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 2 TagenVideo & Streaming9 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 2 TagenErkennung und -Abwehr4 Kommentare

Servus Kollegen, downloadbar unter

Windows Update

Microsoft Patchday Juni 2018 - BSOD, obwohl noch kein Patch freigegeben

Erfahrungsbericht von diemilz vor 2 TagenWindows Update8 Kommentare

Hallo zusammen, wir hatten hier letzte Woche ein massives Problem. Alles begann damit, dass ein Mitarbeiter kurz vor Feierabend ...

Heiß diskutierte Inhalte
Windows Userverwaltung
User Überwachung
gelöst Frage von YellowcakeWindows Userverwaltung38 Kommentare

Hey ich habe von unserem neuem Datenschutzbeauftragten ein kleines Horror Paket bekommen. Ich soll wenn es möglich ist, das ...

Windows Installation
Adobe Reader noch notwendig?
gelöst Frage von EitieOSWindows Installation26 Kommentare

Muss ich mir noch die Arbeit machen und den Adobe Reader installieren und aktuell halten, wenn doch in Win10 ...

Instant Messaging
Whats App Business am PC einsetzen
Frage von thomasreischerInstant Messaging15 Kommentare

Hallo zusammen, wir würden demnächst gerne WhatsApp Business verwenden um den Kontakt zwischen Kunden und Mitarbeitern zu erleichtern. Natürlich ...

Netzwerkmanagement
Druckprobleme bei Thin Clients und Netzwerkdruckern
Frage von hesperNetzwerkmanagement14 Kommentare

Morgen zusammen! Bei uns werden in den Außenstellen HP t520 Thin Clients an drei W2k16 Terminalserver mittels RDP eingesetzt. ...