vbstreets Conference - vizualizare tema - word2018

Alibek a scris (a): Ce are acest caracter?

Ar trebui să fie obligatorie. Nu se poate una, ci o combinație de mai multe astfel de vbCrLf.
Și când l-am întrebat, a fost referindu-se la opțiunea când paginile sunt separate printr-un separator de pagină (nu știu cum corect este numit). Un alt lucru este că fără ea poate fi document cu mai multe pagini.

N-am lucrat în Cuvântul și, în general, nu este nimic eu nu știu. Poate cineva scrie cea mai ușoară opțiune pentru fișierul „C: \ test.rtf“ pentru a ști cât de multe pagini (pagini separate prin virgulă). Apoi, aceasta trebuie să fie în .doc vordovsky skonvertit
Înțeleg că aveți nevoie pentru a deschide Ward, pentru a afla cât de multe pagini se află în ea și salvați-l sub un alt nume ca .doc
Aceste fișiere sunt multe, împrăștiate în dosare diferite, iar acestea sunt voinic, care zababahat manual, pentru a lucra cu ei. Dar numărul de pagini pe care doriți să știți exact, pentru că fiecare pagină - acesta este un document de hârtie.

Conversia la doc, poate, dar de ce ar trebui să știe numărul de pagini? Ce se poate face cu aceste informații?

Este mai bine să-și piardă o zi - și apoi zbura timp de cinci minute!

igor_m a scris (a): Nu ar trebui să fie obligatorie. Nu se poate una, ci o combinație de mai multe astfel de vbCrLf.

Cine ar trebui?
Este un simbol al „break pagina.“
Simbolul „pagina de separare“ nu se întâmplă, deoarece paginația pot fi automatizate.

Speranza Ogni Lasciate, ch'entrate Voi.

viter.alex a scris (a): Conversia la doc, puteți, dar de ce să se cunoască numărul de pagini? Ce se poate face cu aceste informații?

Ar fi mai bine ajutat promptă decât întrebări abstracte pentru a cere. Fără ajutor, îmi petrec o mulțime de timp și efort pe ea să se ocupe de toate astea. În general, este încă nevoie pentru a face modificări într-o anumită locație pe fiecare pagină, dar nu mă voi înțelege cu siguranță.

igor_m a scris (a): Ar fi mai bine ajutat promptă decât întrebări abstracte pentru a cere.

„Dialog Selectare fișier
Cu Application.FileDialog (msoFileDialogFilePicker)
„Dialog Titlu
.Title = "Selectați fișierele" rtf
„Puteți selecta mai multe fișiere
.AllowMultiSelect = Adevărat
„Extensii de fișiere care pot fi selectate
.Filters.Add "RTF", "* .rtf"

Dacă .Show Atunci
„Dacă faceți clic pe OK în caseta de dialog
„Calea către fișierul istoric
sLogFilePath = .InitialFileName "Log.txt"
„Dezactivarea actualizarea ecranului
Application.ScreenUpdating = False
„Ascundeți aplicația
Application.Visible = false
„căi itera pentru fișierele selectate
Pentru i = 1 Pentru .SelectedItems.Count
sFilePath = .SelectedItems (i)
„Deschideți fișierul
Cu Documents.Open (sFilePath, ConfirmConversions: = false, Readonly: AddToRecentFiles = true,: = False)
„Salvați-l doc
.SaveAs2 Mid (sFilePath, 1, InStrRev (sFilePath, "")) "Doc", 0, AddToRecentFiles: = false
„Forțată să repartiționarea pagina
.Repaginate
„Am scrie într-un fișier jurnal
FixInLogFile sLogFilePath. FULLNAME vbTab .BuiltInDocumentProperties (wdPropertyPages) "P."
„Închideți fișierul și salvați modificările
.Închide Adevărat
Cu End
următor
End If
Cu End
„Deschideți fișierul jurnal în Notepad
Shell Environ ( "SystemRoot") "\ Notepad.exe" "" sLogFilePath „“ „“
end Sub

„Înregistrarea modificărilor la fișierul jurnal
Sub FixInLogFile (sLogFilePath Ca String, sMessage ca șir)
Deschideți sLogFilePath Pentru Append Ca # 1
Print # 1, sMessage
Închide # 1
end Sub

Este mai bine să-și piardă o zi - și apoi zbura timp de cinci minute!