Heading in Word durch Excel
11.05.2020 16:41:20
David
ich bin mal wieder aufgeschmissen, was die Schnittstelle zwischen Excel und Word betrifft. Ich würde gerne aus Excel heraus eine Überschrift in einem Word-Doc vor eine definierte Textmarke setzen. Das ganze mache ich in einem Unterprogramm, in welchem eine Tabelle an eine Textmarke in Word übergeben wird. Vor dem eingefügten Bereich in dem Word-Doc, also vor der Textmarke, will ich jetzt eine Überschrift einfügen. Das klappt allerdings nicht. Meinen bisherigen Gedankengang habe ich euch nachfolgend eingefügt. Die Objekte (objApp; objDocument; objWordRange) deklariere ich im Hauptprogramm als Puvlib Variablen. Ich hoffe jemand kann mir weiterhelfen.
Sub Output_Subroutine ()
With ThisWorkbook.Worksheets("Input ")
With objApp
.Selection.Style = objDocument.Styles("Überschrift 1")
.Selection.TypeText Text:="Datenauswertung"
.Selection.TypeBookmarks ("Datenbereich1")
End With
If objDocument.Bookmarks.Exists("Datenbereich1") = True Then
.Range("B121:N222").CopyPicture 1, 2
Set objWordRange = objDocument.BookmarksDatenbereich1").Range
objWordRange.Paste
Set objWordRange = Nothing
End If
End With
End Sub
Vielen Dank
David