Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
GELÖST

Word VBA - Powershell - Seitenzahlen - jede Seite

Frage Entwicklung Batch & Shell

Mitglied: internet2107

internet2107 (Level 1) - Jetzt verbinden

25.11.2014 um 13:59 Uhr, 1221 Aufrufe, 2 Kommentare, 1 Danke

Man möchte gerne bestehende Worddokumente entsprechend ändern (mit POwershell), dass folgende Zusätze eingebaut werden.

Ich finde Unmengen an Material zu Excel VBA, was ich in der Vergangenheit auch schon mal gemacht habe, aber bei Word sieht es sehr mau aus.

Ich habe folgenden Code. Dieser öffnet im aktuellen Fall ein WordDoc, fügt in der Fußzeile eine Seitenzahl hinzu und schreibt aktuell NUR auf der ersten Seite die Bezeichnung des Docs.

Wunsch ist aber:

- Seitenzahlen im Footer (Seite x von y)
- Bezeichnung des Dokuments auf jeder Seite des Docs im Kopf

01.
$objword = New-Object -ComObject word.application 
02.
set-variable -name wdAlignPageNumberCenter -value 1 -option constant 
03.
$objword.visible = $false 
04.
 
05.
$doc = $objword.documents.Open($word_dat.FullName) 
06.
$objword.selection.pagesetup.topmargin = 30 
07.
$objword.selection.pagesetup.leftmargin = 20 
08.
$objword.selection.pagesetup.rightmargin = 10 
09.
$objword.selection.pagesetup.bottommargin = 30 
10.
$printout_pagesize = "A2" 
11.
$selection = $objword.Selection 
12.
$selection.Font.Name = "Arial" 
13.
$selection.Font.Size = "9" 
14.
$selection.TypeText((Get-Date)) 
15.
$selection.TypeParagraph() 
16.
$selection.TypeText($word_dat.FullName) 
17.
$selection.TypeParagraph() 
18.
$selection.PageSetup.PaperSize = [Microsoft.Office.Interop.Word.WdPaperSize]::$printout_pagesize 
19.
$selection.PageSetup.Orientation = "Querformat" 
20.
$doc.Sections.Item(1).Footers.Item(1).PageNumbers.Add($wdAlignPageNumberCenter) 
21.
 
Vielen Dank.
Mitglied: 114757
25.11.2014, aktualisiert um 15:13 Uhr
01.
# Header setzen  
02.
$doc.Sections.Item(1).Headers.Item(1).Range.Select() 
03.
$objWord.Selection.Paragraphs.Item(1).Alignment = 1  # center 
04.
$objWord.Selection.Font.Name = "Arial" 
05.
$objWord.Selection.Font.Size = "9" 
06.
$objWord.Selection.Text = $word_dat.FullName 
07.
 
08.
# Footer setzen 
09.
$doc.Sections.Item(1).Footers.Item(1).Range.Select() 
10.
$objWord.Selection.Paragraphs.Item(1).Alignment = 1   #center 
11.
$objWord.Selection.Font.Name = "Arial" 
12.
$objWord.Selection.Font.Size = "9" 
13.
$objWord.Selection.TypeText("Seite ") 
14.
$objWord.Selection.Fields.Add($objWord.Selection.Range,-1,"PAGE") 
15.
$objWord.Selection.TypeText(" von ") 
16.
$objWord.Selection.Fields.Add($objWord.Selection.Range,-1,"NUMPAGES")
Zur Info: Wenn du nach VBA suchst, findest du mehr Info zu Word, welches du dann fast 1 zu 1 in Powershell umsetzen kannst.

Gruß jodel32
Bitte warten ..
Mitglied: internet2107
25.11.2014 um 16:07 Uhr
Viele Grüße, jodel32.

DANKE!!. Hat sehr geholfen.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Powershell Script aus VBA heraus ausführen (2)

Frage von mcnico1978 zum Thema VB for Applications ...

Windows Server
gelöst Word-Dokument mit Powershell bearbeiten (5)

Frage von Peter0816 zum Thema Windows Server ...

Microsoft Office
Formel-Funktion in Word produziert unsaubere Resultate bei Indizes (1)

Frage von Yauhun zum Thema Microsoft Office ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(5)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Windows Server
gelöst Exchange HyperV Prozessorlast (19)

Frage von theoberlin zum Thema Windows Server ...

Windows Server
Server mit Netzwerkaussetzern (18)

Frage von SarekHL zum Thema Windows Server ...

Server-Hardware
gelöst SPP von HP Abwärtskompatibel? (14)

Frage von fireskyer zum Thema Server-Hardware ...

Netzwerke
Vorschlag Hotelverkabelung (14)

Frage von FA-jka zum Thema Netzwerke ...