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
Blau String aus einer Variable in Word weiter bearbeiten
13.11.2022 19:43:28 Gast38469
NotSolved
13.11.2022 20:07:02 xlKing
NotSolved
13.11.2022 20:28:45 xlKing
NotSolved
13.11.2022 20:57:11 Max
NotSolved

Ansicht des Beitrags:
Von:
Gast38469
Datum:
13.11.2022 19:43:28
Views:
305
Rating: Antwort:
  Ja
Thema:
String aus einer Variable in Word weiter bearbeiten

Hier ist der komplette Quelltext, ich musste nur die Variablen "anonymisieren". Die Variablen, die hier nicht deklariert sind, werden von anderen Makros beigesteuert.

 

Sub ExcelZuWord()

Dim wdApp As Object
Dim wdoc As Object


On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
On Error GoTo 0
If wdApp Is Nothing Then
   Set wdApp = CreateObject("Word.Application")
   wdApp.Visible = True
End If

wdApp.Documents.Add
Set wdoc = wdApp.ActiveDocument

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

With wdoc.Range(344, 474).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

wdoc.Range(344, 474).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

'With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)
'    .NumberFormat = "%1."
'    .TrailingCharacter = 0
'    .NumberStyle = 0
'    .ResetOnHigher = 0
'    .StartAt = 1


Set wdoc = Nothing
Set wdApp = Nothing

End Sub

Ich will hier den Inhalt von Text3 in eine Tabelle umwandeln.

 

(ich weißt dass das kein schöner Code ist, ich hab das nie so richtig gelernt blush)


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:

 
 

  • 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
Blau String aus einer Variable in Word weiter bearbeiten
13.11.2022 19:43:28 Gast38469
NotSolved
13.11.2022 20:07:02 xlKing
NotSolved
13.11.2022 20:28:45 xlKing
NotSolved
13.11.2022 20:57:11 Max
NotSolved