Hallo zusammen,

ich bin relativ neu auf dem Gebiet VBA. Und schon habe ich die ersten Probleme ;)

Ich will aus einem Dokument diei Bausteine auslesen und einzeln in ein Word Dokument schreiben und abspeichern. Dies funktioniert alles einwandfrei. 

Jedoch werden mir die Zeichen auf 255 limitiert. (objBB.Value)

Wie kann man dies umgehen? GIbt es andere Möglichkeiten?

Option Explicit

Sub TextbausteineExport()
    'Variabeln Bausteine auslesen
    Dim objTemplate As Template
    Dim objBBT As BuildingBlockType
    Dim objCat As Category
    Dim objBB As BuildingBlock
    Dim intCount As Integer
    Dim intCountCat As Integer
    Dim intCountBlocks As Integer
    
    'Variabeln Word Application
    Dim objWord As Application
    Dim objDoc As Document
    Dim objSelection As Selection
'********************************************************************
    'Setzt Pfad von Template -> modPublic
    Set objTemplate = Templates(p_cstrTemplateTextbausteine)
 
    'Liest die Kataloge von den Bausteinen aus
    For intCount = 1 To objTemplate.BuildingBlockTypes.Count
        Set objBBT = objTemplate.BuildingBlockTypes(intCount)
        If objBBT.Categories.Count > 0 Then
            
            'Liest die Kategorien von den Bausteinen aus
            For intCountCat = 1 To objBBT.Categories.Count
                Set objCat = objBBT.Categories(intCountCat)
                
                'Liest die Namen und Inhalte von den Bausteinen aus
                For intCountBlocks = 1 To objCat.BuildingBlocks.Count
                    Set objBB = objCat.BuildingBlocks(intCountBlocks)
                    'Debug.Print vbTab & vbTab & objBB.Name
                    'Selection.TypeText vbTab & vbTab & vbTab & _
                        "Baustein " & intCountBlocks & ": " & objBB.Name & vbCrLf
                    'Selection.TypeText vbTab & vbTab & vbTab & _
                          "Value: " & objBB.Value & vbCrLf & vbCrLf
                             
                             '****************************************************
                        If Dir("g:\tmp\" & objBB.name & ".docx") = "" Then
                        Set objWord = CreateObject("Word.Application")
                        Set objDoc = objWord.Documents.Add
                        
                        objWord.visible = False
                        Set objSelection = objWord.Selection
                        objSelection.TypeText (objBB.Value)
             
                        Debug.Print "Nr." & intCountBlocks & ": " & "g:\tmp\" & objBB.name & ".docx"
                        objDoc.SaveAs ("g:\tmp\" & objBB.name & ".docx")
                        objDoc.Application.Quit
                        
                        'Debug.Print "Datei " & "g:\tmp\" & objBB.Name & ".docx" & " kopiert!"
                        
                        
                        End If
                Next
            Next
        End If
    Next
End Sub

Sub GetExistingBuildingBlock()
    Dim objTemplate As Template
    Dim objBB As BuildingBlock
    
    Set objTemplate = Templates(p_cstrTemplateTextbausteine)
    Set objBB = objTemplate.BuildingBlockEntries.Item(1)
    MsgBox objBB.Value


End Sub

Danke schon im Voraus für eure Bemühungen

Gruss

Nicolas