Namen Auflisten im Textmarker

  • VB.NET

    Namen Auflisten im Textmarker

    Hallo an das Forum,

    wie könnte man folgendes Realisieren.
    Ich habe ein Word docx mit einem Textmarker und will hier nun die Nachnamen in dem Textmarker ausgeben untereinander.

    Vieleicht habt Ihr da ein Tipp

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports Microsoft.Office.Interop.Word
    3. Imports System.IO
    4. Imports System
    5. Imports Microsoft.Win32
    8. Public Class wordaendern
    9. Dim strFileName As String
    11. Private Function dok(ByVal textmarke As String, ByVal textm_value As String)
    14. Dim word As New Microsoft.Office.Interop.Word.Application
    15. Dim doc As Microsoft.Office.Interop.Word.Document
    16. Try
    17. word.Visible = (True) 'Word sehen zum Test?
    18. doc = word.Documents.Open("c:\tmp\123.docx")
    19. doc.Activate()
    21. If doc.Range.Bookmarks.Exists(textmarke) Then
    22. doc.Bookmarks().Item(textmarke).Range.Text = textm_value
    24. Else
    25. MessageBox.Show("Textmarke nicht vorhanden!")
    26. End If
    28. 'doc.SaveAs("c:\tmp\testtest.doc") 'speichere mir das Dok unter dem Namen testtest.doc
    29. 'doc.Close()
    30. ' MessageBox.Show("Datei erstellt")
    32. Catch ex As IOException
    33. MessageBox.Show("Datei nicht vorhanden.")
    35. Finally
    36. 'word.Application.Quit()
    37. End Try
    39. Return (0)
    41. End Function
    43. Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    46. For i As Integer = 0 To 7
    47. dok("Nachnamen", "franke1") ' dok( Textmarke, Inhalt)
    48. dok("Nachnamen", "franke2") ' dok( Textmarke, Inhalt)
    49. dok("Nachnamen", "franke3") ' dok( Textmarke, Inhalt)
    50. dok("Nachnamen", "franke4") ' dok( Textmarke, Inhalt)
    51. dok("Nachnamen", "franke5") ' dok( Textmarke, Inhalt)
    52. dok("Nachnamen", "franke6") ' dok( Textmarke, Inhalt)
    53. dok("Nachnamen", "franke7") ' dok( Textmarke, Inhalt)
    55. Next i
    57. End Sub
    60. End Class


    Vielen Dank im Voraus

Facebook
Telefonspende