Автоматический перенос на 2 строки вниз в конце каждой строки документа

@letrix174 · Регистрация: 09.11.2015

Доброго времени суток. Работаю с архивом фотографий, есть вакуумная директория с N-ым кол-вом файлов, имена которых я через командную строку получаю в виде текстового документа, который представляет из себя столбец названий файлов в данной директории. Затем я переношу этот столбец в ворд, и вручную добавляю после каждой строки 2 переноса (enter-ом). Первый перенос служит зарезервированным местом для комментария к фотографии в документе, во второй перенос добавляется сама фотография.

Вопрос состоит в следующем - можно ли использовать какой-нибудь скрипт, который в выделенном тексте после каждой строки будет добавлять 2 переноса перед следующей строкой?
Так же хотелось бы узнать - можно ли скриптом массово загружать фотографии в нужные места документа? сейчас просто перетягиваю мышкой на нужное положение в документе, но таких фотографий могут быть тысячи

Более наглядный пример того, что я хотел бы получить на выходе - прикладываю в аттач.

Кликните здесь для просмотра всего текста

Автоматический перенос на 2 строки вниз в конце каждой строки документа

@aequit · 10.02.2020, 12:34

letrix174, здравствуйте!
С такими примерами лучше обращаться на форумы по фотошопу. Если Вы не ошиблись и действительно хотите получить решение по теме этого раздела форума (VBA), приложите нормальный пример того, что необходимо получить, максимально его сделав похожим на желаемое (в виде полностью заполненного и оформленного файла).
Также приложите штук 5-10 фотографий без персональных данных и конфиденциальной информации (похожих на те, которые Вы реально загружаете в файл). Лучше упаковать их в rar или 7zip, соблюдая ограничения размеров файлов, принятые на форуме. Также необходимо указать имя папки (например, "c:\Images"), откуда будут загружаться фотки или Вы будете указывать каждый раз новую папку после запуска макроса. В этом случае мне было бы интересно решить эту задачу. Возможно, уже сегодня вечером, если никто не возьмется.

Или ждите, что кто-либо сделает это по размытой картинке.

@letrix174 · 10.02.2020, 13:22 **[ТС]**

Спасибо за отклик, aequit

Попытаюсь объяснить более развернуто, используя пример, который прикреплю к сообщению.
На рабочем столе есть папка "cats" ("C:\Users\letrix\OneDrive\Рабочий стол\cats", нахождение папки может меняться, но если нужно - может быть использован корень любого диска), в которой имеется 8 фотографий. Используя Shift+ПКМ на этой папке я вызываю контекстное меню, в котором открываю окно команд, и ввожу следующую команду: "dir /b> text.txt". В папке "cats" генерируется файл под названием text.txt с перечнем всех файлов в каталоге. Эти данные я переношу в Word и подготавливаю их для дальнейших манипуляций. В конце каждой строки я 2 раза нажимаю клавишу Enter, тем самым создаю 2 переноса на новую строку, от прошлой строки с названием до следующей. Первый перенос строки в готовом документе оставляется пустым, и в дальнейшем используется для добавления комментария к каждой фотографии, которая будет в нем находиться. В следующий отступ я перетаскиваю саму фотографию из папки, в том же порядке, в каком получаю файл text.txt после манипуляций с командной строкой.

Вот примерный алгоритм моих действий

А вопрос остается прежним - можно ли автоматизировать эти переносы на следующую строку 2 раза подряд в конце прошлой строки с текстом в выделенном фрагменте или сразу во всем документе?

Нужна вся эта эпопея для структурирования фото архива, сбора комментариев к фотографиям (имена, локации, года, etc.) и передачи для согласования всех данных. Если есть идея, как это можно реализовать проще и доступнее - готов выслушать, ибо чем дальше в лес - тем больше фоток

под спойлером: архив с примерами.

Кликните здесь для просмотра всего текста

cats.rar
Win10, x64, пакет Office 2013 (если это имеет значение

)

@aequit · 10.02.2020, 16:29

Никаких текстовиков и других ненужных манипуляций не нужно. Нужны только котики

Котики должны лежать в папке c:\cats\
Финальный файл сохраняется в эту же папку.
Для запуска макроса сделайте ярлычок в панели быстрого доступа.

Кликните здесь для просмотра всего текста

Visual Basic

Sub AddPic()
Dim a&, sFolder$, Комментарий$, n&, FileName$
Dim z As Selection
Dim wd As Word.Document
Set z = Selection
n = 1
sFolder = "C:\cats\"
Set wd = ThisDocument
'диалог запроса выбора папки с файлами
'With Application.FileDialog(msoFileDialogFolderPicker)
'    If .Show = False Then Exit Sub
'    sFolder = .SelectedItems(1)
'End With
'sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
 
Application.ScreenUpdating = False
    
wd.Range.Delete
wd.PageSetup.LeftMargin = CentimetersToPoints(2)
z.ParagraphFormat.TabStops.ClearAll
z.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(0.75), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces
z.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
Selection.ParagraphFormat.SpaceBefore = 0
Selection.ParagraphFormat.SpaceAfter = 0
Selection.ParagraphFormat.FirstLineIndent = 0
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
z.Font.Name = "Arial"
z.Font.Size = 12
 
z.TypeText "Cats" & Chr(13)
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.TypeParagraph
z.Font.Size = 10.5
 
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Комментарий = "Комментарий к фото."
    
