[VB] Locatie aangeven van opslaan

[Jaapiooo]

Ik heb in Ms Word03 een rapport aangemaakt en opgeslagen als template. Het is de bedoeling dat deze template in Microsoft office sharepoint komt te staan.
Zodra een gebruiker nu een nieuw document aanmaakt in een library, moet hij het desbetreffende rapport invullen met behulp van een form dat ik gemaakt heb in visual basic.
Nu wil ik echter dit bestand ook met de hulp van een macro op kunnen slaan op een bepaalde locatie (in sharepoint) opslaan. Hier heb ik een script voor geschreven, ik weet alleen niet hoe ik de locatie kan invoeren. Ik heb reeds gezocht in de help google en Goh, maar heb er niets over kunnen vinden.
Mijn code:

Visual Basic:

Sub AutoNew()
    
        frmStoringsrapportkl01.Show
    
End Sub

Sub SaveAsHTMFile()
    Dim strDocName As String
    Dim intPos As Integer
    
    'Zoek naar de positie van de extensie in het bestand
    strDocName = ActiveDocument.Name
    intPos = InStrRev(strDocName, ".")
    
    If intPos = 0 Then
    
        'Als het document nog niet is opgeslagen, vraag de gebruiker om een bestandsnaam
        strDocName = InputBox("Voer een naam in voor het storingsrapport.")
           
    Else
        'Haal de extensie weg en voeg een htm extensie toe
        strDocName = Left(strDocName, intPos - 1)
        strDocName = strDocName & "htm"
    End If
    
    'Sla het bestand op met de nieuwe extensie
    ActiveDocument.SaveAs FileName:=strDocName, FileFormat:=wdFormatFilteredHTML
    
End Sub 

Heeft iemand suggesties?

[ Voor 4% gewijzigd door Jaapiooo op 30-12-2004 12:12 ]

[.oisyn]

Hoi
VB Code kun je zo plaatsen: [code=vb].. je code hier ..[/code]

(En zie P&W FAQ - de "quickstart" voor wat wij zoal verwachten in een topicstart, voor de volgende keer )

[ Voor 46% gewijzigd door .oisyn op 30-12-2004 12:05 ]

[Verwijderd]

code:

ActiveDocument.SaveAs FileName:="c:\RTF_Files\" & tempFilename, ileformat:=wdFormatRTF

Lokatie kun je bij filename aangeven voor zover ik weet

[Jaapiooo]

Ik heb de code nu als volgt aangepast,

Visual Basic:

Sub SaveAsFilteredHTMLFile()
    Dim strDocName As String
    Dim intPos As Integer
    
    'Zoek naar de positie van de extensie in het bestand
    strDocName = ActiveDocument.Name
    intPos = InStrRev(strDocName, ".")
    
    If intPos = 0 Then
    
        'Als het document nog niet is opgeslagen, vraag de gebruiker om een bestandsnaam
        strDocName = InputBox("Voer een naam in voor het storingsrapport.")
           
    Else
        'Haal de extensie weg en voeg een htm extensie toe
        strDocName = Left(strDocName, intPos - 1)
        strDocName = strDocName & "html"
    End If
    
    'Sla het bestand op met de nieuwe extensie
    ActiveDocument.SaveAs FileName:="http://sharepoint/Kolonne 1/Document Library/strDocName", FileFormat:=wdFormatFilteredHTML
    
End Sub

Hij slaat nu het bestand op met de bestands naam strDocName.
Hoe kan ik nu de ingevoerde bestandsnaam gaan gebruiken?

[StevenK]

Wat dacht je van

Visual Basic:

    ActiveDocument.SaveAs FileName:="http://sharepoint/Kolonne 1/Document Library/" & strDocName, FileFormat:=wdFormatFilteredHTML 

ipv

Visual Basic:

    ActiveDocument.SaveAs FileName:="http://sharepoint/Kolonne 1/Document Library/strDocName", FileFormat:=wdFormatFilteredHTML