Kopieren Sie Text aus einer Tabelle in Word und Retaing Formatierung

Ich habe ein problem beim kopieren einer Zelle von einer Tabelle in eine andere Zelle. Ich spreche von zwei word-Dokumente hier. Ich kann den text kopieren, aber die Kugeln sind verschwunden, und einige der Formatierung.

Versuchte ich .Formattedtext aber es noch nicht.

Dim test As Word.Cell

'An error occurs something like "Object variable or With block variable not set"
test.Range.FormattedText = CTPDoc.Tables(2).Rows(testCount).Cells(3).Range.FormattedText
  • Haben Sie versucht Selection.PasteAndFormat (wdFormatOriginalFormatting)?
  • Ich habe nicht treid, dass. Wie verwende ich das? Tut mir Leid, ich bin neu in VBA
  • Können Sie zeigen, was haben Sie versucht?
  • Dim test as Wort.cell test.Bereich.FormattedText = CTPDoc.Tabellen(2).Zeilen(testCount).Zellen(3).Bereich.FormattedText tritt ein Fehler auf, so etwas wie "Objekt-variable oder With-block variable nicht festgelegt"
InformationsquelleAutor user1173805 | 2013-01-14
  1. 3

    Ist hier ein Beispiel.

    Sagen wir, wir haben zwei Tabellen in ein word-Dokument. Siehe Abbildung unten

    Kopieren Sie Text aus einer Tabelle in Word und Retaing Formatierung

    Sagen wir, wir möchten, fügen Sie die Daten aus Cell 1 von Table 1 zu Cell 1 von Table 2 dann versuchen, diese

    Sub Sample()
    Dim tbl1 As Table, tbl2 As Table

    Set tbl1 = ActiveDocument.Tables(1)
    Set tbl2 = ActiveDocument.Tables(2)

    tbl1.Cell(1, 1).Range.Copy
    tbl2.Cell(1, 1).Range.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

    Dies ist, was das makro tut

    Kopieren Sie Text aus einer Tabelle in Word und Retaing Formatierung

    Hoffe, das hilft 🙂

    • Ich denke, ich kann mit meinem Szenario. Die zwei Tabellen aus verschiedenen Dateien. Mein problem ist, ich bekomm alle Werte zuerst, bevor ich öffnen Sie die Ziel-Datei und fügen Sie alle Werte. Dank
    • Ihre obige code zeigt, dass Sie Lesen, bilden die Werte ein Tisch, also die Methode, die ich oben vorgeschlagen wird für Sie arbeiten. probieren Sie es aus
    • Ich habe ein problem...ich dachte es funktioniert jetzt, aber ich versuchte es in einem anderen computer und in dieser ein Fehler Auftritt .PastandFormat Linie. Sie sagt "Befehl nicht verfügbar": (
    • Welche MS Office version verwenden Sie auf dem pc?
    • Ich bin mit 2010, wo ich code und 2007, wo ich getestet. Ich habe versucht, verschiedene Parameter anstelle von wdFormatOriginalFormatting und einige Werke, die aber das format ia ein bisschen Durcheinander. Man arbeitete aber in einem Fall nur. Ich meine, wenn ich versuchte, verwenden andere Quell-Datei-format ist ein Durcheinander wieder.
    • Ich bin derzeit mit wdListContinueNumbering und wdUseDestinationStylesRecovery und es arbeitet jetzt auf beiden Computern. Ich nehme an, es wird funktionieren auf jedem anderen auch. Obwohl irgendetwas muss falsch sein mit dem Quell-Datei verursacht das Durcheinander-format beim einfügen. Vielen Dank für alles. Dies ist gelöst 🙂

    InformationsquelleAutor Siddharth Rout
  2. 1

    @Siddharth Rout
    Sie Antwort war wirklich hilfreich. Es ist nicht die genaue Antwort auf mein problem, aber zumindest habe ich gelernt, über PasteandFormat mit seinen verschiedenen Arten wie wdFormatOriginalFormatting. vielleicht kann ich eines Tages auch benutzen.

    Nun hier geht, was mein problem gelöst.
    Mit der Logik gegeben durch Siddharth, habe ich das einfach tbl2.Cell(1, 1).Range.Paste statt PasteandFormat. Eigentlich PasteandFormat gearbeitet, aber es war ein problem, das passiert nur in ausgewählten Quelldatei/Tabelle. Ich denke, dass es einige Formatierungen, die es in der Quelltabelle, die beim einfügen in eine andere Zelle, es werden sich Durcheinander. Ich bin mir nicht sicher, was genau was ist, aber .Paste jeden Fall lösen es für mich. Ich hoffte, dass ich anderen helfen kann zu 🙂

    InformationsquelleAutor user1173805
Schreibe einen Kommentar