vbstreets конференция - тема гледка - word2018
Алибек написал (а): Какво е този герой?
Тя трябва да бъде задължително. Не може един, а комбинация от няколко такива vbCrLf.
И когато попитах, той имаше предвид възможността, когато страниците са разделени от разделител на страница (не знам как точно се нарича). Друго нещо е, че без него може да бъде много страници документ.
Никога не съм работил в Словото и по принцип няма нищо не знам. Може ли някой да напише най-лесният вариант за файл "C: \ test.rtf", за да знаем колко страници (разделени със запетая страници). След това той трябва да бъде в skonvertit vordovsky .doc
Аз разбирам, че вие трябва да отворите Уорд, разберете колко страници са в него и да го запишете под друго име като .doc
Тези файлове са много, разпръснати в различни папки, и те са як, че ръчно zababahat да се работи с тях. Но броят на страниците, които искате да се знае точно, защото всяка страница - това е документ на хартиен носител.
Конвертиране в док, можете да, но защо трябва да знае броя на страниците? Какво да правим с тази информация?
По-добре е да се губят на ден - и след това да лети в продължение на пет минути!
igor_m написал (а): Не трябва да има задължително. Не може един, а комбинация от няколко такива vbCrLf.
Кой трябва?
Е символ на "разделяне на страница".
Символ "разделител на страница" не се случи, тъй като номерацията на страниците могат да бъдат автоматизирани.
Lasciate Ogni Speranza, VOI ch'entrate.
viter.alex написал (а): Конвертиране на док, можете да, но защо да се знае броя на страниците? Какво да правим с тази информация?
Тя ще бъде по-добре, отколкото помогна ред абстрактни въпроси да зададете. Без помощ, аз прекарват много време и усилия за това да се справи с всичко това. Като цяло, все още има нужда да правите промени на определено място на всяка страница, но аз със сигурност ще се разбере.
igor_m написал (а): Това ще бъде по-добре, отколкото помогна ред абстрактни въпроси да зададете.
"Прозорец за избор на файл
С Application.FileDialog (msoFileDialogFilePicker)
"Диалоговия Заглавие
.Заглавие = "Изберете RTF файлове"
"Можете да изберете няколко файла
.AllowMultiSelect = True
"файлови разширения, които могат да бъдат избирани
.Filters.Add "RTF", "* .rtf"
Ако .Show Тогава
"Ако кликнете ОК в диалоговия прозорец
"Пътят към лог файл
sLogFilePath = .InitialFileName "Log.txt"
"Изключването актуализиране екран
Application.ScreenUpdating = False
"Скриване на заявлението
Application.Visible = False
"Повтаряйте пътеки до избрани файлове
За I = 1 да .SelectedItems.Count
sFilePath = .SelectedItems (I)
"Отворете файла
С Documents.Open (sFilePath, ConfirmConversions: = False, ReadOnly: = True, AddToRecentFiles: = False)
"Запазете го в док
.SaveAs2 средата (sFilePath, 1, InStrRev (sFilePath ".")) "Док", 0, AddToRecentFiles: = False
"Принудени да промените дяловете на страница
.преномериране
"Пишем в лог файл
FixInLogFile sLogFilePath. FullName vbTab .BuiltInDocumentProperties (wdPropertyPages) "П."
"Затваряне на файл и да запазите промените
.Близо True
завършва с
до
Крайна сметка, ако
завършва с
"Отваряне на лог файла в Notepad
Shell Environ ( "SystemRoot") "\ Notepad.exe" "" sLogFilePath "" ""
End Sub
"Запис на промените в лог файл
Под FixInLogFile (sLogFilePath Както стринга, sMessage Както стринга)
Отворете sLogFilePath За Добавяне Както # 1
Print # 1, sMessage
Затвори # 1
End Sub
По-добре е да се губят на ден - и след това да лети в продължение на пет минути!