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
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, 1358 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
Word Seitenzahlen für Suchstring ermitteln
gelöst Frage von goodbytesVB for Applications22 Kommentare

Hallo, Mittels vba möchte ich ein ganzes Word-Dokument nach einem bestimmten String durchsuchen und alle Seitenzahlen wo dieser String ...

VB for Applications
Powershell in VBA
gelöst Frage von it4baerVB for Applications8 Kommentare

Hallo, kann mir jemand helfen das zu übersetzen? ich möchte gerne eine Ausgabe in VBScript machen. Der Befehl ist: ...

Microsoft Office
VBA Word IBAN zerschneiden
gelöst Frage von InSpeeMicrosoft Office8 Kommentare

Hallo, wie kann ich mit VBA eine IBAN in 4er Schritten zerschneiden, sodass die IBAN so aussieht: DExx xxxx ...

VB for Applications
Excel-VBA nach Word-VBA übersetzen (V. 2010)
gelöst Frage von spinnifexVB for Applications2 Kommentare

Hallo Admins, wie kann ich folgendes XL-Makro nach Word übersetzen, wobei die Zelladresse "A1" als Textmarke "Anzahl" angesprochen werden ...

Neue Wissensbeiträge
Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 9 MinutenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 14 StundenInternet2 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 18 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 18 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte14 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...