Bennenung einer Worddatei in Zwischenablage
17.02.2017 11:02:26
Carla
ich nutze derzeit folgenden Code:
Sub Test()
Dim appWord As Object, docWord As Object, wks As Worksheet, Zeile&
Dim N as string, P as string, T as String
P = "C:\Users\xxxxxx\"
N = Sheets(1).[A10].Value
T = ".docx"
Set wks = ThisWorkbook.Worksheets("Request Sheet")
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Add("C:\Users\xxxxxx\Desktop\xxxxxx.docx") 'anpassen
Zeile = Application.InputBox("Tragen Sie die lfd. Nr. ein:", "Eingabe", _
Type:=1)
appWord.Visible = True
With docWord
.Bookmarks("Datum").Range.Text = wks.Range("B" & Zeile).Value
.Bookmarks("Kontakt").Range.Text = wks.Range("C" & Zeile).Value
.Bookmarks("Typ").Range.Text = wks.Range("D" & Zeile).Value
.Bookmarks("Format").Range.Text = wks.Range("E" & Zeile).Value
.saveas filename:=P & N & T ' ***
End With
End Sub
Dieser Code exportiert Daten aus einer Exceltabelle in eine Worddatei.
Da ich das ganze auf Servern integrieren will, funktioniert das aufgrund der Berechtigungen der User nicht mehr mit dem Zwischenspeichern.
Kann man eine solche exportierte Worddatei auch Aktiv schalten und dann bennenen, ohne sie lokal abzuspeichern? Denn die Bennenung ist dabei sehr wichtig!