|
Es geht nicht darum das keiner eine Idee hat, es geht ehern darum, dass das was wonach du fragst, man sich aus der Doku anlesen kann (hab ich z.B. gerade bei Punkt 2) in ca. 10min getan).
Die Doku ist IMMER der erste Anlaufspunkt und nicht ein Forum.
Ein Forum dient dazu gezielt spezifische Fragen zu einem konkreten Problem stellen zu können, welches die Doku nicht beantwortet, oder wo man mit der Doku alleine nicht weiter kommt.
1) Benutze eine Hilfsfunktion im Umgang mit Textmarken (Bookmarks).
z.B. so:
1 2 3 4 5 6 7 | Public Sub ReplaceBookmark(BookmarkName As String, Replace As String, Optional ByVal Document As Word.Document)
If Document Is Nothing Then Set Document = Application.ActiveDocument
With Document.Bookmarks(BookmarkName).Range
.Text = Replace
Call Document.Bookmarks.Add(Name:=BookmarkName, Range:=Document.Range(.Start, .End))
End With
End Sub
|
Verwendung:
1 | Call ReplaceBookmark("bookmark", "Neuer Text an der Stelle der Textmarke.", ThisDocument)
|
2) Tabellen kann man in Word beschriften - das ist ein Build-In Feature.
1 | ThisDocument.Tables(1).Range.InsertCaption WdCaptionLabelID.wdCaptionTable, ": Beschriftung über der Tabelle", WdCaptionPosition.wdCaptionPositionAbove
|
Grüße
|