VBA.Mania

Option Explicit
    Public Rezygnuje
    Public Strona

Sub Tekst()
'
'
Dim objNetwork
Set objNetwork = CreateObject("WScript.Network")

Dim Korekta As String
    Korekta = "\\10.0.5.22\korekta"
Dim Kopia As String
    Kopia = "\\10.0.3.22\zkopia"

objNetwork.MapNetworkDrive "", Kopia, , "user", "haslo"
objNetwork.MapNetworkDrive "", Korekta, , "user2", "haslo2"

Dim SrcName As String
    SrcName = ActiveDocument.Name

UserForm1.TextBox1.Text = SrcName
UserForm1.Show

'Jeśli nie wybrano przycisku "wyjście" to
If Rezygnuje <> "R" Then

    Dim Nazwa As String
        Nazwa = UserForm1.TextBox1.Text

    Dim SciezkaKor As String
        SciezkaKor = Korekta + "\" + Strona + "\"
    Dim DstNameKor As String
        DstNameKor = SciezkaKor + Nazwa

    ChangeFileOpenDirectory SciezkaKor
    ActiveDocument.SaveAs FileName:=DstNameKor, _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False

    Dim SciezkaKop As String
        SciezkaKop = Kopia + "\" + Strona + "\"
    Dim DstNameKop As String
        DstNameKop = SciezkaKop + Nazwa

    ChangeFileOpenDirectory SciezkaKop
    ActiveDocument.SaveAs FileName:=DstNameKop, _
        FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False

    ActiveDocument.Close
    ChangeFileOpenDirectory "h:\"
End If
objNetwork.RemoveNetworkDrive Korekta
objNetwork.RemoveNetworkDrive Kopia
End Sub

Option Explicit

Private Sub UserForm_Initialize()
    Rezygnuje = ""
End Sub

Private Sub R_Click()
    Rezygnuje = "R"
    UserForm1.Hide
End Sub

Private Sub S1_Click()
    Strona = "01"
    UserForm1.Hide
End Sub

Private Sub S2_Click()
    Strona = "02"
    UserForm1.Hide
End Sub

Private Sub S3_Click()
    Strona = "03"
    UserForm1.Hide
End Sub

Private Sub S4_Click()
    Strona = "04"
    UserForm1.Hide
End Sub

Private Sub S5_Click()
    Strona = "05"
    UserForm1.Hide
End Sub

Private Sub S6_Click()
    Strona = "06"
    UserForm1.Hide
End Sub

Private Sub SW_Click()
    Strona = "swiat"
    UserForm1.Hide
End Sub

Private Sub WW_Click()
    Strona = "wies"
    UserForm1.Hide
End Sub