Vba word название файла

Sub ShowFilename()
Dim pathName As String
Dim o As Document
Set o = ActiveDocument
If InStrRev(o.Name, ".") <> 0 Then
    MsgBox Left(o.Name, InStrRev(o.Name, ".") - 1)
Else
    MsgBox o.Name
End If
End Sub

I initially posted this without the if, which would error if the file had never been saved, or had no extension.

answered Jul 19, 2012 at 16:15

Yeish, I wouldn’t do it like that!

Hypothetically, you have a whole folders worth of word and you don’t need the extensions, you just want the names. What you would do is go through the word docs and parse them through this function with the type of extension you want removed from the file name

Function removeExtension(myDoc as Document, extension as String)
Dim documentWithoutExtension as String

documentWithoutExtension = replace(myDoc.Name, extension, "")

removeExtension = documentWithoutExtension

End Function

This one works for me.

Sub ShowFilename()
MsgBox ActiveWindow.Parent
End Sub

answered Oct 4, 2017 at 23:56

An easy way would be:

Sub Test1()
Dim DocName As Document
Set DocName = ActiveDocument
end sub

Администратор

• Administrator
• Сообщения: 2,252
• Записан

В ворде есть такое понятие «абзац». Слышали об этом?
В конце абзаца есть невидимый символ «знак абзаца», который видно, когда включён режим непечатаемых символов?

Администратор

• Administrator
• Сообщения: 2,252
• Записан

Может быть удобнее будет извлекать данные не из первой строки, а из первого абзаца?
В ворде со строками из макроса сложнее работать, чем с абзацами, т.к. в VBA нет объекта «строка файла», но есть объект «абзац».

Администратор

• Administrator
• Сообщения: 2,252
• Записан

Тогда вам нужно извлечь данные из первого абзаца файла, например, в переменную, а затем переменную вы сможете подставить туда, куда надо.

Sub макрос()

    Dim var

        ‘ Копирование первого абзаца из активного файла в переменную «var».
    var = ActiveDocument.Paragraphs(1).Range.Text

        ‘ Удаление из переменной знака абзаца.
    var = Left(var, Len(var) — 1)

End Sub

Администратор

• Administrator
• Сообщения: 2,252
• Записан

На конце абзаца есть символ «знак абзаца», он может помешать, а может нет, надо тестировать.
Поэтому может быть сначала потребуется записать текст абзаца в переменную, чтобы удалить знак абзаца, а затем уже подставляйте переменную в нужное место.