Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.07.2017 09:15:21 |
Melissa |
|
|
|
05.07.2017 10:40:01 |
Gast39877 |
|
|
Erste Seite, Kopf-und Fußzeile löschen |
05.07.2017 13:08:40 |
Melissa |
|
|
|
05.07.2017 14:35:05 |
Gast84378 |
|
|
Von:
Melissa |
Datum:
05.07.2017 13:08:40 |
Views:
549 |
Rating:
|
Antwort:
|
Thema:
Erste Seite, Kopf-und Fußzeile löschen |
Hallo,
vielen Dank für die schnelle Antwort und den Hinweis zu den anderen Foren.
Ja genau, es geht um Word-Dokumente.
Alle Dateien sind in einem Ordner mit Unterordnern gegliedert.
Am Ende der ersten Seite, die es zu entfernen gilt, ist immer ein Seitenumbruch.
Die Dokumente sollen in eine neue Vorlage in einem Dokumenten-Management-System hochgeladen werden.
Also muss ich jedes Dokument einzeln öffnen, bearbeiten, in der online Vorlage einfügen und hochladen.
Ich bin noch Anfänger in VBA und habe den im Anschluss gezeigten Code zusammen gesucht und getestet:
Bei meinem ersten Test funktioniert es.
Gerne nehme ich Feedback an.
Interessant wäre, ob ich die weiteren Arbeitsschritte auch automatisieren kann?
Z.B dass alle Dokumente in dem Ordner bereits bearbeitet sind.
Vielen herzlichen Dank!
Melissa
Hier der Code:
Sub KopfUndFusszeileUndErsteSeiteLoeschenUndAllesKopieren()
'
' KopfUndFusszeileUndErsteSeiteLoeschenUndAllesKopieren
'
'Delete Page Header
ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
Selection.WholeStory
Selection.Delete
' Delete Page Footer
ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
Selection.Delete
'Delete First Page
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Dim Seite As Integer
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Format(Seite, "1")
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Selection.Find.ClearFormatting
Selection.Delete
'copy entire Document
Selection.TypeBackspace
Selection.WholeStory
Selection.Copy
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.07.2017 09:15:21 |
Melissa |
|
|
|
05.07.2017 10:40:01 |
Gast39877 |
|
|
Erste Seite, Kopf-und Fußzeile löschen |
05.07.2017 13:08:40 |
Melissa |
|
|
|
05.07.2017 14:35:05 |
Gast84378 |
|
|