Hallo nochmal,
eine 100-prozentige Transparenz gibts nicht. Würde auch keinen Sinn machen. Du kannst nur den Text in der gleichen Farbe formatieren, wie der Hintergrund ist. Aber wenn jemand den Text markiert kann er die Lösungen dann sehen. Du kannst den Text auch augeblendet formatieren (Selection.Font.Hidden = True) und über das umgekehrte P-Symbol ¶ ein- bzw. ausblenden. ActiveWindow.ActivePane.View.ShowAll = Not ActiveWindow.ActivePane.View.ShowAll. Dabei wird im ausgeblendeten Zustand der Text aber zusammengerückt.
Oder du fügst ein Formularfeld ein. Damit hast du zumindest einen Platzhalter mit hier z.B. 32 Leerzeichen.
With Selection.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormTextInput)
.TextInput.Default = Space(32)
.Name = "test1"
End With
ActiveDocument.Fields.Update
Das jedes Formularfeld einen eindeutige Namen erhält. (Hier test1) kannst du dieses Feld später per Makro mit Text füttern.
ActiveDocument.FormFields("test1").TextInput.Default = "Lösungstext"
ActiveDocument.Fields.Update
Das sind die 3 Möglichkeiten die mir einfallen. Such dir eine aus. Wenn dir keine davon gefällt ist dein Anliegen so nicht umsetzbar.
Gruß Mr. K.
|