Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0205: Rechtschreibkontrolle mit Word

VB 5/6-Tipp 0205: Rechtschreibkontrolle mit Word

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,87 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Textfeld "Text1"

Option Explicit

Private Sub Form_Load()
  Text1.Text = "Die einfachste Möglichkeit, Informationen zwischen " _
             & "einzelnen Dokumenten auszutauschen, besteht in der " _
             & "Benutzung der Zwischenablage. Sie ist auf jedem PC " _
             & "mit Windows Betriebssystem vorhanden und bietet die" _
             & "Möglichkeit jeweils ein Objekt in ihr abzulegen bzw" _
             & ". zu speichern. Die Betonung liegt auf 'ein Objekt'" _
             & ". Versuchen Sie ein weiteres dort abzulegen, wird d" _
             & "as vorherige mit dem neuen überschrieben und ist da" _
             & "mit über die Ablage nicht mehr verfügbar." & vbCrLf

Text1.Text = Text1.Text & vbCrLf & "Ein Objekt kann alles mögliche " _
             & "sein; Texte, oder nur ein Wort bzw. Buchstabe, eine" _
             & "Grafik in einem beliebigen Format, eine oder mehrer" _
             & "e Dateien oder Ordner usw." & vbCrLf & vbCrLf

Text1.Text = Text1.Text & "Man kann sich diese Ablage wie eine klei" _
             & "nes Fach vorstellen in das z.B. ein Stück Papier od" _
             & "er ein Foto hineingelegt wird, um es dann bei Bedar" _
             & "f wieder hervorzuholen. Einziger Unterschied ist, d" _
             & "aß mit dem Ausschalten des Computers auch das Fach " _
             & "der Ablage geleert ist und somit der Inhalt nach er" _
             & "neutem Starten nicht mehr zur Verfügung steht."
End Sub

Private Sub Command1_Click()
    Dim Word As Object
    Dim Text As String
    
    On Error Resume Next
    Set Word = CreateObject("Word.Application")
    
    With Word
        .WordBasic.FileNew
        .WordBasic.Insert Text1.Text
        .WordBasic.ToolsSpelling
        .WordBasic.EditSelectAll
        .WordBasic.SetDocumentVar "MyVar", .WordBasic.Selection
        .Visible = False
        
        Text = .WordBasic.GetDocumentVar("MyVar")
        Text1.Text = InsertNewLineChars(Left(Text, Len(Text) - 1))
                         
        .Documents.Close (0)
        .Quit
    End With
    
    Set Word = Nothing
    Form1.SetFocus
End Sub


Private Function InsertNewLineChars(ByVal Text As String) As String
    Dim Pos As Long, L As Long, X As Long
    
    Pos = 1
    Do While Pos < Len(Text)
      X = InStr(Pos, Text, vbCr)
      If X = 0 Then Exit Do
      Text = Left$(Text, X - 1) & vbCrLf & Mid$(Text, X + 1)
      Pos = X + 2
    Loop
    
    InsertNewLineChars = Text
End Function
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 4 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.