Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.10.2017 10:43:25 |
Thomas Bommer |
|
|
|
28.10.2017 13:11:47 |
Mackie |
|
|
|
28.10.2017 14:03:24 |
Gast69203 |
|
|
|
28.10.2017 14:06:44 |
Mackie |
|
|
|
28.10.2017 14:14:51 |
Gast77160 |
|
|
|
28.10.2017 15:55:23 |
Mackie |
|
|
|
28.10.2017 15:14:49 |
Holger |
|
|
|
28.10.2017 16:19:02 |
Gast36239 |
|
|
|
28.10.2017 16:48:20 |
Holger |
|
|
|
28.10.2017 16:48:49 |
Mackie |
|
|
|
28.10.2017 16:53:44 |
Gast24273 |
|
|
|
28.10.2017 17:50:55 |
Gast88608 |
|
|
|
28.10.2017 17:52:13 |
Mackie |
|
|
|
28.10.2017 17:52:27 |
Thomas Bommer |
|
|
|
28.10.2017 17:53:04 |
Mackie |
|
|
|
29.10.2017 15:08:31 |
Holger |
|
|
Leerzeichen innerhalb von Wörtern entfernen |
29.10.2017 18:24:21 |
Gast84824 |
|
|
|
30.10.2017 10:11:56 |
Thomas Bommer |
|
|
|
30.10.2017 18:51:31 |
Gast98044 |
|
|
|
30.10.2017 20:28:10 |
Mackie |
|
|
|
30.10.2017 20:31:55 |
Mackie |
|
|
Von:
Gast84824 |
Datum:
29.10.2017 18:24:21 |
Views:
635 |
Rating:
|
Antwort:
|
Thema:
Leerzeichen innerhalb von Wörtern entfernen |
Lieber Holger,
Mackie hat folgende Lösung angeboten - funktioniert ???
Sub Makro3()
t = Timer
Dim ch As Range:
Set ch = ActiveDocument.Characters(1)
Do
txt0 = txt1
txt1 = txt2
n = n + 1
txt2 = ch.Text
If (txt0 = " " And txt2 = " ") And txt1 <> " " Then
If txt1 <> "," Then
If Not First Then
Set ch = ch.Next
If ch.Next = " " Then
Set ch = ch.Previous
First = True
ch.Text = "*"
If UCase(txt1) = txt1 Then
Set ch = ch.Previous
ch.Previous = " "
Set ch = ch.Next
End If
End If
End If
End If
Else
First = False
End If
Set ch = ch.Next
Loop Until ch Is Nothing
With Selection.Find
.Text = "*"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Lieben Dank :-)
Grüße
Thomas |
- 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
|
|
28.10.2017 10:43:25 |
Thomas Bommer |
|
|
|
28.10.2017 13:11:47 |
Mackie |
|
|
|
28.10.2017 14:03:24 |
Gast69203 |
|
|
|
28.10.2017 14:06:44 |
Mackie |
|
|
|
28.10.2017 14:14:51 |
Gast77160 |
|
|
|
28.10.2017 15:55:23 |
Mackie |
|
|
|
28.10.2017 15:14:49 |
Holger |
|
|
|
28.10.2017 16:19:02 |
Gast36239 |
|
|
|
28.10.2017 16:48:20 |
Holger |
|
|
|
28.10.2017 16:48:49 |
Mackie |
|
|
|
28.10.2017 16:53:44 |
Gast24273 |
|
|
|
28.10.2017 17:50:55 |
Gast88608 |
|
|
|
28.10.2017 17:52:13 |
Mackie |
|
|
|
28.10.2017 17:52:27 |
Thomas Bommer |
|
|
|
28.10.2017 17:53:04 |
Mackie |
|
|
|
29.10.2017 15:08:31 |
Holger |
|
|
Leerzeichen innerhalb von Wörtern entfernen |
29.10.2017 18:24:21 |
Gast84824 |
|
|
|
30.10.2017 10:11:56 |
Thomas Bommer |
|
|
|
30.10.2017 18:51:31 |
Gast98044 |
|
|
|
30.10.2017 20:28:10 |
Mackie |
|
|
|
30.10.2017 20:31:55 |
Mackie |
|
|