deutsche text-to-speech stimme vbs

Ich kann mit visual basic script ja eine sprachsynthese durchführen

(dim fname

set objvoice=Createobject("sapi.spvoice")

objvoice.speak ("Example")

Jetzt wollte ich fragen, ob es eine alternative zu sapi.spvoice gibt und zwar in deutsch (sapi.spvoice ist englisch)

2 Antworten

Master08

28.01.2015, 16:27

in vbs gibt es nur die englische sprachausgabe aber wenn du die wörter etwas anders schreibst als normal dan hört es sich einigermasen deutsch an

RoXoNpRo500

15.10.2013, 10:53

Ist dein Windows Deutsch auf Deutsch? Schau mal ob dein Sprachpaket für die Sprachausgabe in Deutsch installiert ist, das ist standardmäßig nämlich englisch glaube ich. Villeicht hat das ja damit irgendetwas zu tun

Ähnliche Fragen

(VBS) Script soll eine Pause machen?

Hi, ich schreibe gerade ein kleines Script. Es soll ein Programm öffnen und ein paar Zeilen "tippen". Aber bis sich das Programm öffnet und ich alles eingestellt habe, vergehen ein paar Sekunden. Wäre es möglich, dass sich das Script kurz pausiert, und dann weiter den Code abarbeitet? habe es schon mit der "sleep"-Funktion versucht, dabei kommt aber die Fehlermeldung (siehe Anhang). Hier der Code:

Dim Anwendung
Set Anwendung = CreateObject("WScript.Shell")
Anwendung.Run "TSWIN7.EXE"
Anwendung.Sleep(10000)
Anwendung.SendKeys "Test"

PS: Ich schreibe eigentlich nie mit VBS, also bitte so gut wie möglich erklären (am besten mit Codebeispiel), so das ich alles verstehe :D

...zur Frage

VBScript Umlaute wie ö oder ü in MsgBox ausgeben?

Hallo,

Wir sind in der Schule gerade Skripting mit VBS am lernen. im Moment noch ziemlich am Anfang. Jetzt bin ich ein Skript am schreiben welches jemandem einen guten Tag wünscht xD

Aber wenn ich schreibe "Ich wünsche dir einen schönen Tag "..... dann werden das ü und das ö nicht angezeigt.

Wie mach ich das? In HTML kann man ja mit Ü oder so umlaute schreiben. Geht das in VBS auch? Wenn ja, wie?

Hier ist mal mein Skript:

Dim filename
Dim objFSO
Dim username
Set objNetwork = CreateObject("Wscript.Network")
filename = Wscript.ScriptfullName
username = objNetwork.UserName

Danke für die Antworten :)

Lg KilerAffe msgbox "Ich wünsche dir einen schönen Tag " & username, vbOKonly, ":)"

...zur Frage

mit vbs Skript ein click auf den Bildschirm machen?

Hi ich wollte mal fragen wie oben steht mit welchem vbs script man ein click auf der Position x = 423 , y = 354 macht habe schon vieles ausprobiert wie :

Dim x
 set x=createobject("wscript.shell")

 x.sendkeys"{CLICK LEFT,50,60}"

oder

With CreateObject("WScript.Shell")
    .Run "nircmd setcursor 100 100", 0, True
    .Run "nircmd sendmouse right click", 0, True
End With

keine ahnung ob das vbs ist aber kann wer helfen wie ich diesen click mit vbs mache ?

...zur Frage

Java - Visual Basic (Pyramide mit For Schleife)?

Hi, ich bin absoluter Programmieranfänger und habe eine Aufgabe erhalten, die ich lösen muss. Und zwar soll ich ein VB Scribt schreiben, dass man in der cmd Konsole öffnen soll, um dann eine Pyramide aus X zu erhalten.

Die Pyramide soll aus 8 Zeilen bestehen, pro Zeile kommen jeweils links und rechts ein x dazu. Ganz oben hat man ein X und 7 Leerzeichen, ganz unten kein Leerzeichen und 15X.

Kann mir jemand die Lösung geben wie in dem Youtube Video '1.2.4.1 Java - Eclipse Bsp. (for) Weihnachtsbaum', nur anstatt Java mit der Programmiersprache Visual Basic und die vorgegebenen Befehle

Set oWSH = CreateObject("WScript.Shell")

vbsInterpreter = "cscript.exe"

