Hallo Welt
Ich habe einige Probleme beim Erstellen eines Makros in VBA für Word (2010).
Ich habe es bisher
geschafft (mit Hilfe der Suchfunktion dieses Forums), durch alle Sections und Ranges zu loopen , die gefundenen Felder zu löschen und stattdessen Text einzufügen.
Im Moment schut mein Code folgendermassen :
Option Explicit
Public Sub FieldsToWildcards()
Dim aField As field
Dim pRange As Word.Range
Dim pattern As String
For Each pRange In ActiveDocument.StoryRanges
For Each aField In pRange.Fields
Set pRange = aField.Code
aField.Delete
pRange.Collapse (wdCollapseStart)
pRange.Text = "${A[;B]}"
Next
Next
End Sub
Was das Makro jetzt können soll ist follgendes:
{ IF «Sex» = "f" "She" "'He" } , (das ist übrigens ein Feld.) In dieses ${She,He} (text)
zu umwandeln und follgendes:
{ MERGEFIELD Name } (Feld) in dieses ${Name} (text)
zu umwandeln.
Ich schätze jegliche Hilfe.
P.S.: Bitte entschuldigt mein Deutsch
Danke,
Herzliche Grüße!
|