Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 7635 Ergebnisse ergeben.
Seite 261 von 509 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 258, 259, 260, 261, 262, 263, 264 ... 503, 504, 505, 506, 507, 508, 509  Weiter
Index
Autor Nachricht
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:06   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3833

Schaffen wir die 4000 heute noch? Wink
  Thema: Wortketten (Episode III) 
Lisa

Antworten: 1499
Aufrufe: 30828

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:04   Titel: AW: Wortketten
Hosenknopf - Knopfloch
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 23:02   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3821
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 22:29   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
Hallo Rainberg,

sogar noch "Hausaufgaben":

3761
3767
3769

weiter geht's:

3793
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 22:23   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3739
  Thema: Eingabemaske 
Lisa

Antworten: 7
Aufrufe: 3581

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 05. Jun 2006, 22:22   Titel: AW: Eingabemaske
Hallo Kasandro,

na genauso, indem du durch die Bookmarks schleifst, z. B.:
Sub TestTM3()

Dim aTable As Table
Dim BM As Bookmark

For Each BM In ActiveDocument.Bookmarks
Set aTable = BM.Range.Tables(1)
With aTable.Rows(1).Range
.Delete
.Text = Eingabemaske.Zeile1_text
End With
Next BM
Set aTable = Nothing

End Sub
Geht ganz genauso mit einer "gezählten Schleife".
  Thema: Überschrift bei Treffer einfügen 
Lisa

Antworten: 18
Aufrufe: 1711

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 05. Jun 2006, 22:16   Titel: AW: Überschrift bei Treffer einfügen
Hallo Egon,

ja, das geht. Ich hatte bloß nicht dran gedacht. Dazu diesen Teil noch einfügen. Er sucht zuerst nach dem Text der Überschrift, falls er die Überschrift bereits vorfindet, wird nur die Leerzeilenentfernung aufgerufen und danach das Programm verlassen. Nach dem ersten With-Block (End With) einfügen:
...
.MatchWildcards = False
.Text = ""
End With

'Dieser Teil verhindert, dass die Überschrift doppelt eingefügt wird:
With rngSuchen.Find
.ClearFormatting
.Replacement.ClearFormatting
End With

With rngSuchen.Find
.Text = Ersatztext
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchWholeWord = False
.MatchWildcards = False
End With
rngSuchen.Find.Execute

If rngSuchen.Find.Found Then
Call LeerzeilenEntfernen
Exit Sub
End If
'Hier endet der einzufügende Teil
Zur Projektsperre: D ...
  Thema: Eingabemaske - Textmarkeninhalt leeren 
Lisa

Antworten: 4
Aufrufe: 1034

BeitragForum: Word VBA Programmierung (Makros)   Verfasst am: 05. Jun 2006, 21:04   Titel: AW: Eingabemaske - Textmarkeninhalt leeren
Hallo Kasandro,

entweder rufst du die ReSetBookmark mehrmals auf (so mache ich es meist):
Call ReSetBookmark(TMName:="Zeile2", TMInhalt:="blabla")
Call ReSetBookmark(TMName:="Zeile3", TMInhalt:="tütitüti")
usw.
oder du "schleifst" durch die Textmarken, dann müssen aber auch die einzufüllenden Inhalte in einer Liste oder einem Array stehen, z. B. so:
Sub TMDurchschleifen()

Dim BM As Bookmark

For Each BM In ActiveDocument.Bookmarks
Call ReSetBookmark(TMName:=BM.Name, TMInhalt:="EinzufuegenderText")
Next BM

End Sub
oder auch so:
Sub TMDurchschleifen2()

Dim i As Integer

For i = 1 To ActiveDocument.Bookmarks.Count
Call ReSetBookmark(TMName:=ActiveDocument.Bookmarks(i).Name, _
TMInhalt:=Eingabemaske_Zeile(i).Text)
Next i

End Sub
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 20:29   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3719
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 20:26   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3701
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 19:12   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3691
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 18:24   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
3673
  Thema: Drucker für eine DOT-Vorlage vorgeben? 
Lisa

Antworten: 13
Aufrufe: 4566

BeitragForum: Word Hilfe   Verfasst am: 05. Jun 2006, 18:22   Titel: AW: Drucker für einen DOT-Vorlage vorgeben?
Hallo Choco,
hallo Hübi,

heute fiel mir das wieder ein, und siehe da, in dem obigen Link ist ein Makro schon da, das ich jetzt noch etwas erweitert habe, so dass es auch funktioniert, wenn mehrere Dokumente geöffnet sind:
Option Explicit

Private Const Drucker = "Acrobat Distiller" 'Hier muss natürlich der Drucker ein,
'der für diese Vorlage vorgegeben werden soll
Private savDrucker As String
Sub FilePrint()

If ActiveDocument.AttachedTemplate = ThisDocument Then
If DruckerSetzen = 0 Then Dialogs(wdDialogFilePrint).Show
ActivePrinter = savDrucker
Else
ActivePrinter = savDrucker
Dialogs(wdDialogFilePrint).Show
End If

End Sub
Sub FilePrintDefault()

If ActiveDocument.AttachedTemplate = ThisDocument Then
If DruckerSetzen = 0 Then ActiveDocument.PrintOut Background:=False
ActivePrinter = savDrucker
Else
ActivePrinter = savDrucker
ActiveDoc ...
  Thema: zählen wir mal bis ... :) 
Lisa

Antworten: 12499
Aufrufe: 426746

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 17:54   Titel: AW: zählen wir mal bis ... :)
2456
  Thema: Wer kennt die nächstgrößere Primzahl ? (Episode I) 
Lisa

Antworten: 1499
Aufrufe: 73152

BeitragForum: Forum-Spiele   Verfasst am: 05. Jun 2006, 17:53   Titel: AW: Wer kennt die nächstgrößere Primzahl ?
Hat sich überschnitten!

3659
 
Seite 261 von 509 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 258, 259, 260, 261, 262, 263, 264 ... 503, 504, 505, 506, 507, 508, 509  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks