| Forum: ASP.NET |
Thema:
Re: Word beeinflussen bzw. fernsteuern |
Von:
G. Guest (
28.01.2005 11:21) |
Danke für deine Antworten!
ist eigentlich schade das es nicht geht. Hätte gedacht man könnte die Sprachen miteinander kombinieren.
Naja ích glaube das würde mein Problem doch nicht lösen, da ich den Usern Rechte vergeben würde, und das sollte nicht sein. Sie dürfen alle Dateien lesen können. Ich muß "nur" dafür sorgen dass sie in den jeweiligen Ordnern beim Erstellen abgelegt werden.
Denn der User wählt mittels einer ddl das gewünschte Verzeichnis aus und kann dann mit einem Buttonklick eine Worddatei in Word aufrufen (die sich eben in diesem ausgewählten Verzeichnis befinden soll)kann sie bearbeiten und abspeichern. Nur wie kriege ich Word dazu dynamisch das ausgewählte Verzeichnis zu übernehmen, nur in dem ich diese Datei aus dem Verzeichnis aufrufen lasse. Dazu habe ich eine Textdatei erstellt die den ausgewählten Pfad als string beinhaltet. So dass das Wordobject(im VB Script) diese Textdatei öffnet und ausliest und meine Worddatei in diesem Verzeichnis öffnet.
Ich habe mir überlegt dass es besser wäre wenn ich in jedem Verzeichnis eine solche Textdatei hätte, die dann das Wordobj. jedesmal aus dem richtigen Verzeichnis ausliest und es anschließend übernimmt.
hier der Code obwohl es VBScript ist:
<script Language=VBScript>
<!--
Function TextStreamTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
//hier müßte er sich das file dynamisch holen können???
Set f = fso.GetFile("C:\fab\Contextdat\Path.txt")
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
TextStreamTest = ts.ReadLine
ts.Close
End Function
function load_word(mode)
Dim pfad
Const ForReading = 1
'mode 1 = open as dot
Set appWord = CreateObject("Word.Application")
' Display the application.
appWord.WindowState = 0
appWord.Left = 0
appWord.Top = 0
appWord.Visible = TRUE
' Open the document.
' mode 1 = dot file
if mode = 1 then appWord.Documents.Open (TextStreamTest) end if
' Close the object variable.
Set appWord = Nothing
end function
--></script>
Kenne mich leider mit VBScript nicht aus deshalb weiß ich nicht welche Möglichkeiten ich da habe.
Gruss
| Betreff |
Von |
Datum |
|
|
  |
Re: Word beeinflussen bzw. fernsteuern
| hm, und wenn Du das ganze über VBA im Word steuerst? wenn ich Dich richtig verstanden habe, willst du eine Vorlage, die dann beim öffnen automatisch in einem bestimmten (userspezifischen) Ordner... |
|
|
|
|
|
Thomas
Grupp
|
28.01.2005 11:38 |
|
|
|
Re: Word beeinflussen bzw. fernsteuern
| Okay, danke trotzdem für deine Tipps!<br>Da habe ich noch einiges zu tun...<br>Und das Makro würde ich dann in Word aufrufen per Buttonklick oder könnte es sich auch automatisch ausführen quasi beim... |
|
|
|
|
|
G.
Guest
|
28.01.2005 12:04 |
|
|
|
Re: Word beeinflussen bzw. fernsteuern
| sowohl als auch, beim Öffnen von Word z.B. so:<br><br>Nimm mal ein neues Word-dokument, drücke Alt/F11 klicke im Projektexplorer (ggf. über Ansicht einblenden) und dann auf Das Dokument und füge dort den... |
|
|
|
|
|
Thomas
Grupp
|
28.01.2005 13:09 |
|
|
|
|
G.
Guest
|
28.01.2005 14:51 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
