Microsoft Office 12.0 Object Library missing

[HWV]

Beste allemaal,
ik heb een kleine script voor gegevens uit excel te verplaatsen naar excel, ik heb het voorbereid op een andere PC en nu hier krijg ik de volgende meding

"Microsoft Office 12.0 Object Library missing"

Ik heb al gekeken bij -extra -verwijzingen en daar staat deze niet tussen wel de:

"Microsoft Office 11.0 Object Library"

Hoe kan ik zorgen dat mijn script wel werkt:

Option Explicit

Sub WordDocumentMaken()
    
    Dim y As Word.Application
    Set y = CreateObject("Word.Application")
    Worksheets("Prijsblad").Range("B18:AA58").CurrentRegion.Copy
        With y
            .Visible = True
            .Documents.Add
            .Selection.Font.Name = "Arial"
            .Selection.Font.Size = 14
            .Selection.Font.Bold = wdToggle
            .Selection.TypeText Text:="Tekst 1"
            .Selection.TypeParagraph
            .Selection.Font.Size = 10
            .Selection.Font.Bold = wdToggle
            .Selection.TypeParagraph
            .Selection.TypeText Text:= _
                "Hier komt een tekst te staan"
            .Selection.TypeParagraph
            .Selection.TypeParagraph
            .Selection.Paste
        End With
        
        Application.CutCopyMode = False
        
End Sub

Ik hoor graag of jullie hier een oplossing voor weten , ik krijg het niet gevonden

Groet HWV

 

[Roncancio]

Beste allemaal,
ik heb een kleine script voor gegevens uit excel te verplaatsen naar excel, ik heb het voorbereid op een andere PC en nu hier krijg ik de volgende meding

"Microsoft Office 12.0 Object Library missing"

Ik heb al gekeken bij -extra -verwijzingen en daar staat deze niet tussen wel de:

"Microsoft Office 11.0 Object Library"

Hoe kan ik zorgen dat mijn script wel werkt:

Option Explicit

Sub WordDocumentMaken()
    
    Dim y As Word.Application
    Set y = CreateObject("Word.Application")
    Worksheets("Prijsblad").Range("B18:AA58").CurrentRegion.Copy
        With y
            .Visible = True
            .Documents.Add
            .Selection.Font.Name = "Arial"
            .Selection.Font.Size = 14
            .Selection.Font.Bold = wdToggle
            .Selection.TypeText Text:="Tekst 1"
            .Selection.TypeParagraph
            .Selection.Font.Size = 10
            .Selection.Font.Bold = wdToggle
            .Selection.TypeParagraph
            .Selection.TypeText Text:= _
                "Hier komt een tekst te staan"
            .Selection.TypeParagraph
            .Selection.TypeParagraph
            .Selection.Paste
        End With
        
        Application.CutCopyMode = False
        
End Sub

Ik hoor graag of jullie hier een oplossing voor weten , ik krijg het niet gevonden

Groet HWV

En als je de "Microsoft Office 11.0 Object Library" aanvinkt?

Met vriendelijke groet,


Roncancio

 

[HWV]

Met bijlage

Beste,

Bedankt voor uw reactie
In de bijlage ziet u de foutmelding die ik krijg op het script zoals opgegeven hier in het forum. Ik heb ook de microsft 11.0 al aangezet

Groet HWV

 

[Roncancio]

Beste,

Bedankt voor uw reactie
In de bijlage ziet u de foutmelding die ik krijg op het script zoals opgegeven hier in het forum. Ik heb ook de microsft 11.0 al aangezet

Groet HWV

Dan moet je de "Microsoft Office 12.0 Object Library" waar MISSING voor staat, uitvinken.

Met vriendelijke groet,


Roncancio

 

[HWV]

toch nog een foutmelding

Hoi,

Zodra ik dit doet geef hij weer gelijk de foutmelding kan DLL niet laden en vinkje schiet weer aan

groet HWV

PS,

Deze foutmelding krijg ik nu ook.

Een door de gebruiker gedefineerd gegevens type is niet gedefineerd

 

[Roncancio]

Hmm, meestal is het uitvinken voldoende.
Sterker nog als ik de code inlaad en "Microsoft Office 11.0 Object Library" aanvink, werkt de code zonder problemen.

Met vriendelijke groet,


Roncancio

 

[HWV]

Zou u mijn file willen probern

Beste,

In de bijlage zit mijn bestand, wat ik dus wil bereiken met de code is dat ik
B17 t/m AA58 kopieer naar Word maar dan wel enkel de gevulde velden zonder de kolomen.
Missien is er een ander code voor die bij mij wel werkt

groet HWV

 

[HWV]

Iets anders

Beste,

Ik heb een nieuw script gevonden dat op één of ander manier wel werkt vreemd.....
Nu krijg ik de regels allemaal achter elkaar, en ik zou ze netjes onder elkaar in word willen zien zoals in het voorbeeld.
De lus wil ik erin houden ivm dat ik nooit weet hoeveel regels er komen.

Wie kan mij hier verder mee helpen.

groet HWV

PS

Is dit dan ook in kolomen te plaatsen in Word !, maar dan zo dat de kolomen onzichtbaar zijn dit ivm uitlijning