Bestehendes Makro umschreiben!?! geschlossen

[Messiah]

Hallo,

ich wollt mal fragen ob es hier Jemanden gibt der sich mit Makros in Word auskennt und mir helfen kann.
Ich soll eine PowerPoint Folie in ein Word Dokument "umwandeln". Es ist soweit auch schon fertig nur muss ich noch das vorhandene Makro anpassen. Ich hab nur Leider nicht so viel Erfahrung mit den Makros und bin am verzweifeln.

Hier das PowerPoint Makro:

Sub Standort()
'Anzahl der vorhandenen Folien abfragen
anz = ActivePresentation.Slides.Count
ActivePresentation.Slides.Range(Array(1)).Select
'Standort abfragen mit Vorgabe (Musterstadt)
text1 = InputBox("Bitte den Standort eingeben", "Standorteingabe", "Musterstadt")
ActiveWindow.Selection.SlideRange.Shapes("Text Box 10").Select
'Standort eintragen
With ActiveWindow.Selection.TextRange
.Text = "" & text1
End With
ActiveWindow.Selection.Copy
ActiveWindow.Selection.Unselect
For z = 2 To anz ' Anzahl der Blätter
ActivePresentation.Slides.Range(Array(z)).Select
ActiveWindow.View.Paste
ActiveWindow.Selection.Unselect
Next
End Sub

Ich hoffe ihr versteht das Makro und könnt es für Word tauglich machen.

Vielen Dank, Messiah

 

[FeliX_22]

Was ist schon soweit fertig?

So wie ich das Makro verstehe, bestimmt es zuerst die Anzahl der Folien, gibt dann in ein Textfeld einen bestimmten Text ein (Musterstadt), und kopiert das Textfeld auf alle Folien ab Nummer 2. Was hat das alles mit Word zu tun? Ich vermute, du willst ein Textfeld in Word von der ersten Seite auf alle anderen Seiten kopieren. Richtig? Dann wäre das hier mein Code:

Sub Standort()

[COLOR='Green']'Standort abfragen mit Vorgabe (Musterstadt)[/COLOR]
text1 = InputBox("Bitte den Standort eingeben", "Standorteingabe", "Musterstadt")

[COLOR='Green']' In das Textfeld eintragen[/COLOR]
ActiveDocument.Shapes("Text Box 10").Select
Selection.Text = text1

[COLOR='Green']' Das Textfeld kopieren[/COLOR]
ActiveDocument.Shapes("Text Box 10").Select
Selection.Copy

[COLOR='Green']' Position des Textfelds speichern[/COLOR]
x = Selection.ShapeRange.Left
y = Selection.ShapeRange.Top

[COLOR='Green']' Alle Seiten durchgehen und Textfeld einfügen[/COLOR]
Seiten = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
For i = 2 To Seiten
Selection.GoToNext wdGoToPage
Selection.Paste
Selection.ShapeRange.Left = x
Selection.ShapeRange.Top = y
Next

End Sub

Gruß

FeliX_22