Сохранение документа Word из Excel

@ASSEI · Регистрация: 18.10.2012

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

Ребята не пойму почему не сохраняется документ в папку:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objWrdApp As Object
Dim objWrdDoc As Object
Dim F$
Dim iPath$
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
    On Error Resume Next
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
             Set objWrdDoc = objWrdApp.Documents.Open(App.Path & "\МФО.docm")
            objWrdApp.Visible = True
With objWrdDoc
    .Bookmarks("полноеимяорг").Range.Text = CStr(Cells(Selection.Rows.Row, 12).Value)
End With
F$ = App.Path & "\Вывод\"
    objWrdDoc.SaveAs F$ & CStr(Cells(Selection.Rows.Row, 12).Value) & ".doc"
        objWrdApp.Quit
End If
End If
End Sub

@ASSEI · 19.05.2020, 21:54 **[ТС]**

меня пугают отступы после имени их встретилось так много!

Добавлено через 4 минуты
к стати встречается перенос строки, как он обозначается?

@pashulka · 19.05.2020, 22:09

ASSEI, Если речь идёт о пробелах в начале и конце текста, то строка# 9

Visual Basic
1
txt = Trim(CStr(Target(1, 12)))

Переносы :

Visual Basic
1
vbLf, vbCr, vbCrLf, vbNewLine

Но достаточно к константе добавить только + vbLf и перебрать 11 символов.

@ASSEI · 19.05.2020, 22:11 **[ТС]**

я так понимаю в строку

Visual Basic
1
Const trash = "/\?:*""""<>|"

применить переносы только не понял как

Visual Basic
1
Const trash = "/\?:*""""<>| vbNewLine"

@pashulka · 19.05.2020, 22:14

я же Вам написал и про количество символов не забудьте.

Visual Basic
1
Const trash = "/\?:*""""<>|" + vbLf

@ASSEI · 19.05.2020, 22:19 **[ТС]**

про + то я и не понял , спасибо огромное за помощь!

@pashulka · 19.05.2020, 22:20

При желании + можно заменить на &

Новые блоги и статьи Все статьи Все блоги /
Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф	Вангую, что это не пройдёт модерацию, и на неделе я запущу свой сервер. Hrethgir 19.07.2026 Эта публикация сейчас в песочнице и ждёт приглашения. https:/ / habr. com/ ru/ sandbox/ 295048/ начало и оглавление - Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование. . .	сукцессия 33. открытые вопросы от клауде anaschu 19.07.2026 "Что накопилось за эту часть А — тринадцать правок, из которых шесть пришли из ваших вопросов и каждая оказалась реальной ошибкой, а не калибровкой: односторонний симбиоз, отсутствующий листопад,. . .
32 сукцессия anaschu 19.07.2026 сукцессия 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не «подкручивает» сходимость —. . .	сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .	Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	19.05.2020, 21:54 [ТС]
	меня пугают отступы после имени их встретилось так много! Добавлено через 4 минуты к стати встречается перенос строки, как он обозначается? 0

@ASSEI 0 / 1 / 3 Регистрация: 18.10.2012 Сообщений: 662
	19.05.2020, 22:19 [ТС]
	про + то я и не понял , спасибо огромное за помощь! 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	19.05.2020, 22:20
	При желании + можно заменить на & 1