TDM

Ich hab das mal ohne with gemacht (geht irgendwie nicht zu schachteln... naja egal) ActiveDocument.Tables(xyz).Cell(123,456).Borders(wdEdgeBottom).LineStyle = wdLineStyleNone da sagt der bei mir, dass die Variable wdEdgeBottom nicht definiert ist... Woran liegt das?

Hallo, ich hab das Problem, dass ich eine Tabelle habe und in dieser nur ganz bestimmte Zellen mit Rahmen versehen habe. Es sind jeweils die Bottom - Rahmen, nur ist das Problem, dass wenn ich die mit ActiveDocument.Table(xyz).Cell(123,456).Borders.Enable = False lösche, dann wird der "Unterrahmen" der darüberliegenden Zelle mit gelöscht... Jetzt ist die Frage: Kann ich nur bestimmte Rahmen ausblenden ? Also vorzugsweise nur den Top- oder Bottomrahmen einer Zelle Danke im Vorraus! TDM

Netzwerkkarte oder Mainboard (wenn der Netzwerkanschluss nicht auf einer Peripherie ist...)

muss man ein Array nicht so und so mit der Anzahl deklarieren weil sonst müsstest du das ja beim eintragen dann redimen O.o

Wenn du private Member ändern willst, dann schreib doch nen Konstruktor für die Basisklasse mit den jeweiligen zu änderten Eigenschaften. Ruf den dann in der abgeleiteten Klasse auf. Auch wenn es bei Vererbung der Logik widerspricht: du könntest die Klasse als Friend definieren, dann kannste die Member auch ändern...

Treiber alle installiert/aktualisiert?

Der Benutzer hat aber Internetzugang und mit nem Administrator ins Internet zu gehen, ist nicht so gut finde ich...

*an Kopf klatsch* danke

Hallo, ich möchte abprüfen ob ein Textfeld eine gültige Zeit enthält Private Sub txtBegin_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error GoTo ErrorMessage Dim strData As String Dim nH, nM As Integer Dim nPos As Integer Dim bResult As Boolean Dim dtTime As Date strData = Trim(txtBegin.Text) bResult = False If ((Not (InStr(0, strData, ":", 0) = 0)) Or (Not (InStr(0, strData, ".", 0) = 0))) Then nPos = InStr(0, strData, ":") nH = CInt(Left(strData, nPos - 1)) nM = CInt(Right(strData, Len(strData) - (nPos + 1))) If (IsNumeric(nH) And IsNumeric(nM)) Then If ((nH >= 0 And nH < 23) And (nM > 0 And nM < 59)) Then dtTime = TimeSerial(nH, nM, 0) bResult = True Else bResult = False End If End If End If If (Not bResult) Then MsgBox prompt:="ungültige Zeit", buttons:=vbOKOnly, Title:="Fehler: 006" & "in " & Me.Caption & " txtBegin_Exit" txtBegin.setFocus End If Exit Sub ErrorMessage: MsgBox prompt:=Err.Description, buttons:=vbOKOnly, Title:="Fehler: " & CStr(Err.Number) & "in " & Me.Caption & " txtBegin_Exit" End Sub Ich hab das jetzt getestet mit strData = "8:00" nur irgentwie sagt der mir immer: InStr - Unzulässiger Prozeduraufruf oder ungültiges Argument Warum ? Vermutlich seh ich den Wald vor lauter Bäumen nicht...

jaja ^^ ICH SUCH NUR DEN EINTRAG ZUM ÄNDERN DER INSTALLATIONSRECHTE (falls das nicht rüberkam )

Soweit war ich auch schon *g* und dann Computerkonfiguration - ist auch klar weil es ja für den ganzen PC gilt. Und dann ?

Du kannst über Richtlinien / Computerrichtlinien / Windows-Einstellungen / Sicherheitseinstellungen / lokale Richtlinien / Zuweisen von Benutzerrechten bestimmte Rechte an User/Gruppen/Integrierte Sicherheitsprinzipale zuweisen usw. Das man ihn in die Gruppe der Administratoren hinzufügen kann, weis ich auch - nur ist das nicht der Gedanke... Ich will dem User nicht die Rechte eines Administrators geben (auch nicht eines Hauptbenutzers) - Nur Installationsrechte. Irgendwo in den Tiefen der MMC hab ich das auch schonmal eingestellt, ich weis bloß nicht mehr wo.

Glaub schon... Ich hab hier nen Benutzer in einer eigenerstellten Gruppe und will dem halt Installationsrechte geben, das funktioniert aber eben nicht weil ich den Eintrag nicht finde.

