Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Word => Thema gestartet von: ickebins0815 am November 23, 2014, 17:06:49 Nachmittag

Titel: Dicke Punkte im Dateinamen (Makro erstellt)
Beitrag von: ickebins0815 am November 23, 2014, 17:06:49 Nachmittag

Hallo Gemeinde,

dachte eigentlich das ich mein Problem alleine gelöst bekomme..., dachte ich aber nur.
Ich habe ein Makro erstellt um den Dokumenten einen Dateinamen aus 2 Textfeldern automatisch beim speichern zu geben.
Soweit so gut. Leider habe ich in dem erzeugten Dateinamen am Ende des jeweiligen Namen aus dem Textfeld einen dicken Punkt dahinter.
Das stört insofern das ich jedesmal diese Punkte erst entfernen muss bevor ich speichern kann.
Kennt das jemand und kann mir helfen diese Punkte zu entfernen ohne manuelles löschen in der "Speichern unter" Prozedur?
Anbei das Makro und der "Quälgeist"
Ich danke schon mal fürs lesen und überlegen.

Sub FileSave()

    If ActiveDocument.Path = "" Then
        FileSaveAs
        Exit Sub
    End If
    ActiveDocument.Save

End Sub
Sub FileSaveAs()

Dim DocName As String

    If ActiveDocument.Bookmarks.Exists("anlage") = True Then
        DocName = ActiveDocument.Bookmarks("anlage") & " - " & ("datum")
    Else
        DocName = ActiveDocument.Name
    End If

    With Dialogs(wdDialogFileSaveAs)
        .Name = DocName
        .Show
    End With

End Sub

Titel: Antw: Dicke Punkte im Dateinamen (Makro erstellt)
Beitrag von: maninweb am November 24, 2014, 09:31:38 Vormittag

Hallo ickebins0815,

es wäre einfacher, wenn Du den Code statt einem Bild vom Code hier rein stellen würdest.
Abtippen - auch wenn der Code kurz ist - macht unnötigen Aufwand.

Ungetestet, versuche mal .Name = Replace(DocName,Chr(149),"")

Gruß

Titel: Antw: Dicke Punkte im Dateinamen (Makro erstellt)
Beitrag von: ickebins0815 am November 24, 2014, 19:10:22 Nachmittag

Hallo Maninweb,

Zitat

es wäre einfacher, wenn Du den Code statt einem Bild vom Code hier rein stellen würdest.
Abtippen - auch wenn der Code kurz ist - macht unnötigen Aufwand.

Sorry.
Hier dein Vorschlag mit Ergebnis...leider negativ.
___________________________________________

Sub FileSave()

    If ActiveDocument.Path = "" Then
        FileSaveAs
        Exit Sub
    End If
    ActiveDocument.Save

End Sub
Sub FileSaveAs()

Dim DocName As String

    If ActiveDocument.Bookmarks.Exists("app") = True Then
        DocName = ActiveDocument.Bookmarks("app").Range.Text & " - " & ActiveDocument.Bookmarks("name").Range.Text
    Else
        DocName = ActiveDocument.Name
    End If

    With Dialogs(wdDialogFileSaveAs)
        .Name = Replace(DocName, Chr(149), "")
        .Show
    End With

End Sub