[VBA] Probleem kopieren tekst van Doc A naar B met formaat

[Verwijderd]

Hoi GoT,

Ik ben momenteel bezig met een applicatie, waarbij ik tekst van Document A naar B moet kopieren, hierbij is het van belang dat als een woord schuingedrukt, vetgedrukt, kleur is dat de formaat ook meegekopieerd wordt.

Dit is de code, waarmee ik dit probeer te realiseren. Maar met deze code krijg ik Type Mismatch error op regel 7.

Code:
1. Dim myFormat As Range
2. Dim bestand As String

3. Documents.Open FileName:=bestand, ReadOnly:=True
4. Set myFormat = Documents(bestand).Range
5. Documents(bestand).Close

6. Selection.Collapse Direction:=wdCollapseStart
7. Selection.FormattedText = myFormat

Ik hoop dat jullie me hiermee kunnen helpen.

Mvg,
Shurbann

[Maasluip]

Wat is er mis met een simpele copy-en-paste?

code:

    Selection.WholeStory
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.Paste

edit:
Oh ja,

welkom op GoT, groeten hoeft niet: doen we al continu, enz...

[ Voor 20% gewijzigd door Maasluip op 28-04-2004 10:56 ]

[Verwijderd]

Eerst dacht ik ook dat het met een simpele Copy Paste op te lossen was.
Maar met een simpele kopie paste kreeg ik alleen tekst zonder de juiste kleur of stijl (vetgedrukt, schuigedrukt etc.).

Na het lezen van je post, ben ik weer gaan kijken waarom het niet werkte. Ik ben intussen tijd erachter gekomen wat het was. Zeer stomme fout (om een lang verhaal kort te houden: bestanden waren Read-Only). Het kopie pasten lukt nu wel.

Bedankt!