Insert Formatted Text From A Word Document Into An Oracle Database!
Hi all!
I have a Word document with formatted text (bold, enters, italic, ...) in a cell of a table. Now, how is it possible to save the content of this table text in an Oracle database? After this, I will use this text again in an other document in the same format!
When I execute the next code, i only get the text of the cell, without the formatting stuff.
Dim oraSession As Object
Dim oraDatabase As Object
Set oraSession = CreateObject("OracleInProcServer.XoraSession")
Set oraDatabase = oraSession.Opendatabase("sherpa", "user/passw", 0&)
TableCell = ActiveDocument.Tables(1).Cell(1, 1)
oraDatabase.Executesql ("Insert into test_tekst values (test_tekst_seq.nextval,'" & TableCell & "')")
Filip
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Database Lookup - Insert Fields In Word Document.
Hi,
I have created the starting macros that pull up a standard, pre-made form of either a letterhead, memo, fax or minutes sheet.
What I am trying to do then, is have a dialog box that will allow you to choose;
1. the 'author' of the document (from an easily updatable list of employees and their details),
2. a contact person (from this same list),
3. the recipient's name (single line input), and
4. their address (multi-line input).
... and have this information and linked info (such as author's phone number) be inserted into the relevant document. I have created fields in the main documents such as {author}, {author's phone} and {recipient} - but am finding it hard to fathom this macro.
Can anyone help me?
Scott.
Insert Text From VB 6 App Into Open MS Word Document
My wife handles medical dictation and stores some blocks of standard dictation in a text file. I wrote a small VB app to make searching through the file easier, but she still has to paste the found text from the clipboard (copying to the clipboard from the app is done with one button) into the document. Is there a way to have the VB app automatically insert text into an open Word document at the point the cursor is?
I searched the FAQs and the post history for something related to this, but didn't find anything that appeared to address this particular thing.
Lee
Insert Text Into A Word Document Text Box From A Vb Form Text Box
Can anyone help me???? im trying to insert text into a word document text box (not one from the control toolbox but the one u get from the insert menu in word) and the source for the text comes from a text box on a vb form.
Ive inserted a document variable field called "joe" into the text box in the document called "doc1.doc" and opening it using a command button using the code below but it wont show the text.
Private Sub Command1_Click()
Dim MyApp1 As Object
Dim MyDoc1 As Object
Set MyApp1 = CreateObject("Word.Application")
Set MyDoc1 = MyApp1.Documents.Open(App.Path & "doc1.doc")
MyDoc1.Variables("joe").Value = Text1.Text
MyDoc1.Fields.Update
MyDoc1.Fields.Unlink
MyApp1.Visible = True
End Sub
this works anywhere else on the document except in the text box.......any ideas??????
doc1.doc is in the same directory as the project.
Opening Word Document And Changing Text & Insert Picture
I did a search but did not find much help on this.
I need to know how to modify text in the document, and also how to insert a picture (that is NOT in a file, it's a picturebox in my program)
For example I have to find "FirstName" and replace with actual first name let's say "John Doe" (keeping the same font and formatting).
Also, I need to insert a picture in the document in the top/right corder, and have no clue how.
This is the code I found by searching, and did not find anything to do the rest of what I need...
VB Code:
Option Explicit Private objWord As Word.ApplicationPrivate objDocument As Word.Document Private Sub Form_Load() Set objWord = New Word.Application Set objDocument = objWord.Documents.Open("C:Template.doc")End Sub
Any help apreciated, thanks
Textfile Parsing To Create Formatted Word Document
I have a text file that contains data that I would like to use to create a formatted Word document. The data in the text file can always be found on the same lines during different tests; the only thing that changes are the values themselves. I only need to grab certain lines and from some of those lines I might need to grab part of a numerical value. I'm including some text as an example of the text file. Also, do I need to create a DocVariable field or bookmark for every piece of info that I want to put in the Word document? The data is generated by another program so I don't have any control over how the data is written. This is my first time working with VBA. I have played around with the VBA somewhat but I don't know how to manipulate the textstream so that I can pick and choose only the data that I need. Am I making this more complicated than it should be? I tried using ReadLine and Read(# of chars) but I don't know how to get a portion of data that I need.
Example of data file:
/ ----- TEST RESULTS -----
/
SHED:String Table.sREPORT_TEST_RESULTS
0:Test Name: FTP - 1HR 72F HOT SOAK
1:MAX Error Value: 262689
2:MHC Rise / Test: 0.000 gm < 2.000 gm = PASS
3:
4:
/ ----- TEST TIME -----
/ 0. START DATE
/ 1. START TIME (AT DOOR SEAL)
/ 2. END DATE
/ 3. END TIME (AFTER FINAL Z&S)
/
SHED:String Table.sSHED_TIME
0:27/08/2003
1:16:06:09
2:27/08/2003
3:16:39:31
/ ----- PHASE SUMMARY -----
/:PHASE NAME,Time ,ERROR ,APshd,ATshd,VOLnet,RANGE ,THC.ze ,THC.sp ,THC.sa ,THC.ma,CH4.ze ,CH4.sp ,CH4.sa ,CH4.ma
/: ,sec ,MAX ,"Hga ,R ,cu-ft ,PPMc1 ,PPMc1 ,PPMc1 ,PPMc1 ,gm ,PPMc1 ,PPMc1 ,PPMc1 ,gm
/:----------,------,------,-----,-----,------,-------,-------,-------,-------,------,-------,-------,-------,------
SHED:String Table.sREPORT_PHASE_SUMMARY
0:BACKGROUND, 0,262689,27.28,525.1,1627.7, 30.0, -0.0, 27.5, 3.5, 0.087, 0.0, 10.1, 2.7, 0.000
1:FINAL , 611,262145,27.28,530.9,1646.9, 30.0, -0.0, 27.5, 3.5, 0.088, 0.0, 10.0, 2.6, 0.000
2: 1200 sec schedule time conflict
3:NONAME , 1807,262145,27.28,531.9,1648.0, 30.0, -0.0, 27.5, 3.5, 0.089, 0.0, 10.0, 2.6, 0.000
4:
Creating A Specially Formatted Word Document Through Visual Basic 6
I am a developer using Visual Basic 6. I have written a program where the user enters some values to text boxes. Depending upon the values, a Word document is created which displays the values entered along with descriptive labels. None of the
fields/text boxes are compulsory and the output Word document contains only those non-zero values. (That means I can not use predefined bookmarks to mark locations. The resultant document will not contain a fixed no. of lines each time). The user wants to apply bold formatting only to the values entered by him and not to the descriptive labels. Both the labels and values are to be printed on the same line (in plain and in bold format respectively). Also the user wants that the values
should be printed in a separate font than the descriptive lables.
I have done everything else. I am able to create a Word document (.doc) using Visual Basic with all the required contents. I am also able to apply Bold and Underline formatting to an entire line. I am able to use different fonts and font sizes to an entire line. But I am unable to apply bold formatting only to a selected word from a line.
I need the document in the following format:
Today's Price : Rs. [125.00]
Available Qty : [10.250]
In the above output, the values enclosed within square braces should be in Bold and in a different font, while everything else should be normal.
I will appreciate any type of help or suggestion on this. Thank You.
Eager_Beever
My code sample is as follows :
Dim objWord As Word.Application
Dim thisDoc As Word.Document
Dim thisRange As Word.Range
Set objWord = CreateObject("Word.Application")
Set thisDoc = objWord.Documents.Add
thisDoc.Range.InsertAfter "Today's Rates" & vbCrLf & vbCrLf
varLCount = thisDoc.Paragraphs.Count - 2
Set thisRange = thisDoc.Paragraphs(varLCount).Range
thisRange.ParagraphFormat.Alignment = wdAlignParagraphLeft
thisRange.Font.Name = "Verdana"
thisRange.Font.Size = 11
thisRange.Font.Bold = True
thisRange.Font.Underline = True
thisDoc.Range.InsertAfter " Today's Price : " & txtPrice.Text & vbCrLf
varLCount = thisDoc.Paragraphs.Count - 1
Set thisRange = thisDoc.Paragraphs(varLCount).Range
thisRange.ParagraphFormat.Alignment = wdAlignParagraphLeft
thisRange.Font.Name = "Verdana"
thisRange.Font.Size = 9
thisDoc.Range.InsertAfter " Available Qty : " & txtQty.Text & vbCrLf
varLCount = thisDoc.Paragraphs.Count - 1
Set thisRange = thisDoc.Paragraphs(varLCount).Range
thisRange.ParagraphFormat.Alignment = wdAlignParagraphLeft
thisRange.Font.Name = "Verdana"
thisRange.Font.Size = 9
. . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . .
thisDoc.SaveAs ("D:ReportsRepo.doc")
objWord.Visible = True
Saving Formatted Text Into Word From VB
How can I save formatted text into Word from VB? I've tried formatting the text in VB (setting fonts and sizes) but by the time I open it in Word, it is always set to a size of 10 pts. and a font of "Courier New".
Thanks,
tom
Sending Formatted Text From Word Doc To Richtextbox
Hi. I'm having a tricky difficulty sending formatted text back and forth from a Word document and a RichtextBox in VBA. It's fairly easy to send plain text, but the formatting is always lost.
If I try RichTextBox1.TextRTF = ActiveDocument.Content, the text in the document appears in the richtextbox with no formatting. If I try ActiveDocument.Content = RichTextBox1.TextRTF, the text appears in the document as plain text with all the rtf code visible.
I have tried using the clipboard, but that also seems to erase the formatting. I have found that Richtextbox1.loadfile "file.doc" will cause the text to appear with formatting, but only if file.doc is not open. I am trying to get the text from the active document.
Any suggestions?
How To Save Formatted Text To A Database?
Hi all,
I have a field of text which I want the user to be able to format
ie use tabs,bold, and underline
...and when the user is finished I want to be able to display this field on another form and save this formatted text in a field in my database.
Suspect an OLE object might do the trick but have no experience with these. Any ideas or thoughts would be appreciated.
Thanks
Jonny
Insert Word Document
I have a word document like a template with formfields, I want use it to fill it and print it, but I need that this word document opens into my program (MDIForm) is this possible ??
Thanks !!!!
Application Freezes When Formatted Text Is Taken From The Database
Ok i have a weird problem , probably easy for some of you experts..
Basically what im doing is sending text to a access database, then getting it from the database from another user. That works fine but, when the person sending it formats the text, like changing font type or color, when its taken back out of the database and its suppose to go into a text field. Though this makes the program freeze.. I have tried to retrieve it with a RichTextBox there , but i thought that when you submit to a access database none of the formatting is saved. So im stumped..
Insert Word Document Into A Textbox
currently i am working on a menu for a text editor. On the menu there is a choice of inserting a word document into a textbox. How can i do something like that? and after the word document has been inserted i would like some functions such as copy, paste, cut, save. Any help for inserting the word document and the functions ? thanx
Insert Characters Into Word Document
I'm writing a little app that will basically insert foreign characters into any document.
It will sit at the top of the screen and when you click on a button, it will put that character in, for example, a Word document.
But it's that bit I can't do! How do I get my app to insert at the insert caret in Word?
Simon
Insert A Picture Into A Word Document From VB6
Hello all,
i have to make an application wich generate a word document. I use: wordDoc As Word.Document object.
I want to insert a picture somewhere in the document, like word command: insert/picture/fromfile - img.jpg.
Please help me.
Thanks for your time.
How To Insert Record Into The Oracle Database
Hello friends
Can some one help me in the issue , i am using VB for the first time to connect to the oracle database ,i can connect to the oracle and reterive the information but i am unable to insert the data from the form.
can some one send me the sample code
Thanks,
raghavendra
Insert An Excel Range Into A Word Document
Other simular threads gave not the information so i could solve my problem. VBA for word is new to me, VBA for excel not.
I recorded a copy action in excel, and i recorded the paste action in word. The range hat needs to be copied, is temporarely placed in the clipboard. From excel i want to start the macro that copies the desired range, and paste it in a word template.
I hope someone can help me "on track".
Insert Style Tags In Word Document
I'm new to vba and trying to customize a script to insert style names (for Quark) at the beginning of each paragraph. The code below works fine but I want it to clear all style tags before inserting new ones in case I change the style of a paragraph and need to re-run the macro. How do I have it either clear existing tags (text between the "<" ">" characters) before inserting the new ones?
Code:
Sub InsertStyleNames()
Dim para As Object
Selection.HomeKey Unit:=wdStory
For Each para In ActiveDocument.Paragraphs
Selection.HomeKey wdLine
Selection.TypeText "<" & para.Style & ">"
Selection.Move wdParagraph
Next para
End Sub
Ideally I'd also like to include a search and replace routine at the end to turn the Word style tags into actual Quark style tags. Any pointers for that also appreciated.
Insert Richtext Into A Word Document Using Code
I have a Word Addin, the form contains a rich text box.
I would like the user to be able to edit the box, and then press insert.
The text is then inserted into the word documenting holding its format.
Does anyone know how this works?
Insert Vbtext Into Word 2000 Document
Just a general inquiry. Can one insert the contents of a VBtextbox into a Microsoft Word Document in a simple manner ? Reason ? My general veterinary medical database office software stores patient information as Word pages but the database program itself at the office is not very efficient when it comes to the user interface for entering patient data. I have written an interface that I like in Visual Basic but the output from this interface needs to be in Word document form to be able to store the medical record on the office system.
I could do alot if I could simply transfer the contents of a VB textbox object onto a Word page. Any easy help for a novice programmer ? I don't want to spend the rest of my life learning to program from MS Word itself.
Insert Textbox Into Word Document...(Resolved)
Hello there..
I would like to insert a textbox with some text in it into a microsoft wrod deocument and places it in the right hand top corner of the document.....any suggestions
Something like this..?
wrdApp.Selection.Type = wdSelectionNormal
wrdApp.Selection.CreateTextbox
wrdApp.Selection.ShapeRange(1).Line.DashStyle = msoLineDashDot
Thanks
wrdSelection.TypeText "This is some text."
wrdDoc.Content.Select
wrdSelection.CreateTextbox
does the trick
Does Anyone Know How To Insert A Picture Into Microsoft Word Document In A VB6 Project?
In my current vb6 project, I need to present a picture (.JPG) in microsoft word, and word perfect file. I got a serial unreadable letter when I use insertfile method to insert a picture file.
Insertting a txt file is working anyway.
Your immediate help will be really appreciated.
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim WordRange As Word.Range
Set WordObj = CreateObject("Word.Application")
Set WordDoc = WordObj.Documents.Open("D:WorkingWorksheet.doc")
WordObj.Visible = True
Set WordRange = WordDoc.GoTo(what:=wdGoToBookmark, Name:="next")
WordRange.InsertFile(app.path & "image1004.jpg")
''WordRange.InsertFile (App.Path & "
epnote.txt" )
Set WordObj = Nothing
Inputting Formatted Text Into An Access Database Field Using An ADODB Connection
Hi,
For ages I have kept a backup of all of the OpenIT mails I have got because
if I delete one, I am bound to need it. So I dumped all of my backed up
mails into an access database. I want to just cut out the questions and the
replies, and put the information back into Access but "cleaned" a little. I
have got all of this done, apart from putting the data back into the
database. I have created all of the tables and fields correctly. My problem
comes with preparing a sql statement in vb to insert formatted text. Here is
what I have tried so far....
************************************************** **************************
*
rsITX2 = conITX.Execute("insert into Questions" & _
" (Subject, Body) " & _
" Values('" & strSubject & "', '" & strBody & "')")
************************************************** **************************
*
strSubject is a string containing the subject matter
strBody is a string containing the body of the mail
rsITX2 is a ADODB.RECORDSET()
conITX is a ADODB.CONNECTION()
By the way I am using Vb.net.
That produces a sql string where the string being passed in is on multilines
and is pre formatted with tabs, etc. This can't be interpreted properly
because of the formatting.
I know that this code works because I have tried replacing the two strings
with "Test1" and "Test2", and it works.
Does anyone know how I can get VB to read the variables in rather than
outputting the full string values with the sql query?
Regards
Richard
Insert A Selected EXCEL Sheet Into An Active Word Document
Hello!
I would like to insert a selected EXCEL sheet into an active Word document (trough a Macro started in Excel). The insertion point is already selected, but I dont know how can I give orders (paste, insert) to word from my Excel code.
Can anyone help?
Thanks in advance.
Sercrusa
Insert TEXT At The End Of A Document
Hi All,
I have a question, I can't find an answer for.
I have tried lots of things, including experimenting with the Selection object, but I cannot get it to work.
I would like to specify a document, eg: C: emplate.doc and have this inserted at the end of the current active document by clicking a button.
Can somebody help me with this?
Thanks a lot!
Greetings,
Kevin
How To Insert Text In Current Document While...
Hi,
I'm trying to make it possible that a user can choose from a userform to insert a paragraph in the active document like some sort of disclaimer but than like
Sub inserttext()
Dim instxt As String
If option1 = True Then instxt = ("text1")
If option2 = True Then instxt = ("text2")
If option3 = True Then instxt = ("text3")
End Sub
but it has to be possible to call this function from anywhere in any document at any location.
IS THIS POSSIBLE????
Database To Word Document
Can someone help me please?
I need the syntax to retrieve data from the SQL database and place it in a Word document.
I can retrieve data from the database and put it into Excel but I am stumped on putting it into Word.
Any help would be appreciated as I have searched the tutorials and threads and I can find no assistance.
Thanks.
Word Document As Database
Hi there,
Does anybody knows the vba code to read data from a word document thats used as datasource?!
thanks
Insert TIFF Formatted File In MS WODS Using VB6
Hi All,
I have written this VB6 program to generate Letters using Client details from the Customer Table to output to WORDs document. I am trying to insert a digitised signature file in .TIF format into WORDs and it's not happening. The problem is that all the signatures seemed to congregated at the last document as per sample screen dump attached. Each signature is supposed to be on each individual letter.
Being new to VB6 and lack of experiences I am hitting the wall. Could someone please help me out. Thanks.
Here is the sample scripts from VB6
Private Function FPrintSignature(ByVal iClientId As Long, iWord As Word.Application, idoc as Word.Document)
'vbcity version
Dim objPic As InlineShape
Dim objPicShape As Word.Shape
Dim strSql As String
Dim strSignPath As String
strSql = "Select * from Signature where ClientId = " & iClientId
adoRstSign.Open strSql, adoConn, adOpenKeyset
With adoRstSign
If Not .EOF Then
strSignPath = .Fields("SignPath")
Set objPic = oDoc.InlineShapes.AddPicture(strSignPath, False, True, iWord.Selection.Range)
Set objPicShape = objPic.ConvertToShape
objPicShape.WrapFormat.Type = WdWrapType.wdWrapNone
objPicShape.WrapFormat.Side = WdWrapSideType.wdWrapBoth
objPicShape.Height = 20
objPicShape.Width = 60
objPicShape.Select
iWord.Selection.ParagraphFormat.Alignment =wdAlignParagraphLeft
End If
End With
Set objPic = Nothing
Set objPicShape = Nothing
Set adoRstSign = Nothing
End Function
Saving Word Document To Database
Hi there.
I was wondering if its possible to save a word document to a database.
I kinda poked around the forum looking for specific threads but didn't find anything.
I am using VB6 and Acces97. I am using ADO to connect. None of my controls are data bound and I'm using SQL to query the database.
I saw the tutorial for storing images and wondered if it was similar.
I have no idea where to start. Maybe if there's documentation on this someone could lead me in the right direction?
Any help is appreciated.
Thanks
Max
*edit
Perhaps as an alternative if I could export the text from VB to a word document, and then take the text from the word document and store it into the database?
I read in another post that storing word docs to a database could severly bloat it. My aim is to get info from the database and put it into the word document, type some additional text and then store it all back into the database.
The word document serves as a quote form. What I'm trying to do is save all of the quotes without having hundreds of word documents sitting around in a folder. I'd much rather work from a template and keep the text stored in the database.
Database Fields In Word Document
Does anyone know how I can get fields from my database into a Word document (eg name and address at the top and salutation after Dear ) a bit like a mailmerge but only for one letter at a time?
Storing A Word Document In A Database
Is there anyway to store a document in a database or allow a user to choose a document to save and then add a reference or something to the database so the next time a user loads up the form they can view the associated document ????
Word Document Data To Access Database
Hi everybody
I have a slight problem with my application that I'm working right now.
Problem is:
I have a Word document with Text - fields and Access Database for the iformation.
What I need to do is to read these text - fields to the access database fields.
I'm new with visual basic so I don't know all the trics. Would someone give me some pointers how to activate this outside Word document in access.
Other way around I could do this, but I don't want to add visual basic objects to the Word document, because the document goes ti customer and it only will slow down documents loading and using.
Thank you for your help
Embedded Data From Database To Word Document
I want to embedded query result to existing word document, for example:
'I have a document that contain this text
hi my name is :
'then I want embedded the name to it from my db...
pls advice..
thanks
Picture From Database To Word Document And Resized
Hi,
Does anybody know how to insert a picture from a database to a bookmark in a Word Document using vb.
I know how to insert text from a database to word, using the range method etc. Unfortunatley i'm not sure how to insert a picture.
Additional, the picture needs to be resized. This is because all pictures need to be the same size. I know what your going to say, make the pictures the same size before you put them in a database. The problem is they may not look good when in word document.
Can anyone help me please?
How To Convert Word Document To A Database Field
I am developing a tutorial in which i require to make a table with a field of 80 charecters containg the text. The problem is that i have a large amount of text typed in .doc format i need a code which reads this doc format and place 80 charecters in each record automatically. My database is access
Please Help.. Cant Seem To Insert Text Into MS Word
Um, I have this code which works to open Ms Word but I cant seem to add text to it properly...
lIke say i have an existing document (ie. Letterhead) with text already in it, how do i add text after the original document, because at the moment, it seems to open the file, and replace the text that is currently in it at the top of the document..
Also it only prints the words "How are you" but not "Hi"..
And how would i indicate to Word to start a new line?
Any help will be much appreciated.
VB Code:
Dim WordObject As Word.ApplicationSet WordObject = CreateObject("Word.Application")With WordObject.Documents.Open (App.Path & "abc.doc") 'file to accessSelection.Text = "Hi"Selection.Text = "How are you"End WithWordObject.Visible = True'quit wordIf Not (WordObject Is Nothing) Then Set WordObject = NothingEnd Function
|
TRACKER
