Thema Datum  Von Nutzer Rating
Antwort
13.11.2022 16:16:12 Max
NotSolved
13.11.2022 17:08:46 Gast22733
NotSolved
13.11.2022 17:45:30 Max
NotSolved
13.11.2022 19:27:16 Max
NotSolved
13.11.2022 19:40:02 xlKing
NotSolved
13.11.2022 20:01:02 Max
NotSolved
13.11.2022 19:29:13 xlKing
NotSolved
13.11.2022 19:43:28 Gast38469
NotSolved
13.11.2022 20:07:02 xlKing
NotSolved
Blau String aus einer Variable in Word weiter bearbeiten
 13.11.2022 20:28:45 xlKing
NotSolved
13.11.2022 20:57:11 Max
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
13.11.2022 20:28:45		 Views:
388		 Rating:
     
Antwort:
  Ja
Thema:
String aus einer Variable in Word weiter bearbeiten

Hier nochmal der entsprechende Ausschnitt komplett auf deinen Code angepasst:

?
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
With wdApp.Selection
   .TypeText Text:=Einleitungstext
   .TypeParagraph
   .TypeParagraph
   .TypeText Text:="Text1:"
   .TypeParagraph
   .TypeText Text:=Text1
   .TypeParagraph
   .TypeParagraph
   .TypeText Text:="Text2:"
   .TypeParagraph
   .TypeText Text:=Text2
   .TypeParagraph
   .TypeParagraph
   .TypeText Text:="Text3:"
   .TypeParagraph
   .TypeText Text:=Text3
End With
 
rStart = wdoc.Paragraphs(wdoc.Paragraphs.Count).Range.start
rEnd = wdoc.Paragraphs(wdoc.Paragraphs.Count).Range.End
 
With wdoc.Range(rStart, rEnd).Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ";"
    .Replacement.Text = ","
    .Forward = True
    .Wrap = 0
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=2
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ", "
    .Replacement.Text = "^p"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=2
End With
  
rEnd = wdoc.Paragraphs(wdoc.Paragraphs.Count).Range.End
wdoc.Range(rStart, rEnd).ConvertToTable Separator:=0
  
With wdoc.Tables(1)
    .Style = "Tabellenraster"
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .Borders(-1).LineStyle = 0
    .Borders(-2).LineStyle = 0
    .Borders(-3).LineStyle = 0
    .Borders(-4).LineStyle = 0
    .Borders(-5).LineStyle = 0
    .Borders(-6).LineStyle = 0
    .Borders(-7).LineStyle = 0
End With

Gruß Mr. K.

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
13.11.2022 16:16:12 Max
NotSolved
13.11.2022 17:08:46 Gast22733
NotSolved
13.11.2022 17:45:30 Max
NotSolved
13.11.2022 19:27:16 Max
NotSolved
13.11.2022 19:40:02 xlKing
NotSolved
13.11.2022 20:01:02 Max
NotSolved
13.11.2022 19:29:13 xlKing
NotSolved
13.11.2022 19:43:28 Gast38469
NotSolved
13.11.2022 20:07:02 xlKing
NotSolved
Blau String aus einer Variable in Word weiter bearbeiten
 13.11.2022 20:28:45 xlKing
NotSolved
13.11.2022 20:57:11 Max
NotSolved