ist das nicht das gleiche wie vom Amstelchen? naja... hab mir jetzt selbst nen Konstrukt zusammen gebastelt: Private Function Remove(ByVal strText, ByVal strString) As String On Error GoTo ErrorMessage Dim nPosL, nPosR As Long While (Not (InStr(0, strText, strString, 0) = 0)) nPosL = InStr(0, strText, strString, 0) - 1 nPosR = nPosL + Len(strString) + 1 strText = Left(strText, nPosL) & Right(strText, nPosR) Wend Remove = strText Exit Function ErrorMessage: MsgBox prompt:=Err.Description, buttons:=vbOKOnly, Title:="Fehler: " & CStr(Err.Number) End Function Da hab ich endlich mein Remove

Hallo, neues Problem, wie kann ich aus einem String einen anderen String entfernen ? ich hab es mit Replace versucht, aber das scheint nicht so ganz zu funktionieren also: str1 = "abcdef" str2 = "bcd" str3 = remove(str1, str2) //"aef" funktionen dazu find ich irgentwie nicht

ok, mehr wollt ich ne - danke

Hallo, Ich suche für Windows XP einen Eintrag in der MMC, mit dem man verbieten kann, dass ein Programm installiert werden kann. Entweder bin ich blind oder ... Auf jedenfall find ich ihn einfach nicht. Kann mir einer sagen wo der steht ? Müsste was sein mit "Änderungen am System verbieten" oder so

Hallo Leute, ich hab das Problem, dass ich in einem Dokument eine Textmarke 'tm1' habe und ihr einen Text hinzufügen möchte. Nun ist das Problem wenn ich über ActiveDocument.Bookmarks("tm1").Range.Text = "text" geh, dann wird die Textmarke immer gelöscht und ich will diese aber für etwaige Änderungen weiterverfügbar haben Bist jetzt habe ich es so gemacht dass ich zwei Textmarken genommen hatte, eine für den Text (umfasst nur ein Leerzeichen) und eine für das Hinzufügen am Anfang der Textmarke für den Text. Da ist nur das Problem, dass er immer wieder neuen Text reinschreibt ohne alten zu löschen. Kurzform: Wie kann man den Text einer Textmarken löschen oder ändern?

Also ich habe eine Anlage... Da steht Text drin - die komplette Anlage (einschließlich Seitenumbruch am Anfang) ist in einer Textmarke jetzt steht in einer anderen Textmarke wieviel die Anlage vorhanden ist Anlage [5 ] AnlageA [seitenumbruch "Text von AnlageA" _] <--- "Text von AnlageA" soll sich jetzt 4 mal an das letzte Zeichen kopieren (dann hab ich 2 Blätter mit dem gleichen Text) und zu dem zweiten Problem die Syntax für eine Wenn-Abfrage ist ja {WENN [Textmarke] Operator [Wert] [richtigText] [falschText]} und das Problem besteht darin, dass ich im richtigText mehrere Zeichen (auch An- und Ausführungsstriche) habe

Hallo, Ich habe folgendes Problem, dass ich eine Textmarke kopieren möchte und zwar genau an ihr eigenes Ende, nun wollt ich fragen, wie kann ich das Ende selektieren damit ich dort den Text einfügen kann ? Und noch eine Frage: Wie kann ich in eine Wenn-Abfrage (Word) mehrere Zeichen für den True-Wert setzen ?

Und wo/wie änder ich das im Default User Profile ?

Hallo, ich suche nach einer Methode um den Luna-Style in Windows XP auszuschalten, ohne immer den lästigen Weg über den Anzeige-Dialog zu gehen. Mich stört hauptsächlich das der Style bei einem neuen Benutzer geladen wird, wenn dieser sich das erste mal anmeldet. Ich hab jetzt schon in HKU/.Default/Software/Microsoft/Windows/CurrentVersion/ThemeManager und .../Themes nachgeschaut - da bringen Änderungen nicht wirklich viel.

gibt es die ganzen Funktionen wie ShellExecute und Exec (einschließlich der _?exec-Funktionen) unter Linux garnicht ?

Na normal würde ich da über Start -> Einstellungen -> Drucker und Faxgeräte -> Drucker hinzufügen mich dann durch den Dialog klicken, Plug&Play bei lokalen Druckern disablen usw... Aber da kann ich ja dann die IP eintragen - das Problem ist, wie oben schon gesagt, dass die ganzen AddPrinter - Funktionen einen Parameter pName haben. In der MSDN steht da // server name von daher kann ich also keine IP angeben - dann kommt immer ERROR 1801 (Invalid Druckername)... So richtig seh ich in der pdb ne durch, da das fast nur Hex ist ... selbst wenn ichs mit VSS aufmach steht da ne wirklich viel. Ich find weder irgendwas von Ausgabe noch

Das will ich mit meinem Programm erreichen, da manuell einfach nicht sinnvoll ist (soll evtl. auch später von nem Bootp Server gleich ausgeführt werden - aber das ist erstmal zweitrangig) Bis jetzt ist es noch eine Debugversion, pdb ist vorhanden - wenn du mir sagst, wo ich da was suchen muss, guck ich gern nach