|
Hallo Leute...
Mein Problem ist, dass ich es nicht schaffe den Inhalt eines Textfeldes per Makro zu kopieren.
Der Inhalt des Textfeldes (als Beispiel...die Auftragsnummer variert immer/dokument wird aus einem Programm erzeugt):
Auftragsnummer:
693 (variert natürlich immer)
Soweit bin ich gekommen:
Sub Textfeld ()
Dim strVariable As String
strVariable = ActiveDocument.Shapes("Text Box 2").TextFrame.TextRange.Text
Selection.Collapse
Selection.TypeText Text:="693"
End Sub
Jedoch kopiert mir das nur die 693. Jedoch würde ich es gerne bei varienden Auftragsnummers haben.
Der Hintergrund ist das ich das in die Kopfzeile,mittels dem unterstehenden Makro, kopieren will:
Sub Kopfzeile()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
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 soll die kopierte Auftragsnummer aus dem Textfeld stehen
.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
Hat jemand eine Idee? Ich komme einfach nicht voran (Hab es auch mit Makrorecorder versucht aber hilft mir nicht weiter). Bin für jede kleine Hilfe dankbar. Bin schon hier am verzweifeln.
Danke schon mal im voraus!
|