Открыть ворд файл - для редактирования

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

здравствуйте, делал миллион раз, правда давно))

Visual Basic

1	Documents.Open FileName:=f, ReadOnly:=True

в f у меня:
F:\Читальный зал.01.2021\12.rtf
говорит об ошибке 13-подскажите как правильно и как именно для редактирования, подзабыл? спс

Добавлено через 13 минут
проблема в пробеле пути к файлу, или в том, что ртф?

Добавлено через 4 часа 37 минут

Сообщение от Ципихович Эндрю

проблема в пробеле пути к файлу, или в том, что ртф

проверил-нет не в этом проблема, подскажите как нужно? спс

@КостяФедореев · 11.01.2021, 19:26

Ципихович Эндрю,
f как объявлена?

@Ципихович Эндрю · 11.01.2021, 19:29 **[ТС]**

As Object

Добавлено через 1 минуту
в коде есть-For Each f In fs
значит стрингом нельзя объявить....

@КостяФедореев · 11.01.2021, 19:31

Ципихович Эндрю, попробуйте =Str(f)

@Ципихович Эндрю · 11.01.2021, 19:32 **[ТС]**

на As Variant артачиться-вот новость

Добавлено через 1 минуту

Сообщение от Ципихович Эндрю

в коде есть-For Each f In fs
значит стрингом нельзя объявить...

и значит как?

@КостяФедореев · 11.01.2021, 19:33

Ципихович Эндрю, не каждый variant, eсть object

Добавлено через 37 секунд
=Str(f) попробуйте

@Ципихович Эндрю · 11.01.2021, 19:34 **[ТС]**

Сообщение от Ципихович Эндрю

Documents.Open FileName:=f

здесь?

@КостяФедореев · 11.01.2021, 19:37

Ципихович Эндрю,

Visual Basic

1	Documents.Open FileName:=Str(f), ReadOnly:=True

@Ципихович Эндрю · 11.01.2021, 19:43 **[ТС]**

убило , выложу, как есть, в чём я ошибаюсь?

Visual Basic

Option Explicit
'
Sub Выполнить()
 
'отключаем обновление - дёргание экрана при выполнении кода
    Application.ScreenUpdating = False
 
    'необходимо подключить библиотеку Microsoft Scripting Runtime, в Tools References
    Dim FSO As New Scripting.FileSystemObject
    Dim fr As Object
    Dim fs As Object
    Dim f As Object
    Dim objWrdDoc As Document
    Dim q As Long
    Dim Найдено As Long
    Dim NumberSelectionParagraphs As Long
    'Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
    Debug.Print ActiveDocument.FullName
    'Место_нахождения_файла = Replace$(ActiveDocument.FullName, ActiveDocument.Name, "")
    Debug.Print Replace$(ActiveDocument.FullName, ActiveDocument.Name, "")
    'Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)
    Debug.Print CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)
    'количество файлов в папке по адресу ..., если ответ получим Empty, значит, такой папки не существует
    'Количество_файлов_в_папке = CreateObject("Scripting.FileSystemObject").GetFolder(Папка).Files.Count
    Debug.Print CreateObject("Scripting.FileSystemObject").GetFolder(Replace$(ActiveDocument.FullName, ActiveDocument.Name, "")).Files.Count
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set fr = FSO.GetFolder(Replace$(ActiveDocument.FullName, ActiveDocument.Name, ""))
    Set fs = fr.Files
    For Each f In fs
        'Имя_файла_с_его_путём_и_расширением = f
        Debug.Print f
        'Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(f)
        Debug.Print CreateObject("Scripting.FileSystemObject").GetExtensionName(f)
        If LCase$(CreateObject("Scripting.FileSystemObject").GetExtensionName(f)) = "doc" Then    '"rtf" Then
            'Documents.Open(f, ReadOnly:=True, Visible:=True)
            Documents.Open FileName:=f, ReadOnly:=True
            'objWrdApp.Visible = False\True
            Debug.Print "Обрабатывается файл = " & objWrdDoc.FullName

Добавлено через 5 минут
ну если строки 34-36 заменить на

