Absturz beim Selektieren der Spalten einer Word Tabelle | Access <--> Word

  • Access

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Absturz beim Selektieren der Spalten einer Word Tabelle | Access <--> Word

    Hallo Zusammen,

    vielleicht könnte mir Jemand von Euch weiterhelfen.

    Ich habe aktuell die folgende Problematik. Ich erstelle über VBA ein Word Dokument aus einem Template und fülle dieses mit Inhalt.

    Meiner Methode übergebe ich das aus dem Template erstellte Dokument und möchte das Dokument nach Abschluss der Bearbeitung auf einem Netzwerkpfad speichern.

    Den groben Aufbau der Methoden seht Ihr unten. Ich habe ein paar der Variablen und für die Darstellung des Problems irrelevanten Codezeilen entfernt.

    Aufruf der Export-Methode

    Visual Basic-Quellcode

    1. Set app = New Word.Application
    3. If app Nothing Then
    4. ....
    5. Exit Function
    6. End If
    8. Set document = app.Documents.Add(Template:=Template, NewTemplate:=False, DocumentType:=0)
    9. Dim settings As settings
    10. settings = exportWord (document,...)


    Export Methode

    Visual Basic-Quellcode

    1. Private Function exportWord (oDoc As Word.Document, ...) As settings
    3. On Error GoTo Err_WordExport
    5. Dim sets As settings
    6. With sets
    7. .export = False
    8. End With
    10. exportWord = sets
    12. Dim objRange As Word.Range
    13. Dim objTable As Word.Table
    15. With oDoc
    16. Set objRange = .Bookmarks("tbl").Range
    17. .Tables.Add objRange, positionen.Count + 1, 6
    18. Set objTable = .Bookmarks("tbl").Range.Tables(1)
    19. End With
    21. With objTable
    22. With .Rows(1)
    23. .Cells(1).Range.Text = ""
    24. .Cells(2).Range.Text = ""
    25. .Cells(3).Range.Text = ""
    26. .Cells(4).Range.Text = ""
    27. .Cells(5).Range.Text = ""
    28. .Cells(6).Range.Text = ""
    30. .Cells(1).Range.Font.Bold = True
    31. .Cells(2).Range.Font.Bold = True
    32. .Cells(3).Range.Font.Bold = True
    33. .Cells(4).Range.Font.Bold = True
    34. .Cells(5).Range.Font.Bold = True
    35. .Cells(6).Range.Font.Bold = True
    36. End With
    37. End With
    39. Dim i As Long
    40. i = 2
    43. For Each ItemPos In Positionen
    44. 'Füllen des Inhaltes....
    45. Next ItemPos
    47. With objTable.Rows(1).Borders(wdBorderBottom)
    48. .Visible = True
    49. .LineStyle = wdLineStyleDouble
    50. End With
    52. objTable.Columns(4).Select
    53. Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    55. objTable.Columns(5).Select
    56. Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    58. objTable.Columns(6).Select
    59. Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    61. objTable.Columns.AutoFit
    63. oDoc.SaveAs2 pathToSave
    65. With sets
    66. .export = True
    67. .PathToFile = pathToSave
    68. End With
    70. exportWord = sets
    71. Set objTable = Nothing
    73. End Function


    Der erste Durchlauf klappt auch noch ohne Probleme. Sobald man das Ganze nochmal ausführt stürzt er beim Selektieren der Spalten ab.
    Im Taskmanager habe ich mal geprüft, ob noch Word Prozesse laufen, welche den Zugriff blockieren, allerdings ist das nicht der Fall.

    Die einzige Vermutung, welche ich noch habe, ist, dass das Ganze im Zusammenhang mit der Instanz der Word.Application zusammenhängt.

    Hättet Ihr noch eine Idee für mich, da ich langsam ein wenig verzweifel ||

    Vielen Dank

    Gruß
    DerFr0sch :thumbup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DerFr0sch“ ()

    Willkommen im Forum.

    Wenn Du die Word-Instanz in Verdacht hast, warum sorgst Du nicht dafür, dass sie nur einmal instanziiert wird? Ich weiß zwar nicht, wie man in Access-VBA eine Variable global macht, aber das ungeprüfte Erstellen der Word-Instanz ließe sich eben so verhindern. Also app global machen und dann eben so ungefähr: If app Is Nothing Then Set app = New Word.Application
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    Hi,

    erstmal lieben Dank für die Begrüßung und Deine Antwort.

    Das ist das merkwürdige an der Geschichte.

    Wenn ich das Ganze so prüfe, dann bekomme ich zwar als Resultat, dass die Word Instanz bereits am laufen ist, aber sobald damit versucht wird weiter zu arbeiten laufe ich in den nächsten Fehler.
    Dann bekomme ich den Fehler, dass der Remote-Server-Computer nicht existiert oder nicht verfügbar (Fehler 462) ist.

    €dit: Es wirkt fast so als würde hier irgendetwas nicht richtig aufgeräumt werden.
    Da ich den gleichen Fehler erhalte, bei der Selektion der Spalten erhalte. Allerdings setze ich alles nach Beendigung auf Nothing und eigentlich würde ich gerne das Word Dokument offen haben, nach Abschluss.


    Gruß
    DerFr0sch :thumbup:

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „DerFr0sch“ ()

    Ganz kurz:

    VB.NET-Quellcode

    1. objTable.Columns(4).Select
    2. Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

    Selection ist hier (und an anderen Stellen) aber ggf. implizit für die Access-Selection, nicht für die Word-Selection. Gib da mal den Wordbezug noch mit. Nicht, dass es an sowas liegt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    In deinem Fall so:

    Visual Basic-Quellcode

    1. objTable.Columns(4).Select
    2. app.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight


    Ich persönlich würde .Select vermeiden, das macht meistens nur Probleme.
    Das bedeutet in deinem Fall aber eine kleine Codeumstellung.
    1. Tabelle nur mit einer Zeile einfügen
    2. Spaltenausrichtung zuweisen
    3. Beim Befüllen immer eine neue Zeile einfügen
    4. Zeile 1 Rahmen- und Textformat zuweisen
    Beispiel

    Visual Basic-Quellcode

    1. Option Explicit
    3. Dim app As Word.Application
    4. Dim Document As Word.Document
    6. Const Template As String = "C:\Temp\Test.dotx"
    8. Sub start()
    10. Set app = New Word.Application
    11. app.Visible = True
    13. If app Is Nothing Then
    14. Exit Sub
    15. End If
    17. Set Document = app.Documents.Add(Template:=Template, NewTemplate:=False, DocumentType:=0)
    18. exportWord Document
    20. End Sub
    22. Private Sub exportWord(oDoc As Word.Document)
    24. Dim Positionen(8) As Variant
    25. Dim Item(5) As Variant
    26. Dim ItemPos As Variant
    28. Item(0) = 1
    29. Item(1) = 22
    30. Item(2) = 333
    31. Item(3) = 4444
    32. Item(4) = 55555
    33. Item(5) = 666666
    35. Positionen(0) = Item
    36. Positionen(1) = Item
    37. Positionen(2) = Item
    38. Positionen(3) = Item
    39. Positionen(4) = Item
    40. Positionen(5) = Item
    41. Positionen(6) = Item
    42. Positionen(7) = Item
    43. Positionen(8) = Item
    45. Dim objTable As Word.Table
    47. Set objTable = oDoc.Tables.Add(oDoc.Bookmarks("tbl").Range, 1, 6)
    49. With objTable.Rows(1)
    51. .Cells(1).Range.Text = "a"
    52. .Cells(2).Range.Text = "b"
    53. .Cells(3).Range.Text = "c"
    54. .Cells(4).Range.Text = "d"
    55. .Cells(5).Range.Text = "e"
    56. .Cells(6).Range.Text = "f"
    58. .Cells(4).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
    59. .Cells(5).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
    60. .Cells(6).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
    62. End With
    64. Dim r As Word.Row
    66. For Each ItemPos In Positionen
    68. Set r = objTable.Rows.Add
    70. 'Füllen des Inhaltes....
    71. r.Cells(1).Range.Text = ItemPos(0)
    72. r.Cells(2).Range.Text = ItemPos(1)
    73. r.Cells(3).Range.Text = ItemPos(2)
    74. r.Cells(4).Range.Text = ItemPos(3)
    75. r.Cells(5).Range.Text = ItemPos(4)
    76. r.Cells(6).Range.Text = ItemPos(5)
    78. Next ItemPos
    80. With objTable.Rows(1)
    82. .Borders(wdBorderBottom).Visible = True
    83. .Borders(wdBorderBottom).LineStyle = wdLineStyleDouble
    85. .Cells(1).Range.Font.Bold = True
    86. .Cells(2).Range.Font.Bold = True
    87. .Cells(3).Range.Font.Bold = True
    88. .Cells(4).Range.Font.Bold = True
    89. .Cells(5).Range.Font.Bold = True
    90. .Cells(6).Range.Font.Bold = True
    92. End With
    94. objTable.Columns.AutoFit
    95. Set objTable = Nothing
    97. End Sub

    Hi,

    auch Dir vielen Dank für die nette Antwort!

    Ich habe meinen Code angepasst, leider greift das Right Alignment nur für die erste Zeile.

    In deinem Beispiel waren jedoch trotzdem praktische Tipps, wie ich meinen Code noch etwas schöner machen konnte, diese habe ich natürlich gerne übernommen :)

    Bei Spalte 4-6 handelt es sich nämlich um Zahlen im Währungsformat, weswegen ich diese gerne rechtsbündig haben würde.

    Danke

    €dit: Ich habe das ganze nochmal über die Word-Selection gerade ausprobiert und siehe da, ich bekomme keinen Fehler mehr :)
    Gruß
    DerFr0sch :thumbup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DerFr0sch“ ()

    HenryV schrieb:

    Dim app As Word.Application
    Dim Document As Word.Document
    Const Template As String = "C:\Temp\Test.dotx"
    Sub start()
    Set app = New Word.Application
    app.Visible = True

    If app Is Nothing Then
    Exit Sub
    End If

    Set Document = app.Documents.Add(Template:=Template, NewTemplate:=False, DocumentType:=0)
    exportWord Document
    End Sub

    Ich mach das immer so

    Visual Basic-Quellcode

    1. Private WordApp_ As Word.Application
    2. Dim Document As Word.Document
    3. Const Template As String = "C:\Temp\Test.dotx"
    4. Property Get WordApp As Word.Application
    5. If WordApp_ Is Nothing Then
    6. Set WordApp_ = New Word.Application
    7. WordApp_.Visible = True
    8. End If
    9. Set WordApp = WordApp_
    10. End Property
    11. Sub Start
    12. Set Document = WordApp.Documents.Add(Template:=Template, NewTemplate:=False, DocumentType:=0)
    13. ' ...
    14. End Sub

    Die WordApp kann beliebig oft aufgerufen werden, wird aber nur einmal instanziiert.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende