Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak zapisać w formacie doc ??
Nowy




Typ: neutral
Postów: 21
Zarejestrowany: Aug 2004
Jak zapisać w formacie doc ??

Jak moge zapisać swój plik w formacie doc(worda) ?

02-09-2004 19:39
Pokaż profil Nowy  Wyślij email do Nowy   
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
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       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 Explicit

Sub SaveAsWord()

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim wrdRng As Word.Range
Dim i As Long

On Error GoTo Err_SaveAsWord

Set wrdApp = CreateObject("Word.Application"
Set wrdDoc = wrdApp.Documents.Add
Set wrdRng = wrdDoc.Range
wrdRng.Select

i = 1
Do While ThisWorkbook.Worksheets(1).Range("A" & i) <> ""
    wrdApp.Selection.TypeText ThisWorkbook.Worksheets(1).Range("A" & i)
    wrdApp.Selection.TypeParagraph
    wrdApp.Selection.Select
    i = i + 1
Loop

wrdApp.Visible = True


Exit_SaveAsWord:
    On Error Resume Next
    Set wrdRng = Nothing
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    Exit Sub

Err_SaveAsWord:
    MsgBox Err.Description, vbExclamation, Err.Number

    Resume Exit_SaveAsWord
End 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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
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
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1