WScript.StdOut.WriteLine ""

WScript.StdOut.Write ""

Vielen Dank schonmal

...zur Frage

Visual Basic Script: ZUFALLSZAHL (zwischen 1 und 30)

Hallo Leute ,

ich würde gerne bei VBS eine Zufallszahl generieren lassen (zwischen 1 und 30) !

Ich habe 30 Witze parat. Die Zufallszahl soll dann einen davon auswählen!

Ich hoffe ihr findet eine Lösung. Google hat dazu nicht so viel ausgespuckt:

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

witznr = msgbox ("Witz Nr." & zufallszahl & "!")

If zufallszahl = 1 Then

witz0 = msgbox ("blablabla....")

If zufallszahl = 2 Then

witz1 = msgbox ("blablabla....")

...

Else

error = msgbox ("Fehler!")

Das Problem ist dass mir der PC immer eine Fehlermeldung schickt (Bild im Anhang).

Meine Frage ist deshalb ob das mit....

Dim zufallszahl As New Random

zufallszahl.NEXT (1, 31)

...stimmt!

Vielen Dank schon einmal im Voraus!

LSeven

...zur Frage

Anführungszeichen in vbs?

Ich habe ein Problem.

Ich habe ein VBScript das ein anderes schreiben soll, aber ich weiß nicht wie ich die Anführungszeichen auf dem neu geschriebenen VBScript darstellen soll.

Const strFileName = "output.vbs"

Const ForReading = 1

Const ForWriting = 2

Const ForAppending = 8

Const CreateNotExist = True

Dim strInput, objFSO, objFile

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(strFileName, ForWriting, CreateNotExist)

objFile.WriteLine "set Network = CreateObject("WScript.Network")"

(...)

objFile.Close

Set objFile = Nothing

Set objFSO = Nothing

Es wäre nett wenn ich eine leicht verständliche Antwort bekäme

...zur Frage

Kann man mit Visual Basic Script etwas Programmieren :3?

Helluw

Wie vielleicht einige wissen, gibt es das Skript Visual Basic Skript.

Ich versuche momentan damit etwas zu Programmieren, und bei dem sollte das vorkommen:

_________________________________________

-Hintergrundbild wechsel

-Ladebalken/Progressbar

_________________________________________

Über Google habe ich nichts darüber herausgefunden, wie man mit VBS das Hintergrundbild wechseln kann. Das Programm soll den Hintergrund verändern, damit es zu der Atmosphäre passt :3 . Den Ladebalken konnte ich zwar mit Visual Studio Express 2010 erstellen, jedoch weiß ich nicht wie ich ihn in eine VBS Datei einfügen kann, bzw. wie ich es Programmiere dass es die Visual Studio Express Datei auch ausführt...

Für alle die es intressiert:

ich Programmiere einen "Fake Virus", der keinen Schaden anrichtet, und nur dazu da ist andere zu erschrecken .

Kann mir jemand Helfen?

:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:3:

...zur Frage

VBA Code Outlook Mails als gelesen markieren?

Hallo zusammen,

ich habe ein VBA Script entdecken können, welches E-Mails beim Verschieben in einen bestimmten Ordner automatisch als gelesen markiert. Leider benötige ich diese Funktion aber für mehrere Ordner, bzw. eigentlich für alle (also immer wenn ich eine Mail in einen anderen Ordner verschiebe, soll diese als gelesen markiert werden).

Hat jemand eine Idee, wie ich dieses Script anpassen kann, oder ein anderes Script, damit das funktioniert?

Ich nutze ein Office 365, falls dies relevant ist.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim F As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set F = Ns.GetDefaultFolder(olFolderInbox)
  Set F = F.Folders("test")
  Set Items = F.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Item.UnRead = False
  Item.Save
End Sub

Vielen lieben Dank vorab :)

...zur Frage

VBA text Body wird teilweise in Zelle geschrieben anstatt in eMail?

Hallo,

ich habe folgendes Makro erstellt, um automatische eMail Anfragen in Outlook zu generieren und an manchen Tagen kommt es vor, dass der Text Body in eine Zelle des Excel Sheets geschrieben wird, anstatt in die eMail selbst, hier wird dann zwar die eMail generiert, aber lediglich mit den Empfängern und den Betreff. Woran kann das liegen und wie kann ich Abhilfe schaffen.

