Sub
Copy2Word()
Application.ScreenUpdating =
False
Call
CheckPath(s_Path)
If
b_WordDone =
False
Then
b_WordDone =
True
Set
app_word = CreateObject(
"word.application"
).Documents.Add(Worksheets(
"Parameter"
).Range(
"PAR_Template"
).Text).Application
With
app_word
.ActiveDocument.CustomDocumentProperties(
"D"
) = frm_Insert.txt_D.Text
.ActiveDocument.CustomDocumentProperties(
"N"
) = frm_Insert.cbo_N.Text
.ActiveDocument.CustomDocumentProperties(
"P"
) = frm_Insert.cbo_O.Text
.ActiveDocument.CustomDocumentProperties(
"A"
) = frm_Insert.cbo_A.Text
.ActiveDocument.CustomDocumentProperties(
"S"
) = s_FileName
.ActiveDocument.CustomDocumentProperties(
"T"
) = frm_Insert.cbo_T.Text
.ActiveDocument.CustomDocumentProperties(
"Date"
) =
Date
.ActiveDocument.CustomDocumentProperties(
"E"
) = frm_Insert.cbo_E.Text
.ActiveDocument.CustomDocumentProperties(
"Z"
) = frm_Insert.cbo_Z.Text
.ActiveDocument.CustomDocumentProperties(
"Te"
) = frm_Insert.txt_Te.Text
.ActiveDocument.CustomDocumentProperties(
"In"
) = frm_Insert.cbo_In.Text
.ActiveDocument.CustomDocumentProperties(
"Ku"
) = frm_Insert.cbo_Ku.Text
.ActiveDocument.CustomDocumentProperties(
"Po"
) = frm_Insert.cbo_Po.Text
.ActiveDocument.CustomDocumentProperties(
"Dru"
) = frm_Insert.txt_Dru.Text
.ActiveDocument.CustomDocumentProperties(
"Dr"
) = frm_Insert.txt_Dr.Text
.ActiveDocument.SaveAs Filename:=s_Path & s_FileName, FileFormat:=wdFormatDocument
End
With
End
If
With
app_word
.Selection.Move unit:=wdStory, Count:=1
.Selection.InsertBreak Type:=wdPageBreak
.Selection.Style = .ActiveDocument.Styles(
"Überschrift 1"
)
.Selection.TypeText Text:=frm_InsertSolarCell.txt_Serie.Text &
"_"
& frm_InsertSolarCell.cbo_Device.Text &
"_"
& s_Zellenposition
.Selection.TypeParagraph
.Selection.TypeText Text:=frm_InsertSolarCell.txt_Kommentar.Text
Sheets(
"Diagramme"
).
Select
ActiveSheet.ChartObjects(
"Chart 1"
).Activate
ActiveChart.ChartArea.
Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
.Selection.TypeParagraph
<strong> .Selection.Paste</strong>
ActiveSheet.ChartObjects(
"Chart 2"
).Activate
ActiveChart.ChartArea.
Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
.Selection.TypeParagraph
<strong> .Selection.Paste</strong>
End
With
Sheets(
"So"
).
Select
Cells(n_LastRowNr, Range(
"SC_Filename"
).Column).
Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=s_Path & s_FileName &
".doc"
, TextToDisplay:= _
s_FileName
End
Sub