Thema Datum  Von Nutzer Rating
Antwort
Rot kopieren u. einfügen ohne Zwischenablage ??
 25.09.2006 15:05:03 Danwe
NotSolved
26.09.2006 13:22:14 Rasta
NotSolved
27.09.2006 11:37:02 Danwe
NotSolved

Ansicht des Beitrags:
Von:
Danwe		 Datum:
25.09.2006 15:05:03		 Views:
1409		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot kopieren u. einfügen ohne Zwischenablage ??
 25.09.2006 15:05:03 Danwe
NotSolved
26.09.2006 13:22:14 Rasta
NotSolved
27.09.2006 11:37:02 Danwe
NotSolved