Makro Excel zu Word | Textstelle auswählen
14.11.2017 11:00:19
Felix
ich habe erst vor kurzem und wegen meiner aktuellen Aufgabenstellung mit VBA angefangen. Entsprechend habe ich hier wirklich keine Erfahrung.
Meine Aufgabenstellung war es, über eine Eingabemaske (in Excel) Angaben machen
zu können (z.B. Name, Adresse,...). Anhand dieser Angaben sollen Textbausteine
ausgewählt und befüllt werden und diese in ein Worddokument gem. einer Vorlage
integriert werden.
Den Großteil konnte ich mir über Youtube schon zusammensuchen. Mein Code sieht bisher so aus:
---------------------------------------
Sub CreateBasicWordReport()
Dim wApp As Word.Application
Dim Savename As String
Set wApp = New Word.Application
With wApp
.Visible = True
.Activate
.Documents.Add "Link zum Dokument"
Savename = Environ("UserProfile") & "\Desktop\Test " & Format(Now, "dd_mm_yyyy hh_mm") & _
_
_
".docx"
.ActiveDocument.SaveAs2 Savename
range("B51:B438").Select
range("B438").Activate
Selection.Copy
.Selection.Paste
End With
Set wApp = Nothing
End Sub
-------------------------------------------------
Bisher funktioniert auch alles. Der richtige Text wird eingefügt und in das richtige
Dokument (den Link habe ich im Code raus gelassen) eingefügt.
Jetzt möchte ich:
1) Den Zelleninhalt als Text und nicht als Tabelle in Word einfügen
2) Den Zelleninhalt erst nach der Überschrift meiner Dokumentenvorlage einfügen
3) Die Formatierung des Textes soll im Blocksatz sein.
optional:
Ich habe bei meinen Textbausteinen Überschriften. Diese würde ich gerne automatisch formatieren, ich weiß auch, in welchen Zellen diese stehen und die Zellen verändern sich nicht. Eben nur die Werte in den Zellen.
Vielen Dank für eure Hilfe!
Excel sitzt ganz gut, von VBA wie gesagt keine Ahnung :)
Viele Grüße
Felix