VBA oversæter / til _

Navn = "Faktura_1"
Firma = "TDC A/S"
Mappe = replace(replace(Firma,"/","_")," ","_")

Gem = " C:\data\" & mappe &"\" & navn &".xls"

Public Sub test()
Dim Navn As String, Firma As String, Mappe As String
Navn = "Faktura_1" ' det kan også henvise til en celle
Firma = "TDC A/S" ' det kan også henvise til en celle
Mappe = Replace(Replace(Firma, "/", "_"), " ", Chr(160)) ' erstatter / med _ og mellemrum med hårdt mellemrum

Application.ActiveWorkbook.SaveAs " C:\data\" & Mappe & "\" & Navn & ".xls" ' gemmer
End Sub

Hej Kabbak

Hvis jeg for står det rigtig så for du excel til at over sætte / til _ eller hved?

Det dokument jeg snakker, er i word. Jeg er ikke helt med på  hvad jeg skal gøre?

Jeg mener at VBA selv kan oversætte / til _ men er ikke sikker.

det er faktisk det samme om det er word eller excel,bare lidt anden kodning

Public Sub GemSom()
    Dim Navn As String, Firma As String, Mappe As String
    Navn = ThisDocument.TextBox1    ' Navn på filen
    Firma = ThisDocument.TextBox2    ' Firma = bibliotek
    Mappe = Replace(Replace(Firma, "/", "_"), " ", Chr(160))    ' erstatter / med _ og mellemrum med hårdt mellemrum
    If Dir("C:\data\" & Mappe, vbDirectory) = "" Then    'hvis ikke mappen findes, laves den
        MkDir ("C:\data\" & Mappe)
    End If
    ActiveDocument.SaveAs FileName:="C:\data\" & Mappe & "\" & Navn & ".doc", FileFormat:=wdFormatDocument, _
                          LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
                                                                                  :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
                          SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
                          False
End Sub

hvordan går det ??