Sub Amendment_Initial_Capturing()

Dim olApp As Object

Dim objOutlook As Object

Dim objMail As Object

Dim Text As String

Set olApp = CreateObject("Outlook.Application")

Set objMail = olApp.CreateItem(0)

Text = "Dear all, " & Chr(13) & Chr(13) & " please perform the amendment of the initial capturing. Thanks."

With objMail

'.GetInspector ' sorgt für die Signatur

.To = "xxxxx"

.cc = "xxxxx"

.Subject = "DEALNAME - AMENDMENT INITIAL CAPTURING"

.Display

End With

SendKeys Text

Set olApp = Nothing

End Sub

...zur Frage

Hey, wie bekomme ich via Excel VBA eine Mail bei Lotus Notes geschrieben, sodass ich sie vorher noch bearbeiten kann?

Sobald ich die Mail ohne Bearbeitung verschicke, ist die Mail inklusive des Inhaltes. Sobald ich sie bearbeiten will vorher bzw. noch einmal manuell auf "senden" drücken will (Vorsichtsmaßnahme), ist der komplette Inhalt, bis auf die Betreffzeile, verschwunden.

Beiliegend ist mein Codebeispiel

Sub SendNotesMail2()

Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim stSignature As String



With Application
.ScreenUpdating = False
.DisplayAlerts = False


AWS = ActiveWorkbook.FullName
Set Worksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.createdocument
MailDoc.Form = "Memo"
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
Recipient = "f"
MailDoc.display = ""
MailDoc.copyto = "" 
MailDoc.subject = "price update"
MailDoc.SAVEMESSAGEONSEND = saveit
Set ritem = MailDoc.CreateRichTextItem("Body")
For i = 2 To 37
With ritem
        .AppendText ("")
        .AppendText (Cells(i, 2).Value & vbTab & Cells(i, 3).Value & vbTab & Cells(i, 4).Value & vbTab & Cells(i, 5).Value & vbTab)
        .addnewline (1)
End With
Next
For i = 2 To 2
With ritem
        .AppendText ("" & vbCrLf & vbCrLf & stSignature)
End With
Next


Call Workspace.editdocument(True, MailDoc).GOTOFIELD("subject")


MailDoc.PostedDate = Now()

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachMe = Nothing
Set session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True
End With
Range("a1").Select
End Sub

...zur Frage

Wie kann ich mit Visual basic Script eine Textdatei erstellen die als Dateiname das aktuelle Datum hat?

Hallo,

Ich möchte ein Vb Script erstellen, mit dem ich daten aus einem PHP Auftragsformular in eine Textdatei schreiben kann die automatisch im Dateinamen das aktuelle Datum hat und automatisch via FileZilla auf meinen FTP Server hochgeladen wird.

Den Teil bei dem ich die Daten eintrage habe ich schon kommt zwar eine Fehlermeldung aber es läuft...jetzt möchte ich, dass die Datei automatisch mit dem aktuellen Datum versehen und hochgeladen wird.

Hat da jemand etwas greifbar oder möchte mir was schreiben?

Bin am verzweifeln

Danke im vorraus Wieland

...zur Frage

Gibt es eine Möglichkeit visual basic script unter Linux zu verwenden?

Wie kann ich mit Linux Windows Programme schreiben mit VBS und batch,? Gibt es vielleicht etwas Ressourcen sparenderes als eine ganze VM

...zur Frage

VBS Schleife abbrechen durch Tastendruck?

Hallo, ich habe folgendes Script:

set WshShell = CreateObject("WScript.Shell")
for i=0 to 15
WScript.Sleep 300
WshShell.SendKeys " "
next

wie kann ich einbauen, dass beim drücken von "ESC" das Script vorzeitig beendet wird? Oder egal ob mit esc oder auf anderem Weg.

VIelen Dank!

...zur Frage

Excel: Code für Versenden einer Mail?

Hallo Community, wie kann ich es hinbekommen, dass die Dateinicht nur in den Postausgang gelegt wird sondern auch versendet wird? hier mein Code:

    Sub ExcelDateiSendenMitText()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xxxx@xxx.com; xxxxx@xxx.de"
.Subject = Range("F1") & Date & Time
.attachments.Add AWS
.Body = "text blabla"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

Ich weiß nicht weiter bitte um hilfe

Danke schon mal im Voraus

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen