title image


Smiley Re: wow, Du hast Dich schon intensiv mit den Fields beschäftigt,
Hi Ruth,



LL ist sozusagen Volltreffer!

Das mit dem Cut & Paste ist bei mir natürlich ebenso nervig.

Hier der Code eines Makros, welches alle Felder des aktiven Dokuments in die Zwischenablage kopiert:

-------------------------------------------------------------------

Sub CopyFields()



Dim objFld As Word.Field

Dim strFieldCode As String

Dim objCur As Word.Document

Dim objNew As Word.Document



strFieldCode = ""

Set objCur = ActiveDocument

Set objNew = Application.Documents.Add

For Each objFld In objCur.Fields

strFieldCode = strFieldCode & "{" & objFld.Code & "}"

'Debug.Print "{" & objFld.Code & "}"

Next

Call objNew.Paragraphs.Add

Call objNew.Words.Last.InsertAfter(strFieldCode)

Call objNew.Paragraphs.Last.Range.Select

Call Selection.Copy

Call objNew.Close(False)



End Sub

-----------------------------------------------------------------------



Solltest du Support oder Erklärung benötigen, einfach noch mal melden.

Das soll natürlich nicht heissen, dass das die einzig wahre Lösung ist, aber es funktioniert!



Liebe Grüße,



GaryR

Grüße vom Lech GaryR



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: