Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
kopieren u. einfügen ohne Zwischenablage ?? |
25.09.2006 15:05:03 |
Danwe |
|
|
|
26.09.2006 13:22:14 |
Rasta |
|
|
|
27.09.2006 11:37:02 |
Danwe |
|
|
Von:
Danwe |
Datum:
25.09.2006 15:05:03 |
Views:
1417 |
Rating:
|
Antwort:
|
Thema:
kopieren u. einfügen ohne Zwischenablage ?? |
Hallo,
ch bin gerade in Word 2003 dabei ein Makro zu schreiben das zwei Tabellen die durch Text oder leerzeilen voneinander getrennt sind miteinander verbindet. momentan verwende ich dafür
Selection.Tables(1).Select
Selection.Cut
...
Selection.PasteAppendTable
Aber dadurch geht das Verloren was man zuvor in der Zwischenablage stehen hatte, z.B. Text, Grafiken, Dateien oder sonst was.
Wie kann ich meine Tabelle nun so ausschneiden u. einfügen, oder noch besser einfach verschieben ohne dass dieser gewaltig nachteilige Nebeneffekt auftritt?
Hier mal mein ganzes Makro:
Public Sub tabellen_verbinden()
If Selection.Information(wdWithInTable) = False Then
InfBox "Der Cursor muss sich innerhalb einer Tabelle befinden um diese Aktion durchführen zu können."
Exit Sub
End If
Select Case ActiveDocument.Tables.Count
Case Is = 1:
InfBox "Es ist nur eine Tabelle vorhanden. Es kann also keine weitere hinzugefügt werden."
Case Is > ActiveTableIndex:
Dim oRange As Range
ActiveDocument.Tables.Item(ActiveTableIndex + 1).Range.Cut 'Tabelle ausschneiden
Set oRange = Selection.Tables(1).Range
oRange.SetRange Start:=oRange.End, End:=oRange.End
oRange.PasteAppendTable 'Tabelle einfügen
Case Is = ActiveTableIndex:
InfBox "Unter der ausgewählten Tabelle befinden sich keine weiteren Tabellen mehr die angefügt werden könnten."
End Select
End Sub
Private Function ActiveTableIndex() As Integer
ActiveTableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
End Function |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
kopieren u. einfügen ohne Zwischenablage ?? |
25.09.2006 15:05:03 |
Danwe |
|
|
|
26.09.2006 13:22:14 |
Rasta |
|
|
|
27.09.2006 11:37:02 |
Danwe |
|
|