Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.05.2014 14:57:30 |
Steffi |
|
|
Erstes Zeichen in einem String löschen (Word-Tabelle) |
24.05.2014 16:49:57 |
Gast28096 |
|
|
|
24.05.2014 18:04:33 |
Gast54126 |
|
|
|
25.05.2014 03:10:45 |
Gast17122 |
|
|
Von:
Gast28096 |
Datum:
24.05.2014 16:49:57 |
Views:
1464 |
Rating:
|
Antwort:
|
Thema:
Erstes Zeichen in einem String löschen (Word-Tabelle) |
Die Zellen von Tabellen in Word kann man so abarbeiten:
Option Explicit
Public Sub Test()
Dim objTable As Word.Table
Dim objRow As Word.Row
Dim objCell As Word.Cell
Set objTable = ThisDocument.Tables(1) '<- ggf. anpassen
For Each objRow In objTable.Rows
For Each objCell In objRow.Cells
With objCell.Range
Debug.Print "Cell(" & objCell.RowIndex & "," & objCell.ColumnIndex & ") = " & Left$(.Text, Len(.Text) - 2)
End With
Next
Next
'ODER auch so:
' Dim r As Long
' Dim c As Long
'
' For r = 1 To objTable.Rows.Count
' For c = 1 To objTable.Columns.Count
' With objTable.Cell(r, c).Range
' Debug.Print "Cell(" & r & "," & c & ") = " & Left$(.Text, Len(.Text) - 2)
' End With
' Next
' Next
End Sub
Das vom Text die letzten zwei Zeichen verworfen werden, liegt daran, dass diese beiden Zeichen stets Steuerzeichen (nicht darstellbare Zeichen) sind.
In deinem Fall brauchst du nur die äußere Schleife und gibts den Spaltenindex jeweils mit 1 und 3 fest an.
|
- 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
|
|
24.05.2014 14:57:30 |
Steffi |
|
|
Erstes Zeichen in einem String löschen (Word-Tabelle) |
24.05.2014 16:49:57 |
Gast28096 |
|
|
|
24.05.2014 18:04:33 |
Gast54126 |
|
|
|
25.05.2014 03:10:45 |
Gast17122 |
|
|