vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück
Rubrik: OLE/Registry/DLL · Automation   |   VB-Versionen: VB2005, VB200821.10.08
Word-Dokument in TextBox übertragen

Funktion, mit der sich ein Word-Dokument mit Hilfe der Zwischenablage in einer MultiLine-Textbox anzeigen lässt.

Autor:   Frank Uwe PollehnBewertung:     [ Jetzt bewerten ]Views:  13.631 
ohne HomepageSystem:  Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

In den vorigen Versionen von VB war es kein Problem ein Word-Dokument in eine Textbox zu laden, bei VB2008 funktionieren (meines Wissens nach) diese Methoden nicht mehr.

Hier eine Version, die über das Clipboard Daten von Word in eine Textbox einliest.

Wenn jemand eine bessere Variante kennt immer her damit

''' <summary>
''' Öffnet eine Instanz von Word, lädt das angegebene Dokument und 
''' kopiert den Inhalt über die Zwischenablage in die TextBox
''' </summary>
''' <param name="Filename">Pfad und Dateiname des Word-Dokuments</param>
''' <param name="TextBox">MultiLine-TextBox für die Anzeige des Inhaltes</param>
Private Function ShowWordDoc(ByVal Filename As String, _
  ByVal TextBox As TextBox) As Boolean
 
  Dim Word As Object = Nothing
  Dim Success As Boolean = False
 
  Try
    ' Word.Application Objekt erstellen
    Word = CreateObject("Word.Application")
    With Word
      ' Word unsichtbar starten
      .Visible = False
 
      ' Datei laden
      .Documents.Open(Filename)
 
      ' alles selektieren
      .WordBasic.EditSelectAll()
 
      ' Selektion in die Zwischenablage kopieren
      .selection.copy()
 
      ' Text aus Zwischenablage in die TextBox einfügen
      TextBox.Text = Clipboard.GetDataObject.GetData(DataFormats.Text)
 
      ' Dokument schließen
      .Documents.Close(0)
 
      ' Word beenden
      .Quit()
    End With
    Success = True
 
  Catch ex As Exception
    ' Fehlerausgabe
    MsgBox("Fehler bei der Übernahme des Word-Dokuments!" & vbCrLf & _
      ex.Message, MsgBoxStyle.Critical)
 
  Finally
    ' Aufäumarbeiten
    If Word IsNot Nothing Then
      Word.Quit()
      Word = Nothing
    End If
  End Try
 
  ' Funktionsrückgabe
  Return (Success)
End Function

Dieser Tipp wurde bereits 13.631 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel