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, 466 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
Sbs 2003 und outlook 2016
Frage von jensgebkenExchange Server4 Kommentare

Hallo Gemeinschaft habe probleme bei der Einrichtung bei einem outlook client vorher war auf diesem Rechner office 2003 - ...

Windows 7
Strg-Alt-Entf bei Anmeldung?
gelöst Frage von DirmhirnWindows 712 Kommentare

Hi, soweit ich das gehört habe soll die Kombination Strg-Alt-Ctrl bei der Windows Domain-Anmeldung gegen "überlagende" Malware helfen. Habt ...

Windows 7
Strg + Alt + Entf komplett blockieren
gelöst Frage von KaladialWindows 710 Kommentare

Hallo, ich hab eine eigentlich relativ simple Frage, auf die Mr.Google aber leider keine zufriedenstellende Antwort hatte. Folgendes Problem: ...

Windows Server

Server 2016 Dom. Benutzer können Kennwörter nicht ändern in der RDP-Sitzung STRG+ALT+ENDE

gelöst Frage von zeroblue2005Windows Server12 Kommentare

Hallo Zusammen, ich bin ein wenig am verzweifeln und bevor ich jetzt die Ganze Dom. inkl. Server strubellig konfiguriere, ...

Neue Wissensbeiträge
Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 3 TagenHumor (lol)6 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 4 TagenErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 7 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor!
Tipp von Criemo vor 7 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Heiß diskutierte Inhalte
Windows Server
Dienstnamen und oder Deutsche und Englische Beschreibung in services.msc gleichzeitig anzeigen
gelöst Frage von vafk18Windows Server23 Kommentare

Guten Morgen, die Suche nach Diensten in services.msc gestaltet sich immer wieder schwierig, weil mir je nach Aufgabe die ...

Windows Server
Kleine Umfrage: Windows Server Desktop oder Core?
Frage von doomfreakWindows Server18 Kommentare

Hey :) Ich wollte mal eine kleine Umfrage hier starten. Ich bin schon etwas länger auf dieser Seite hier ...

JavaScript
Javascript: WebSql
gelöst Frage von internet2107JavaScript17 Kommentare

Guten Morgen zusammen, zunächst einmal einen schönen dritten Advent. Ich habe ein Problem mit Javascript und WebSQL. Bisher habe ...

Microsoft
Lizenzplausibilisierung oder Spam?
Frage von lordimacMicrosoft14 Kommentare

Liebe Forengemeinde, uns erreichte die Tage eine Mail bezüglich einer Lizenzplausibilisierung durch einen Microsoft SAM Partner. Die Meldung im ...