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]