Jak zapisać w formacie doc ?? Jak moge zapisać swój plik w formacie doc(worda) ?
02-09-2004 19:39
bisiek
Typ: neutral Postów: 487 Zarejestrowany: Jul 2003
Nie da się - musiałbyś mieć kontrolkę która to umożliwia, albo znać strukturę plików .doc. _____________________________________________www.mob.abc.pl - moja strona o VB
02-09-2004 21:04
3380672
losmac "profesorek"
Typ: neutral Postów: 758 Zarejestrowany: May 2003
Normalnie... Najpierw do projektu dołącz bibliotekę odpowiadającą za wersję Word'a, której chcesz użyć (Tools->References->MS Word..Object Library).Podany poniżej przykład nie zapewnia Ci formatowania, ale zawsze to już coś. Możesz uzupełnić to o formatowanie czcionki, akapitu itd, itp.Podany przykład pokazuje jak zrobić to w Excelu.Option ExplicitSub SaveAsWord()Dim wrdApp As Word.ApplicationDim wrdDoc As Word.DocumentDim wrdRng As Word.RangeDim i As LongOn Error GoTo Err_SaveAsWordSet wrdApp = CreateObject("Word.Application"Set wrdDoc = wrdApp.Documents.AddSet wrdRng = wrdDoc.RangewrdRng.Selecti = 1Do While ThisWorkbook.Worksheets(1).Range("A" & i) <> "" wrdApp.Selection.TypeText ThisWorkbook.Worksheets(1).Range("A" & i) wrdApp.Selection.TypeParagraph wrdApp.Selection.Select i = i + 1LoopwrdApp.Visible = TrueExit_SaveAsWord: On Error Resume Next Set wrdRng = Nothing Set wrdDoc = Nothing Set wrdApp = Nothing Exit SubErr_SaveAsWord: MsgBox Err.Description, vbExclamation, Err.Number Resume Exit_SaveAsWordEnd Sub _____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś
02-09-2004 21:57
JoFerrari
Typ: neutral Postów: 75 Zarejestrowany: Apr 2003
Mozesz zapisac w formacie *.rts czy cos takiego za pomoca richtextbox'a . Format ,jak dla mnie, jest identyczny jak Doc. Word w kazdym razie czyta go tak samo. Ten format rowniez jest przypisany jako domyslne rozszezenie dla Word'a
07-09-2004 12:53
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20