Wpis z mikrobloga

Mircy, w przerwie emocjonującego meczu, może mi ktoś powiedzieć jak w Wordzie w #vba zapisać do zmiennej pierwszą linię tekstu na pierwszej stronie? Mam kod w vba, który drukuje do PDF oddzielnie kolejne strony z pliku i chciałbym, żeby każdy plik nazywał się jak pierwsza linijka tej strony(albo jej część). Drukowanie działa, ale zapisuje jako ustaloną nazwę z kolejnym numerkiem.
#office #kiciochpyta #komputery
  • 1
@bisqik:

W każdej iteracji zmienna FirstLine to pierwszy wiersz na stronie:

Dim FirstLine As Range

ActiveDocument.Range(0, 0).Select

Application.Browser.Target = wdBrowsePage

For i = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")

Selection.MoveEnd wdLine

Set FirstLine = Selection.Range

Application.Selection.EndOf
Application.Browser.Next

Next