Thema Datum  Von Nutzer Rating
Antwort
28.10.2017 10:43:25 Thomas Bommer
NotSolved
28.10.2017 13:11:47 Mackie
NotSolved
28.10.2017 14:03:24 Gast69203
NotSolved
28.10.2017 14:06:44 Mackie
NotSolved
28.10.2017 14:14:51 Gast77160
NotSolved
28.10.2017 15:55:23 Mackie
NotSolved
28.10.2017 15:14:49 Holger
NotSolved
28.10.2017 16:19:02 Gast36239
NotSolved
28.10.2017 16:48:20 Holger
NotSolved
28.10.2017 16:48:49 Mackie
NotSolved
28.10.2017 16:53:44 Gast24273
NotSolved
28.10.2017 17:50:55 Gast88608
NotSolved
28.10.2017 17:52:13 Mackie
NotSolved
28.10.2017 17:52:27 Thomas Bommer
NotSolved
28.10.2017 17:53:04 Mackie
NotSolved
29.10.2017 15:08:31 Holger
NotSolved
29.10.2017 18:24:21 Gast84824
*****
NotSolved
Blau  Leerzeichen innerhalb von Wörtern entfernen
 30.10.2017 10:11:56 Thomas Bommer
****
Solved
30.10.2017 18:51:31 Gast98044
*****
NotSolved
30.10.2017 20:28:10 Mackie
NotSolved
30.10.2017 20:31:55 Mackie
*****
NotSolved

Ansicht des Beitrags:
Von:
Thomas Bommer		 Datum:
30.10.2017 10:11:56		 Views:
862		 Rating:
     
Antwort:
 Nein
Thema:
Leerzeichen innerhalb von Wörtern entfernen

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Lieber Holger, anbei noch einmal der Code lesebar. Dein Makro hat fast funktioniert, jedoch wurde stets das nachfolgende Wort 'mitangebunden'...Aber wirklich herzlichen Dank für die Mühe :-)
 
 
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

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
NotSolved
28.10.2017 13:11:47 Mackie
NotSolved
28.10.2017 14:03:24 Gast69203
NotSolved
28.10.2017 14:06:44 Mackie
NotSolved
28.10.2017 14:14:51 Gast77160
NotSolved
28.10.2017 15:55:23 Mackie
NotSolved
28.10.2017 15:14:49 Holger
NotSolved
28.10.2017 16:19:02 Gast36239
NotSolved
28.10.2017 16:48:20 Holger
NotSolved
28.10.2017 16:48:49 Mackie
NotSolved
28.10.2017 16:53:44 Gast24273
NotSolved
28.10.2017 17:50:55 Gast88608
NotSolved
28.10.2017 17:52:13 Mackie
NotSolved
28.10.2017 17:52:27 Thomas Bommer
NotSolved
28.10.2017 17:53:04 Mackie
NotSolved
29.10.2017 15:08:31 Holger
NotSolved
29.10.2017 18:24:21 Gast84824
*****
NotSolved
Blau  Leerzeichen innerhalb von Wörtern entfernen
 30.10.2017 10:11:56 Thomas Bommer
****
Solved
30.10.2017 18:51:31 Gast98044
*****
NotSolved
30.10.2017 20:28:10 Mackie
NotSolved
30.10.2017 20:31:55 Mackie
*****
NotSolved