Springen naar inhoud


open copy paste


  • Log in a.u.b. om te beantwoorden
Er zijn 3 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 04 mei 2011 - 08:16

Mss met een for-next lus die je ertussen plakt? geen idee hoe maar je zou es moeten experimenteren



grtz



NoxiousPlug

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 04 mei 2011 - 08:16

ik heb al een andere oplossing namelijk:

Private Sub Knop7_Click()


Dim oApp As Object, strBestand As String
Set oApp = CreateObject("Word.Application")

If Me.een Then
  strBestand = "c: est15.doc"
ElseIf Me.twee Then
  strBestand = "c: est16.doc"
End If

With oApp
  .Documents.Open (strBestand) ' Het bestand openen
  .Selection.WholeStory        ' Alle tekst uit het bestand selecteren
  .Selection.Copy              ' De selectie kopi?ren

  ' Het andere document openen
  .Documents.Open ("c: esthardware.doc")
  
  ' En daarin plakken (op de cursorpositie)
  .Selection.Paste
  
  .Visible = True
  .Activate
End With

Set oApp = Nothing

End Sub


Alleen nu maakt ms word 2x hardware.doc aan en ik wil dat alles in 1 document achter elkaar wordt geplakt



Weet iemand hier een oplossing voor

#3 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 04 mei 2011 - 08:16

hoi wouter,

kan je misschien even vermelden welke fout je krijgt?

ik zou oApp anders declaren
Dim oApp As Word.Application en dan met een selectie werken
oApp.Selection.Copy

mvg

Pete

#4 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 04 mei 2011 - 08:16

hallo wat is er mis met de volgende VBA code ik wil een word document openen en dan kopieren en dan plakken in een andere tekst file

Private Sub Knop15_Click()
On Error GoTo Err_Knop15_Click

Dim oApp As Object

If Me.selectievakje3152 = True Then

Set oApp = CreateObject("Word.Application")

oApp.Documents.Open ("c:plcsourcedp.doc")
oApp.Documents.copy ("c:plcsourcedp.doc")
oApp.Documents.paste ("c:plcsourcehardware.txt")

oApp.Visible = True
oApp.Activate

ElseIf Me.selectievakje315 = True Then

Set oApp = CreateObject("Word.Application")

oApp.Documents.Open ("c:plcsource315.doc")
oApp.Documents.copy ("c:plcsource315.doc")
oApp.Documents.paste ("c:plcsourcehardware.txt")

oApp.Visible = True
oApp.Activate

End If

Exit_Knop15_Click:
Exit Sub

Err_Knop15_Click:
MsgBox Err.Description
Resume Exit_Knop15_Click

End Sub

alvast bedankt




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)