Hallo zusammen,
Ich habe ein WordDokument mit 1000 aufgelisteten Spielen (Titel "Arial" und Regeln "Calibri"). In demselben Dokument habe ich eine Tabelle eingefügt.
Alle diese Spiele will ich nun mit meinem Makro1 in diese Tabelle einfügen: Jedes Spiel in eine eigene Zeile, den Titel in der Spalte1 und dessen Regeln in die Spalte2.
Mein Makro:
-Wählt den "Arial"-Titel aus, schneidet ihn aus und fügt diesen in die Zelle (1,1)
-...nun wird der "Calibri"-Text ausgewählt, schneidet ihn aus und fügt diesen in die Zelle (1,2)
-...usw.
Leider gibt's noch einen Fehler zu beheben: Bereits wenn die Variable den Wert 2 (Zeile 2) bekommen sollte, wird im Makro der Variablen ColonnaTab und der Variable RigaTab nicht der richtige Wert übergeben.
Was mache ich falsch?
Grazie Berni
Sub Macro1()
'
' Macro1 Macro
Dim RigaTab As Integer
Dim ColonnaTab As Integer
Dim TestoTagliato As String
ColonnaTab = 1
RigaTab = 1
TestoTagliato = "Berni"
Do While TestoTagliato <> ""
If ColonnaTab = 3 Then
ColonnaTab = 1 & RigaTab = RigaTab + 1
GoTo Avanti
Else
Avanti:
With Selection
'Evidenziare tutto finché cambia il carattere
.SelectCurrentFont
'TestoTagliato = .SelectCurrentFont
TestoTagliato = Selection
'Tagliare quello che è stato evidenziato
Selection.Cut
End With
'Inserire il testo nella 1 Tabella nella prima cella del documento attivo
If ActiveDocument.Tables.Count >= 1 Then
With ActiveDocument.Tables(1).Cell(RigaTab, ColonnaTab).Range
.Delete
.InsertAfter Text:=TestoTagliato
End With
End If
End If
ColonnaTab = ColonnaTab + 1
Loop
End Sub
|