Paradaxon

Hi, ich möchte gerne wissen ob man ein WAV (audio) mit Sipp Szenario abspielen kann. Sipp Welcome to SIPp Bitte hilf mir

ich habe geschaft: Test it: Sub Makro6() Dim strTest As String Dim test As Integer Dim counter As Integer For Each aWord In ActiveDocument.Words If (aWord.Text <> vbCr) And (aWord.Text <> "; ") Then counter = counter + 1 Selection.EndKey Unit:=wdLine End If Next Do While (counter > 0) Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend strTest = Selection Selection.Copy Selection.EndKey Unit:=wdLine Selection.TypeText Text:="; " Selection.PasteAndFormat (wdPasteDefault) Selection.TypeBackspace Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase strTest = Selection test = Len(strTest) - 1 Selection.EndKey Unit:=wdLine Do While (test > 0) Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" " Selection.MoveLeft Unit:=wdCharacter, Count:=1 test = test - 1 Loop Selection.EndKey Unit:=wdLine Selection.MoveRight Unit:=wdWord, Count:=1 counter = counter - 1 Loop End Sub :old

good, wie findest du es jetzt ? Sub Makro5() ' ' Makro5 Makro ' ' For Each aWord In ActiveDocument.Words If (aWord.Text <> vbCr) And (aWord.Text <> "; ") And (aWord.Font.Spacing <> 2) Then aWord.Select Selection.Copy Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="; " Selection.PasteAndFormat (wdPasteDefault) Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase Selection.Font.Spacing = 2 End If Dim spaceString$ For I = 1 To Len(aWord) spaceString = spaceString + Mid$( aWord, i, 1) + ' ' Next I Tri*** (spaceString) Next aWord Selection.EndKey Unit:=wdLine End Sub

hehe okey, das ist richtig so

ich habe alles gelöscht, es war für mich VIEL, ich mache gerade Dualstudium, und bin Neu, kannst du bitte das für mich machen? ich habe keine Ahnung von diese SACHEN . bitte jetzt bin ich wieder hier : Sub Makro2() ' ' Makro2 Makro ' ' For Each aWord In ActiveDocument.Words If (aWord.Text <> vbCr) And (aWord.Text <> "; ") And (aWord.Font.Spacing <> 2) Then aWord.Select Selection.Copy Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="; " Selection.PasteAndFormat (wdPasteDefault) Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase Selection.Font.Spacing = 2 End If Next aWord Selection.EndKey Unit:=wdLine End Sub versuch mal bitte, LG Ori

mit mid$ kannst du einfach vergessen Hilft nicht... komm lets see : hier steht ein CODE, test it und lösch mal die fontspacing, und wenn du Mid$ benutzt, mach mal bitte und lass diese Wort mit leerzeichen. Original : Germany, muss nach Germany ; kommen und dann kopiert, dann hast du germany; germany, dann großbuchstaben, alles schon erledigt dann wenn du kannst : Leerzeichen , dann hast du G E R M A N Y, und nicht font spacing. hier ist der Code: Sub Makro1() ' ' Makro1 Makro ' ' Selection.HomeKey Unit:=wdLine Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Copy Selection.EndKey Unit:=wdLine Selection.TypeText Text:="; " Selection.PasteAndFormat (wdPasteDefault) Selection.TypeBackspace Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase Selection.Font.Spacing = 2 Selection.MoveDown Unit:=wdLine, Count:=1 End Sub kannst du ?:upps

nein noch nicht, ich habe nur mit Spacing funktion versucht, aber gibt nur font Space und nicht richtige Leerzeichen,

habe nicht richtig verstanden, kannst du bitte beispiel schreiben? ich bin neu bei den ding VB, mmmm wenn es kurz it bittte schreib ma mal. kannst du ?

Vielen Dank ,

Hallo People, ich habe einen problem : und zwar, mmmm ich habe ein Code für Makro, mit um Word zu benutzen, hier ist der CODE Sub Makro1() ' ' Makro1 Makro ' ' For Each aWord In ActiveDocument.Words If (aWord.Text <> vbCr) And (aWord.Text <> "; ") And (aWord.Font.Spacing <> 2) Then aWord.Select Selection.Copy Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="; " Selection.PasteAndFormat (wdPasteDefault) Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase Selection.Font.Spacing = 2 End If Next aWord Selection.EndKey Unit:=wdLine End Sub ICH möchte gerne wissen wie kann ich Space Funktion bauen, z.b Deutschland ist normal Wort, der CODE zeigt : Deutschland; DEUTSCHLAND bitte Hilfe wegen Spacing damit ich so bekommen kann: Deutschland; D E U T S C H L A N D Vielen dank :upps

vbCr was bedeutet es ? kann eine bitte hilfen ? was bedeutet vbCR und <> ? danke:confused: