Also...ich bin schon mal ein wenig weitergekommen... 

Sub AlleShapeTextfelder() 
Dim shp As Shape 
For Each shp In ActiveDocument.Shapes 
If shp.TextFrame.HasText Then 
shp.TextFrame.TextRange.Copy 
End If 
Next 
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ 
ActivePane.View.Type = wdOutlineView Then 
ActiveWindow.ActivePane.View.Type = wdPrintView 
End If 
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
With Selection.Find 
.Text = "ExternalID" 
.Replacement.Text = .....'hier liegt mein Problem 
.Forward = True 
.Wrap = wdFindContinue 
.Format = False 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 
End Sub 

Ich hab es geschafft den Text des Textfeldes zu kopieren... 
Auftragsnummer: 
693 

Ich würde es gerne aber so haben: 
Auftragenummer: 693 
In Arial Schriftgröße 9...bzw. doe Formatierung sollte aufgehoben werden...und dieses soll die ExternalID in der Kopfzeile ersetzen... Mein Problem liegt darin, dass ich nicht weiß was ich hinter Replacment schreiben soll???... "shp.TextFrame.TextRange" funktionioniert nicht. Hat jemand ne Idee. Eigentlich muss nur noch...was ich da schreibe :D...nur noch ist gut...Formatierung aufgehoben werden und Horizontal anstelle von ExternalID eingefügt werden. Vielleicht hat jemand einen Tipp und bis dahin mache ich einfach weiter. Vielleicht kriege ich es auch alleine hin. Danke schon mal im Voraus!