Macro Help: Keep formatting

p45cal · #4 01-27-2020, 07:19 PM

I know nothing of Word VBA but I tried this and it seems to go in the right direction:

Code:

Sub nachwordkopieren()
Dim Probenliste As Object
Dim appWord As Object

Set appWord = CreateObject("Word.Application")
Set Probenliste = appWord.Documents.Add("filepath")
appWord.Visible = True
Probenliste.Activate

Range("Probenname1").Copy
Probenliste.Bookmarks("Probenname1").Range.Paste
Range("Verbindung1").Copy
Probenliste.Bookmarks("Verbindung1").Range.Paste

Set Probenliste = Nothing
Set appWord = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to convert formatting?	CTHockeyBA	Word VBA	1	09-25-2018 06:13 PM
Conditional Formatting in a Macro	jennyyoung	Excel Programming	15	05-17-2018 09:39 AM
Conditional Formatting Macro	grexcelman	Excel Programming	1	01-10-2015 04:45 PM
Macro for text formatting	georgekung84	Word VBA	15	08-08-2012 06:28 PM
Formatting macro	Ulodesk	Word Tables	9	04-10-2012 06:37 PM