Hello p85ki,
There are a couple of options. You can save the data to the clipboard and paste it into the form, which is the easiest or use a more advanced approach to paste the text from the cells into the document using VBA and HTML. Since you are using an internal site (intranet) the latter is not really a viable option because of site restrictions, etc.
Copy and paste this code into a new VBA Module in your workbook. Execute the "Run" macro from the macro dialog by pressing the Alt+F8 keys and double clicking Run.
This will copy the values from A3:A6 of the active sheet to the clipboard as text. You can change the range if you need to.
Function AddForms20Lib() As Boolean
' NOTE: With Excel 2007 and later, you must change your security settings
' to "Trust access to the VBA project object model" before this macro
' will run.
'
' Written: September 27, 2010
' Author: Leith Ross www.excelforum.com
Dim Reference As Object
Dim OLB As String
Dim vMajor, vMinor
' FM20 Type Library
OLB = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}"
vMajor = 2
vMinor = 0
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid OLB, vMajor, vMinor
If Err <> 0 And Err <> 32813 Then
AddForms20Lib = False
Else
AddForms20Lib = True
End If
End Function
Sub CopyTextToClipboard(ByRef Rng As Range)
Dim Cell As Range
Dim DataObj As Object
Dim Text As String
If AddForms20Lib = False Then
MsgBox "VBE Object library not loaded." & vbCrLf & Err.Description
Exit Sub
End If
Set DataObj = MSForms.DataObject
For Each Cell In Rng.Cells
Text = Text & Cell.Value & vbCrLf
Next Cell
DataObj.Clear
DataObj.SetText Text
DataObj.PutInClipboard
End Sub
Sub Run()
Call CopyTextToClipboard(Range("A3:A6"))
End Sub