de inhoud van CTR-C in een variabele zetten

[pvdlee]

Hoe krijg ik de inhoud van wat ik heb opgeslagen met CTRL-C in een variabele

peter

 

[wampier]

In de basis kun je zoiets doen:

My.Computer.Clipboard.GetText()

Het is echter beter om eerst te kijken in het clipboard or er valide data is, en dergelijke

 

[pvdlee]

Ik heb dit verwerkt in de volgende macro, maar krijg als foutmelding "object vereist"

Sub Macro11()
'
' Macro11 Macro
' Macro opgenomen op 4-2-2013 door Peter
'
    Dim strNaam As String
    
    Selection.Copy
    strNaam = My.Computer.Clipboard.GetText()       <<<<<<<<<<<<<hier foutmelding
    MsgBox strNaam
    
    Windows("Concordantie Lidmaten.doc").Activate
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = strNaam
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    'Windows("1120 inv 213 Lidmaten administratie Lam en Toren.rtf").Activate
End Sub

 

[wampier]

VBA is geen VB! Dat is een heel ander subforum

probber dit eens:

 Dim DataObj As New MSForms.DataObject
    Dim S As String
    DataObj.GetFromClipboard
    S = DataObj.GetText

 

[MartinJM]

Hoi,

Als eerste: Wampier heeft gelijk: Dit is VBA, wat (helaas) nogal verschilt van visual basic op sommige punten. De volgende keer zou het handig zijn om bij je post te vermelden welke programmeertaal je gebruikt.

Wil je de volgende keer aub ook code tags om je codes heen posten? Dat maakt je post iets overzichtelijker :thumb:

Ik heb even gezocht, en ik kwam deze linkjes tegen waar je misschien ook wel wat aan hebt:
http://word.mvps.org/FAQs/MacrosVBA/ManipulateClipboard.htm
http://support.microsoft.com/kb/82111/en-us
http://www.dreamincode.net/forums/topic/188291-ms-word-how-do-i-make-text-clipboard/

Succes!
MartinJM

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[snb]

Activeer de verwijzing naar Microsoft Forms 2.0 Object Library

Sub M_snb()
    With New DataObject
        .GetFromClipboard
        c00 = .GetText
    End With
End Sub

 

[pvdlee]

Bedankt
Het werkt

Peter