|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Seite kopieren und an beliebiger Stelle einfügen |
01.06.2016 12:48:41 |
Dominik |
|
|
|
02.06.2016 09:19:40 |
Gast77584 |
|
|
|
02.06.2016 11:12:35 |
Dominik |
|
|
|
02.06.2016 12:40:35 |
Gast50531 |
|
|
|
02.06.2016 14:45:37 |
Dominik |
|
|
|
02.06.2016 14:55:09 |
Gast87405 |
|
|
|
02.06.2016 15:32:28 |
Dominik |
|
|
|
02.06.2016 16:09:03 |
Dominik |
|
|
|
02.06.2016 16:18:59 |
Gast56115 |
|
|
|
02.06.2016 16:22:15 |
Dominik |
|
|
|
02.06.2016 20:06:03 |
Gast33147 |
|
|
|
02.06.2016 22:25:29 |
Gast82902 |
|
|
|
02.06.2016 22:43:39 |
Gast50485 |
|
|
|
03.06.2016 08:41:22 |
Dominik |
|
|
|
03.06.2016 22:17:44 |
Gast75412 |
|
|
Von:
Dominik |
Datum:
01.06.2016 12:48:41 |
Views:
1650 |
Rating:
|
Antwort:
|
Thema:
Seite kopieren und an beliebiger Stelle einfügen |
|
Hallo zusammen,
ich würde gerne einen Command Button so programmieren, dass ich per Knopfklick eine bestimmte Seite kopieren kann und diese an eine bestimmte Stelle im Dokument einfügen kann.
Im Moment sieht mein Code so aus:
Private Sub CommandButton1_Click()
Dim Auswahl As String
Auswahl = InputBox("Which Page do you want to duplicate?", "Seite kopieren")
If Auswahl = vbNullString Then Exit Sub
Dim pRange As Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Auswahl
Set pRange = ActiveDocument.Bookmarks("\Page").Range
pRange.Copy
ActiveDocument.Characters.Last.Select
Selection.Collapse
Selection.Paste
End Sub
Hier muss ich zuvor allerdings schon eine leere Seite an das Ende angefügt haben und die kopierte Seite wird auch nur auf das letzte Blatt eingefügt.
Ich hoffe mir kann hierbei jemand weiterhelfen.
Viele Grüße
Dominik
|
- 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
|
Seite kopieren und an beliebiger Stelle einfügen |
01.06.2016 12:48:41 |
Dominik |
|
|
|
02.06.2016 09:19:40 |
Gast77584 |
|
|
|
02.06.2016 11:12:35 |
Dominik |
|
|
|
02.06.2016 12:40:35 |
Gast50531 |
|
|
|
02.06.2016 14:45:37 |
Dominik |
|
|
|
02.06.2016 14:55:09 |
Gast87405 |
|
|
|
02.06.2016 15:32:28 |
Dominik |
|
|
|
02.06.2016 16:09:03 |
Dominik |
|
|
|
02.06.2016 16:18:59 |
Gast56115 |
|
|
|
02.06.2016 16:22:15 |
Dominik |
|
|
|
02.06.2016 20:06:03 |
Gast33147 |
|
|
|
02.06.2016 22:25:29 |
Gast82902 |
|
|
|
02.06.2016 22:43:39 |
Gast50485 |
|
|
|
03.06.2016 08:41:22 |
Dominik |
|
|
|
03.06.2016 22:17:44 |
Gast75412 |
|
|