String Variable Selektiren

Hallo,
Ich hoffe ich bin hier richtig?
Ich möchte gern folgende unkommentierten Code "Erstes Wort nach Punkt und Doppelpunkt groß", den ich im Netz gefunden, habe verwenden(keine Ahnung ob er funktioniert):


Sub CapsAfterColonAndFullStop()
With Selection.Find
.ClearFormatting
.Text = ": ([a-z])"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
While .Found
Selection.Range.Case = wdUpperCase
Selection.Collapse Direction:=wdCollapseEnd
.Execute
Wend
.Text = ". ([a-z])"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
While .Found
Selection.Range.Case = wdUpperCase
Selection.Collapse Direction:=wdCollapseEnd
.Execute
Wend
End With
End Sub

Mein Eigenes Programm beginnt mit:

Sub Makro1()
Dim objStream As Object
Dim text1 As String
Datei = Dir(Pfad & "*.html")
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = 2
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (Pfad & Datei)
text1 = objStream.ReadText()
objStream.Close
'Und hier soll der Gefundene Code folgen.
End Sub

Aber wie?
Selection = text1 'funktioniert nicht
Mit freundlichen Grüßen
tl1000sm1234

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke für deine schnelle Antwort und den Hinweis!
Im Netz habe ich das Gelesen, und Falsch Verstanden?
"Damit Word programmiert werden kann, muß die Objektbibliothek Word als Verweis mit einem Häkchen versehen sein. Dies ist normalerweise bereits der Fall, wenn VBA von Word aus aufgerufen wurde. Ansonsten kann in der Oberfläche von VBA im Extras-Menü der EIntrag Verweise aktiviert werden. Dort sollte dann ein Häkchen vor der Objektbibliothek Word gesetzt werden. Der genaue Name dieser Bibliothek in der Liste der Verweise hängt von der verwendeten Version von Word ab. Bei Word 2000 lautet er beispielsweise Microsoft Word 9.0 Object Library, bei späteren Versionen ist die Zahl 9 wahrscheinlich durch eine größere Zahl ersetzt."
Also sollte ich wechseln?
Gibt es diese .Find Variante nicht in Ecxel?
Was ist mit String zu Select?

Sub Makro1() Dim objStream As Object Dim text1 As String Datei = Dir(Pfad & "*.html") Set objStream = CreateObject("ADODB.Stream") objStream.Type = 2 objStream.Charset = "utf-8" objStream.Open objStream.LoadFromFile (Pfad & Datei) text1 = objStream.ReadText() objStream.Close intEnd = Len(text1) M1 = True For intRow = 1 To intEnd text2 = Mid(text1, intRow, 1) intSp1 = Asc(text2) If intSp1 = 33 Or intSp1 = 46 Or intSp1 = 58 Or intSp1 = 63 Or intSp1 = 132 Then M1 = True ElseIf Asc(UCase$(text2)) Asc(LCase$(text2)) And M1 Then text1 = Left(text1, intRow - 1) & UCase$(text2) & Mid(text1, intRow + 1) M1 = False End If Next End Sub

Sub Makro2() Application.ScreenUpdating = False On Error Resume Next Dim l As Long Dim ti, such(2) ti = Timer such(0) = (": "): such(1) = (". ") For i = 0 To 1 Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find DoEvents .Text = such(i) .Forward = True .Wrap = wdFindContinue Do While .Execute = True DoEvents With Selection .MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend txt = .Text .Text = UCase(.Text) .Collapse wdCollapseEnd End With Loop End With Next i On Error GoTo 0 Application.ScreenUpdating = True MsgBox (Str(Timer - ti) + " sec") End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread