Pozdrav,
Imam Memo polje RtxtBox1 (RichTextBox tipa) u Form1 u Bazi.
Potrebno je da tekst iz RtxtBox1 iskopiram u Word dokument ali da se zadrzi originalno formatiranje.
Ako uradim ovako:
'Kopiraj sadrzaj RichTextBox-a
Baza.Form1.RtxtBox1.SetFocus
DoCmd.RunCommand acCmdCopy
'... i paste-uje ga u Word fajl Dokument
Dim oApp As Object
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True
oApp.Documents.Open FileName:="Dokument.doc"
oApp.Selection.Range.PasteAndFormat (wdFormatOriginalFormatting)
desava se sledece:
Ako mi je text u Access-a npr:
"Ovo je tekst"
U Wordu se pojavi:
"Ovo je tekst"
???
Ako umesto wdFormatOriginalFormatting stavim wdFormatPlainText rezultat je isti ?!?
Sta se ovde desava ? Kako da zadrzim pravilno boldovanje ?
Access i Word su verzije 2007, a Paste opcije u Word Options/Advanced su sve na Default-u.
Da li znate neki drugi nacini kako da kopiram Memo polja u word u dve varijante
- zadrzavanjem izvornog formata
- prihvatanjem destination formata
Zoran
Imam Memo polje RtxtBox1 (RichTextBox tipa) u Form1 u Bazi.
Potrebno je da tekst iz RtxtBox1 iskopiram u Word dokument ali da se zadrzi originalno formatiranje.
Ako uradim ovako:
'Kopiraj sadrzaj RichTextBox-a
Baza.Form1.RtxtBox1.SetFocus
DoCmd.RunCommand acCmdCopy
'... i paste-uje ga u Word fajl Dokument
Dim oApp As Object
Set oApp = CreateObject(Class:="Word.Application")
oApp.Visible = True
oApp.Documents.Open FileName:="Dokument.doc"
oApp.Selection.Range.PasteAndFormat (wdFormatOriginalFormatting)
desava se sledece:
Ako mi je text u Access-a npr:
"Ovo je tekst"
U Wordu se pojavi:
"Ovo je tekst"
???
Ako umesto wdFormatOriginalFormatting stavim wdFormatPlainText rezultat je isti ?!?
Sta se ovde desava ? Kako da zadrzim pravilno boldovanje ?
Access i Word su verzije 2007, a Paste opcije u Word Options/Advanced su sve na Default-u.
Da li znate neki drugi nacini kako da kopiram Memo polja u word u dve varijante
- zadrzavanjem izvornog formata
- prihvatanjem destination formata
Zoran