FileName = Dir(sFolder & "*.jpg")
Do While FileName <> ""
    z.TypeText n & ")" & Chr(9) & FileName & Chr(13)
    z.TypeText Комментарий & Chr(13)
    wd.InlineShapes.AddPicture FileName:=sFolder & FileName, LinkToFile:=False, _
        SaveWithDocument:=True
    wd.InlineShapes(n).Width = Application.CentimetersToPoints(5.19)
    wd.InlineShapes(n).Height = Application.CentimetersToPoints(2.88)
    n = n + 1
    z.MoveDown Unit:=wdParagraph, Count:=1
    z.TypeParagraph
    FileName = Dir
Loop
 
FileName = sFolder & "Котики" & " (#" & Int(1 + (Rnd() * 1000)) & ").docx"
wd.SaveAs FileName:=FileName, FileFormat:=wdFormatXMLDocument
Application.ScreenUpdating = True
End Sub

@letrix174 · 10.02.2020, 17:15 **[ТС]**

aequit, Вы даже не представляете, как я Вам благодарен! Это именно то, что было нужно)
Огромнейшее вам спасибо, теперь даже повеситься не хочется от масштабов!

З.Ы. 1.5к фоток за 2 минуты, ну не прелесть?

@letrix174 0 / 0 / 0 Регистрация: 09.11.2015 Сообщений: 4
		1
	Word Автоматический перенос на 2 строки вниз в конце каждой строки документа 10.02.2020, 09:57. Просмотров 1113. Ответов 4 Метки нет (Все метки) Доброго времени суток. Работаю с архивом фотографий, есть вакуумная директория с N-ым кол-вом файлов, имена которых я через командную строку получаю в виде текстового документа, который представляет из себя столбец названий файлов в данной директории. Затем я переношу этот столбец в ворд, и вручную добавляю после каждой строки 2 переноса (enter-ом). Первый перенос служит зарезервированным местом для комментария к фотографии в документе, во второй перенос добавляется сама фотография. Вопрос состоит в следующем - можно ли использовать какой-нибудь скрипт, который в выделенном тексте после каждой строки будет добавлять 2 переноса перед следующей строкой? Так же хотелось бы узнать - можно ли скриптом массово загружать фотографии в нужные места документа? сейчас просто перетягиваю мышкой на нужное положение в документе, но таких фотографий могут быть тысячи Более наглядный пример того, что я хотел бы получить на выходе - прикладываю в аттач. Кликните здесь для просмотра всего текста 0

@aequit 223 / 134 / 45 Регистрация: 08.09.2012 Сообщений: 279 Записей в блоге: 1
	10.02.2020, 12:34	2
	letrix174, здравствуйте! С такими примерами лучше обращаться на форумы по фотошопу. Если Вы не ошиблись и действительно хотите получить решение по теме этого раздела форума (VBA), приложите нормальный пример того, что необходимо получить, максимально его сделав похожим на желаемое (в виде полностью заполненного и оформленного файла). Также приложите штук 5-10 фотографий без персональных данных и конфиденциальной информации (похожих на те, которые Вы реально загружаете в файл). Лучше упаковать их в rar или 7zip, соблюдая ограничения размеров файлов, принятые на форуме. Также необходимо указать имя папки (например, "c:\Images"), откуда будут загружаться фотки или Вы будете указывать каждый раз новую папку после запуска макроса. В этом случае мне было бы интересно решить эту задачу. Возможно, уже сегодня вечером, если никто не возьмется. Или ждите, что кто-либо сделает это по размытой картинке. 1

@letrix174 0 / 0 / 0 Регистрация: 09.11.2015 Сообщений: 4
	10.02.2020, 13:22 [ТС]	3
	Спасибо за отклик, aequit Попытаюсь объяснить более развернуто, используя пример, который прикреплю к сообщению. На рабочем столе есть папка "cats" ("C:\Users\letrix\OneDrive\Рабочий стол\cats", нахождение папки может меняться, но если нужно - может быть использован корень любого диска), в которой имеется 8 фотографий. Используя Shift+ПКМ на этой папке я вызываю контекстное меню, в котором открываю окно команд, и ввожу следующую команду: "dir /b> text.txt". В папке "cats" генерируется файл под названием text.txt с перечнем всех файлов в каталоге. Эти данные я переношу в Word и подготавливаю их для дальнейших манипуляций. В конце каждой строки я 2 раза нажимаю клавишу Enter, тем самым создаю 2 переноса на новую строку, от прошлой строки с названием до следующей. Первый перенос строки в готовом документе оставляется пустым, и в дальнейшем используется для добавления комментария к каждой фотографии, которая будет в нем находиться. В следующий отступ я перетаскиваю саму фотографию из папки, в том же порядке, в каком получаю файл text.txt после манипуляций с командной строкой. Вот примерный алгоритм моих действий А вопрос остается прежним - можно ли автоматизировать эти переносы на следующую строку 2 раза подряд в конце прошлой строки с текстом в выделенном фрагменте или сразу во всем документе? Нужна вся эта эпопея для структурирования фото архива, сбора комментариев к фотографиям (имена, локации, года, etc.) и передачи для согласования всех данных. Если есть идея, как это можно реализовать проще и доступнее - готов выслушать, ибо чем дальше в лес - тем больше фоток под спойлером: архив с примерами. Кликните здесь для просмотра всего текста cats.rar Win10, x64, пакет Office 2013 (если это имеет значение ) 0

@letrix174 0 / 0 / 0 Регистрация: 09.11.2015 Сообщений: 4
	10.02.2020, 17:15 [ТС]	5
	aequit, Вы даже не представляете, как я Вам благодарен! Это именно то, что было нужно) Огромнейшее вам спасибо, теперь даже повеситься не хочется от масштабов! З.Ы. 1.5к фоток за 2 минуты, ну не прелесть? 0

Опции темы

Автоматический перенос на 2 строки вниз в конце каждой строки документа

Решение