Visual Basic

1
2
3

 If LCase$(CreateObject("Scripting.FileSystemObject").GetExtensionName(f)) = "rtf" Then
            'Documents.Open(f, ReadOnly:=True, Visible:=True)
            Documents.Open FileName:=Str(f), ReadOnly:=True

то взрыв Ворда происходит....

I can · 11.01.2021, 20:18

Сообщение от Ципихович Эндрю

ReadOnly:=True

Открываешь файл только для чтения, и удивляешься почему нельзя редактировать?

Добавлено через 5 минут

Сообщение от КостяФедореев

попробуйте =Str(f)

Не вздумайте вставить в код. Потенциальный источник багов для некоторых товарищей.

@Ципихович Эндрю · 11.01.2021, 20:20 **[ТС]**

Сообщение от I can

редактировать

редактировать-как? вылетело с головы

Сообщение от I can

Открываешь файл

так не открыл ещё не разу-всему беда

Visual Basic

1	Option Explicit

раньше то без него у меня было))

I can · 11.01.2021, 20:32

Сообщение от КостяФедореев

Str(f)

Мало того, что используется для приведения числового выражения типа Long в строку(тип String), так еще и пробел добавляет в начало. А если скормить не число, то будет ошибка несоответствия типов.

Добавлено через 9 минут
Ципихович Эндрю,

Visual Basic

1	Documents.Open FileName:=trim(f)

@Ципихович Эндрю · 11.01.2021, 20:42 **[ТС]**

вроде заработало, откуда там пробелы?
а как будет для редактирования?

I can · 11.01.2021, 21:06

Сообщение от Ципихович Эндрю

а как будет для редактирования?

Это и есть для редактирования.

Добавлено через 39 секунд

Сообщение от Ципихович Эндрю

ReadOnly:=True

А это - только для чтения.

@Ципихович Эндрю · 12.01.2021, 09:04 **[ТС]**

понял, спс
наваждение какое-то вчера работало
сегодня на строке

Visual Basic

1	Set fld = fso.GetFolder(Replace$(ActiveDocument.FullName, ActiveDocument.Name, ""))

получаю ошибку 91-в чём может быть дело

Добавлено через 12 минут
с этим разобрался скажите на строки

Visual Basic

1 2	Debug.Print Len(Trim(fl)) Debug.Print Len(fl)

ответ один и тот же
но строка

Visual Basic

1	Documents.Open FileName:=Trim(fl)

открывает файл, а строка

Visual Basic

1	Documents.Open FileName:=fl

не открывает файл? вау....

~~badakhshan~~ · 12.01.2021, 10:13

Ципихович Эндрю, с новым годом.
Вы поймите, что
fl - это объект
fl.Path - это строка,
где Path - свойство fl по умолчанию
И если TRIM и LEN глотают это св-во из fl запросто - это не значит, что и Documents.Open это обязан делать...
Напишите

Visual Basic

1	Documents.Open FileName:=fl.Path

@Ципихович Эндрю · 12.01.2021, 12:57 **[ТС]**

Сообщение от Ципихович Эндрю

Option Explicit
раньше то без него у меня было))

сейчас с ним, выложу, а то вдруг мне или кому ещё понадобится:

Visual Basic

Option Explicit
'
Sub Выполнить()
 
'отключаем обновление - дёргание экрана при выполнении кода
    Application.ScreenUpdating = False
 
    'необходимо подключить библиотеку Microsoft Scripting Runtime, в Tools References
    Dim fso As New Scripting.FileSystemObject
    Dim fld As Scripting.Folder    'Folder-Папка
    Dim fl As Scripting.File    'File-Файл
    Dim q As Long
    Dim w As Long
    Dim Найдено As Long
    Dim Найденоsub As Long
    Dim Найденоsup As Long
    Dim NumberSelectionParagraphs As Long
    'Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
    'Debug.Print ActiveDocument.FullName
    'Место_нахождения_файла = Replace$(ActiveDocument.FullName, ActiveDocument.Name, "")
    'Debug.Print Replace$(ActiveDocument.FullName, ActiveDocument.Name, "")
    'Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)
    'Debug.Print CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)
    'количество файлов в папке по адресу ...
    'Debug.Print fso.GetFolder(Replace$(ActiveDocument.FullName, ActiveDocument.Name, "")).Files.Count
    Set fld = fso.GetFolder(Replace$(ActiveDocument.FullName, ActiveDocument.Name, ""))
    w = 0
    For Each fl In fld.Files
        w = w + 1
        'Имя_файла_с_его_путём_и_расширением = fl.Path
        'Debug.Print fl.Path
        'Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(fl.Path)
        'Debug.Print LCase$(CreateObject("Scripting.FileSystemObject").GetExtensionName(fl.Path))
         Documents.Open FileName:=fl.Path
         Debug.Print "Обрабатывается файл - " & ActiveDocument.FullName

