Textmarke in einer Tabelle positionieren

Wie muß der Code

If ActiveDocument.Tables.Count >= 1 Then
With ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range
.Delete
.InsertAfter Text:=„Zelle 3,4“
End With
End If

abgeändert werden, damit in der Position 3,4 eine Textmarke „TM1“ gesetzt wird?

Gruß Wilhelm

ActiveDocument.Bookmarks.Add „TM1“, ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range

Hi Daniel!
Dank an Dich, verbunden mit einer Zusatzfrage:

Kann auch eine TM für die Fixierung der Position erzeugt werden, also nicht die TM mit den Doppelklammern([]) für eine Textmenge, sondern die TM zur Bestimmung der Position(I)?
Gruß Wilhelm

ActiveDocument.Bookmarks.Add „TM1“,
ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range

Was meinst Du mit „Textmarke“ zur Bestimmung der Position(I)?

Hi Dani,

wenn Du in einem Word-Dokument über ALT E T eine TM setzt, ohne zuvor Text markiert zu haben, hat die TM das optische Bild „I“ (die möchte ich in der Tabelle haben), während der Code in der Tabelle die Zelle markiert und die TM mit dem optischen Bild „[]“ setzt, also so ein Ding, das in einer Datei entsteht, wenn man zunächst Text markiert und dann die TM setzt.
Gruß Wilhelm

Was meinst Du mit „Textmarke“ zur Bestimmung der Position(I)?

Wenn ich Dich richtig verstanden habe, meinst Du dieses:

ActiveDocument.Tables(1).Cell(3, 4).Select

’ Selection bewegen, da sonst ganze Zelle markiert

Selection.MoveLeft wdCharacter

ActiveDocument.Bookmarks.Add „TextmarkenName“ ’ keine Range angeben, dann wird Selection genommen

Gruss, Dani

Hi Dani,
genau das war`s (Hätte ich aber wohl schon auf Grund Deines ersten Codes selbst ändern können/müssen?!). Danke.

Darf ich Dich als ausgewiesenen Profi bitten, einen Blick auf den nachfolgenden Schnipsel zu werfen, mit dem durch Klick auf einen cmdbutton die txtboxen und cboboxen entleert und die optbuttons und chkbuttons auf Value = false gestellt werden sollen. Warum, frage ich Dich, funktioniert es bei txtboxen, cboboxen und optionbuttons, nicht aber bei den chkbutton; die müßten doch eigentlich genauso funktionieren wie die optbuttons.

Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = „“
ElseIf TypeOf ctl Is ComboBox Then
ctl.Text = „“
ElseIf TypeOf ctl Is OptionButton Then
ctl.Value = False
ElseIf TypeOf ctl Is CheckBox Then
ctl.Value = False ’ Was könnte der Grund sein, daß die chkboxen n i c h t auf Value = false gestellt werden?
End If
Next ctl

Gruß und schönes Wochenende
Wilhelm

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo Wilhelm

Versuchs mal mit der TypeName-Funktion anstatt TypeOf. Bei mir hat es funktioniert, also:

If TypeName(m_ctl) = „CheckBox“ Then

End If

Dann würde ich den Code noch mit der Select Case Anweisung machen, anstatt mit If… elseif… elseif…elseif… end if…

Gruss, Dani

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]