Feld in Textfeld aktualisieren
Michael Salloker
ich habe Textfelder, in denen Felder enthalten sind, also zum Beispiel ein
Datum, Seitenzahlen oder Verweise auf Dokumenteigenschaften. Diese Textfelder
benötige ich, damit der Text um 90° gedreht werden kann.
Unangehmerweise aktualisiert Word 2007 diese Textfelder beim Ausdrucken
nicht. Auch wenn ich das gesamte Dokument markiere und F9 zum Aktualisiern
aller Felder verwende, tu sich nichts.
Gibt es hierzu einen Trick?
Michael
Lisa Wilke-Thissen
"Michael Salloker" schrieb im Newsbeitrag
news:B0453DEE-0F70-474B...@microsoft.com...
[Word 2007]
> ich habe Textfelder, in denen Felder enthalten sind,
> also zum Beispiel ein Datum, Seitenzahlen oder
> Verweise auf Dokumenteigenschaften. Diese Textfelder
> benötige ich, damit der Text um 90° gedreht werden kann.
auch in Tabellen(zellen) kann Text gedreht werden.
> Unangehmerweise aktualisiert Word 2007 diese
> Textfelder beim Ausdrucken nicht. Auch wenn ich
> das gesamte Dokument markiere und F9 zum
> Aktualisieren aller Felder verwende, tu sich nichts.
Mit Strg+a werden Elemente, die sich nicht auf Textebene befinden, nicht
erfasst.
> Gibt es hierzu einen Trick?
Eine Tabelle einsetzen oder das Textfeld in einen Positionsrahmen
konvertieren oder ein Makro zum Aktualisieren verwenden.
--
Viele Grüße
Lisa
MS MVP Word
Michael Salloker
danke für den Tip mit den Tabellen und dem Textfeld. ich habe das gemacht
und das haut hin.
Nur in einem Bereich geht das nicht (hier habe ich mehrere Textfelder
übereinander gelegt), das bekomme ich mit Positionsrahmen nicht hin.
Du hast was von einem Makro geschrieben - da ich nicht der große
Makroprogrammierer bin, wollte ich wissen, ob das schon wer gemacht hat und
mir dabei hilft.
Danke
Michael
Christian Freßdorf
> Du hast was von einem Makro geschrieben - da ich nicht der große
> Makroprogrammierer bin, wollte ich wissen, ob das schon wer gemacht hat und
> mir dabei hilft.
bitteschön:
Sub AlleFelderMitTextfeldernAktualisieren()
Dim rngDoc As Range
Dim oDoc As Document
Dim docSec As Section
Dim oHF As HeaderFooter
Dim shp As Shape
Set oDoc = ActiveDocument
For Each docSec In oDoc.Sections
For Each oHF In docSec.Headers
For Each shp In oHF.Shapes
With shp.TextFrame
If .HasText Then
.TextRange.Fields.Update
End If
End With
Next shp
Next oHF
For Each oHF In docSec.Footers
For Each shp In oHF.Shapes
With shp.TextFrame
If .HasText Then
.TextRange.Fields.Update
End If
End With
Next shp
Next oHF
For Each rngDoc In oDoc.StoryRanges
rngDoc.Fields.Update
While Not (rngDoc.NextStoryRange Is Nothing)
Set rngDoc = rngDoc.NextStoryRange
rngDoc.Fields.Update
Wend
Next rngDoc
Next docSec
Set rngDoc = Nothing
Set oDoc = Nothing
End Sub
--
Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)
Michael Salloker
Vielen Dank Christian.
Michael