.............................

и да почему то не сработало For Each fl In fld.Files и стало доки по кругу обрабатывать-зациклилось...
пришлось контролировать

Visual Basic

1
2
3

w = 0
    For Each fl In fld.Files
        w = w + 1

I can · 12.01.2021, 12:57

Сообщение от Ципихович Эндрю

Option Explicit

Извините, но по-моему Вы так и не усвоили зачем он нужен.

@Ципихович Эндрю · 12.01.2021, 12:58 **[ТС]**

Сообщение от I can

Извините, но по-моему Вы так и не усвоили зачем он нужен

в курсе

I can help 4253 / 3856 / 782 Регистрация: 13.04.2015 Сообщений: 8,531
	11.01.2021, 21:06	14
	Сообщение от Ципихович Эндрю а как будет для редактирования? Это и есть для редактирования. Добавлено через 39 секунд Сообщение от Ципихович Эндрю ReadOnly:=True А это - только для чтения. 2

@КостяФедореев Часто онлайн 864 / 579 / 263 Регистрация: 09.01.2017 Сообщений: 1,951
	11.01.2021, 19:26	2
	Ципихович Эндрю, f как объявлена? 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	11.01.2021, 19:29 [ТС]	3
	As Object Добавлено через 1 минуту в коде есть-For Each f In fs значит стрингом нельзя объявить.... 0

@КостяФедореев Часто онлайн 864 / 579 / 263 Регистрация: 09.01.2017 Сообщений: 1,951
	11.01.2021, 19:31	4
	Ципихович Эндрю, попробуйте =Str(f) 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	11.01.2021, 19:32 [ТС]	5
	на As Variant артачиться-вот новость Добавлено через 1 минуту Сообщение от Ципихович Эндрю в коде есть-For Each f In fs значит стрингом нельзя объявить... и значит как? 0

@КостяФедореев Часто онлайн 864 / 579 / 263 Регистрация: 09.01.2017 Сообщений: 1,951
	11.01.2021, 19:33	6
	Ципихович Эндрю, не каждый variant, eсть object Добавлено через 37 секунд =Str(f) попробуйте 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	11.01.2021, 19:34 [ТС]	7
	Сообщение от Ципихович Эндрю Documents.Open FileName:=f здесь? 0

I can help 4253 / 3856 / 782 Регистрация: 13.04.2015 Сообщений: 8,531
	11.01.2021, 20:18	10
	Сообщение от Ципихович Эндрю ReadOnly:=True Открываешь файл только для чтения, и удивляешься почему нельзя редактировать? Добавлено через 5 минут Сообщение от КостяФедореев попробуйте =Str(f) Не вздумайте вставить в код. Потенциальный источник багов для некоторых товарищей. 1

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	11.01.2021, 20:42 [ТС]	13
	вроде заработало, откуда там пробелы? а как будет для редактирования? 0

I can help 4253 / 3856 / 782 Регистрация: 13.04.2015 Сообщений: 8,531
	12.01.2021, 12:57	18
	Сообщение от Ципихович Эндрю Option Explicit Извините, но по-моему Вы так и не усвоили зачем он нужен. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,715
	12.01.2021, 12:58 [ТС]	19
	Сообщение от I can Извините, но по-моему Вы так и не усвоили зачем он нужен в курсе 0