macro va a capo

Hai un problema con Excel?

Nuova discussione

macro va a capo
di lalabay (utente non iscritto) data: 17/01/2014 11:25:37
ciao,
ho una macro che mi permette di copiare il contenuto di un documento word e incollarlo dove è posizionato il cursore, in un altro documento word. La macro è questa:

Private Sub CommandButton1_Click()
Dim appWord As Object, MyData As DataObject, MyFile
strPath = perc_file & ActiveCell & ".doc"
Apri_AppWord
wApp.Visible = True
If x Then Exit Sub
With wApp
.Selection.WholeStory
.Selection.Copy
Set appWord = GetObject(, "Word.Application")
appWord.Documents(1).Activate
Set MyFile = New DataObject
MyFile.GetFromClipboard
appWord.Selection.TypeText Text:=MyFile.GetText
End With
wApp.Quit
Set wApp = Nothing
Application.ScreenUpdating = True

End Sub

vorrei modificarla in modo che dopo aver incollato vada anche a capo, qualcuno ha suggerimenti?
di patel data: 17/01/2014 11:31:49
come al solito occorrerebbe avere il file completo per fare delle prove
di lalabay (utente non iscritto) data: 17/01/2014 11:34:30
il file completo è troppo grande, non mi è possibile allegarlo. Appena riesco preparo un estratto.

di patel data: 17/01/2014 11:46:31
prova così

Private Sub CommandButton1_Click()
       Dim appWord As Object, MyData As DataObject, MyFile
    strPath = perc_file & ActiveCell & ".doc"
    Apri_AppWord
    wApp.Visible = True
    If x Then Exit Sub
    With wApp
        .Selection.WholeStory
        .Selection.Copy
        Set appWord = GetObject(, "Word.Application")
        appWord.Documents(1).Activate
        Set MyFile = New DataObject
        MyFile.GetFromClipboard
        appWord.Selection.TypeText Text:=MyFile.GetText
        appWord.Selection.TypeText Text:=vbCrLf
    End With
    wApp.Quit
    Set wApp = Nothing
    Application.ScreenUpdating = True

End Sub

di lalabay (utente non iscritto) data: 17/01/2014 11:58:26
grazie mille provo e ti faccio sapere.

Vuoi Approfondire?