Zum Inhalt springen

brianjones71

Members
  • Benutzer seit

  • Letzter Besuch

Alle Inhalte von brianjones71

  1. Vielleicht auch nur die Feder des Gasschiebers gebrochen oder Gaszug aufgerippelt. Gaser muss ja sowieso raus, also gleich mal auseinander den Kram!
  2. Tut mir leid, aber DU hast es so gewollt. Erstmal alle Dateien sind in einem Verzeichnis? Habe hier ein script für dich, dafür solltest du alle Docs in ein Verzeichnis c:\Ablage legen! Word öffnen alt+F11 drücken Visual Basic öffnet sich. Jetzt gehst du auf einfügen-Modul. Dort kopierst du diesen Code ein. Private Const Verzeichnis = "C:\Ablage" Private Const Filter = "*.doc" Sub DateienKonkatinieren1() Q = Chr(34) 'Gänsefüsschen Dim Anzahl As Integer, sCount As Integer, fCount As Integer, fListe As String If Documents.Count > 0 Then Dokument = ActiveDocument.FullName On Error Resume Next chk = Dir(Verzeichnis, vbDirectory + vbVolume) If Err.Number > 0 Then MsgBox "Kein Zugriff auf Verzeichnis " & Q & Verzeichnis & Q & "." Exit Sub End If On Error GoTo 0 Pfad = Verzeichnis & "\" & Filter chk = Dir(Pfad) If chk = "" Then 'Wenn keine entsprechenden Dateien im Verzeichnis MsgBox "Kein Dateien im Verzeichnis " & Q & Verzeichnis & Q & "." Exit Sub End If WordBasic.DisableAutoMacros 1 'Automakros ausschalten With Application.FileSearch 'Dateien im vorgegebenen Verzeichnis suchen .LookIn = Verzeichnis .FileName = Filter .Execute SortBy:=msoSortByFileName Anzahl = .FoundFiles.Count For Each aDok In .FoundFiles dsname = Dir(aDok) 'Sortiert versteckte Dateien aus If Not aDok = Dokument And Not Left(dsname, 1) = "~" And Not dsname = "" Then sCount = sCount + 1 'Zähler für die zu verarbeitenden Dateien If Go4It(aDok) > 0 Then fCount = fCount + 1 'Z. für D., welche nicht verarbeitet werden konnten fListe = fListe & vbCr & aDok 'Fehlerliste End If End If Next End With ms = sCount & " Dokumente gefunden." & vbCr ms = ms & sCount - fCount & " Dokumente verarbeitet." If fCount > 0 Then ms = ms & vbCr & vbCr & "Bei folgenden Dokumenten ist ein Fehler aufgetreten:" ms = ms & vbCr & fListe End If WordBasic.DisableAutoMacros 0 'Automakros einschalten Application.ScreenUpdating = True MsgBox ms, vbInformation End Sub Private Function Go4It(aDok) As Integer Dim oRange As Range Set oRange = ActiveDocument.Paragraphs.Last.Range If Not ActiveDocument.Content.Text = Chr(13) Then 'wenn nicht erstes Dokument oRange.InsertBreak Type:=wdSectionBreakNextPage 'Abschnittwechsel einbringen End If On Error Resume Next oRange.InsertFile FileName:=aDok 'nächstes Quelldokument einfügen Fehler = Err.Number On Error GoTo 0 Go4It = Fehler End Function Dann gehst du oben auf den Playbutton oder drückst F5. Ausführen, jetzt ist dein Dokument1, die Gesamtdatei aller Docs. Viel Spass! und
  3. Wenn sie absolut gleich formatiert sind, gehst du über Extras-Dokumente vergleichen und zusammenführen! Jo oder über Zentral- und Filialdokumenten!
  4. Bios zu alt? Platten partitioniert? Service Packs installiert? Probiert auf einem oder mehreren Compostern? Was für HDDs(Firma, Modell)?Lass mal hören!
  5. Da du:Link
  6. Ist doch eigentlich logisch, sind Übermasskolben. Wenn dein Zyli und Kolben etwas älter werden, dann haben sie auch Verschleiss. Den bekommen deine Kolbenringe nicht mehr abgedichtet. Ergo weniger Kompression. Also holt man sich ein Übermasskolben und hat wieder schöne Kompression!
  7. brianjones71 antwortete auf Nadder's Thema in Flame & Sinnfrei
    P.s.: Meine neue Adresse: JVA Fuhlsbüttel( Santa Fu ) Suhrenkamp 92 22335 Hamburg Gebt das Paket bitte vorne bei meinem Pförtner ab, denn ich lasse nicht jeden zu mir durch!
  8. Cool, ne Lampe unten!
  9. In Vista gibt es ja die boot.ini nicht mehr, boot-Einstellungen werden jetzt über den BCD-Editor eingestellt. Das Standartbetriebssystem, welches geladen werden soll, kannst du aber weiterhin auch über: Rechtsklick auf Arbeitsplatz-Eigenschaften-Erweitert-Starten und Wiederherstellen. Dort Vista als Betriebssystem per Drop-Down-Menu eistellen. Darunter kannst du auch die Anzeigedauer der Betriebssystemliste auf 0 stellen, dann sollte sie beim Start nicht mehr angezeigt werden. Frage: Warum hast du denn XP nicht gelöscht?
  10. Der packt bestimmt nicht mehr son ollen Vesparoller an, die "Scheisskisten" laufen aber auch nie!
  11. brianjones71 antwortete auf Nadder's Thema in Flame & Sinnfrei
    Geil ist auch der: euer versand ist echt super wenn ihr mir ein paar Katerloge mit schickt kann ich euch weiter im fehlen!!!!
  12. wow, ja obersexy insbesondere in Verbindung mit Pyjama und Automaten-Vespa und und schwuchtelich!
  13. Hi, bau die Karte mal aus und drück sie mal ordentlich wieder rein, und gut festschrauben! Hatte ich mal bei einer, die hat sich immer wieder mal gelockert!
  14. Vielleicht ist meine Stimme ja ungültig! Aus einem mir nicht bekannten Grund!
  15. Klappen hier sowieso nicht! Hab mit"Sind blöd gestimmt und wird nicht angezeigt, ausserdem stimmen fast immer die Stimmenanzahl und Prozentzahlen nicht! Ergo reine Belustigung mit keinem Anspruch auf Richtigkeit! Grade nochmal geguckt: 41 abgegebene Stimmen! 15+0+12+13! Das ist ja mal eine Rechnung, hoffentlich bemühen sich die Programmierer nicht um die Auszählungen der Bundes- oder Landtagswahlen!
  16. ij

    brianjones71 antwortete auf Trethupe's Thema in Verkaufe Vespa Teile
    V8X1T= 80er
  17. Lieber mal hier probieren: Horst Ludolf AUTOVERWERTUNG Mittelstraße. 2 56307 Dernbach Tel. 02689-1259 Denke mal da wirste wenig bis garnichts machen können.
  18. War wie in einem anderen Topic mal erwähnt bei der Luftwaffe für zehn Tage und meine Laufbahn begann als Flieger. Hab nichtmal ein Flugzeug zu sehen bekommen und der Stuffz sagte immer zu mir "Herr H., wenn sie ihren Spint nicht richtig aufräumen, dann werden sie degradiert zum Hauptmann der Infanterie". Ich wusste garnicht, dass das so ein schlechter Witz der Luftwaffe war! Ja war schön die Zeit. Lass dich doch einfach zum Fahrer vom Chef machen! Gutes Auto, viel rumsitzen usw.
  19. Ist normal, ist meine ich der Bootloader! Hab ich bei mir eigentlich nur, wenn ich Win XP neu draufsetze, die ersten Starts und dann ist es weg oder so schnell, dass man es nicht mehr sieht!
  20. Ganz klar Bluenote mit: Ranjid tret schneller, das Indernett flackert!
  21. Hast du dazu noch die passenden Stützräder? Bin nur 160cm gross und komm immer nicht aufn Boden anner Ampel!
  22. brianjones71 antwortete auf Domme-0815's Thema in Blabla
    Mal reinigen lassen die Sache. Wenn gereinigt, Klimaanlage 2-3 Min. vor Fahrtende ausschalten, das verhindert dann die ätzenden Dämpfe!
  23. Warum nicht mal eine andere Kerze reindrehen? Verstehe das immer nicht, dieses:"Kerze kann es aber nicht sein, weil neu.... weil Funken hat sie ja"!Neu heisst doch nicht, dass sie jetzt mind. 1000km halten muss und ein Funken in der Luft heisst auch nicht, dass sie im Zyli funzen muss! Das ist doch immer die billigste, schnellste Sache, das mal abzuchecken!
  24. Guckstu Vespa Braun von MaRi:

Wichtige Information

Diese Website nutzt Cookies und vergleichbare Funktionen zur Verarbeitung von Endgeräteinformationen und personenbezogenen Daten. Die Verarbeitung dient der Einbindung von Inhalten, externen Diensten und Elementen Dritter. Je nach Funktion werden dabei Daten an Dritte weitergegeben. Einige dieser Verfahren sind technisch unerlässlich, andere kommen nur mit Ihrer Zustimmung zum Einsatz, eine Anpassung ist in den die Cookie-Einstellungen möglich. Für Details siehe die Datenschutzerklärung

Account

Navigation

Suche

Suche

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.