read and write chinese words

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Adding AutoText to all headers and footers Is there a way to add an autotext entry to ALL headers and footers in a document no matter if there is a different first page or not, or if there are multiple sections or not? Tag: read and write chinese words Tag: 90392
  - 2
    - Calcuate on Exit Bug? Maybe I don't really understand what checking calculate on exit does for a form field but I've never seen this before. I've got a form with about a dozen fields, some of them are calculations but... well what they are doing is MULTIPLE calcuations as you tab through the fields. They don't calculate just once...they REPEATEDLY calculate the formulas everytime you tab out of a field in the document. so 200 becomes 400 becomes 800 becomes 1600, etc. This won't work, and I have other Word forms with Calculate on Exit that don't act this way at all. Am I missing something or is my document bugged? Tag: read and write chinese words Tag: 90391
  - 3
    - Word ComboBox values in txt file Is there a way to reference the choices provided in a drop down list of a Combo Box from a txt file or macro stored in the Word Template? I have a Word Form with many combo boxes that should have the same choices but need to store them outstide of the code because I get an error that the code is too long. Tag: read and write chinese words Tag: 90390
  - 4
    - Are single field calcuations possible? How do I get a form field to perform a calculation on a number that the user puts in it? I know how to do it with multiple fields like =(Field1)*(Field2) but what if I want it to equal what the user puts in this field itself /12, for example? so If I have one field in a document that is supposed to display how much the average person makes in a year based on an hourly rate. The field would need to accept the user's input (the hourly rate) and automatically multiply that number by 2080 and the change what they inputted to show the result. is that possible? Tag: read and write chinese words Tag: 90383
  - 5
    - Creating a format for headers I would like to create a format in word that makes it possible to transfer a word from the text to a header. For example, if I write: "This is my header" in the text, I would like to be able to mark that text and chose a format which automatically converts that text into a header. Does anyone understand what I mean? And if so, is it possible? Tag: read and write chinese words Tag: 90381
  - 6
    - Create macro in a template? Yesterday I submitted a question about disappearing macros. It was suggested that I create a macro in a template that I should save in the Word Startup folder. How do you save a macro as a template? Tag: read and write chinese words Tag: 90380
  - 7
    - macro to make picture in-line with text hi all, wxp pro sp2, office 2003 pro sp2, i have a large document with lot of figures (300+). it just transpires to me that as a result of collaborative work, we end-up with a mix-bag of figures that are in-line with text, square or tight in layout. i wonder whether someone would be kind enough to provide me with a macro that would enable figures to be changed to in-line with text, if this is macro-able. or is the solution one of swallow the bitter pill and check/convert figure 1 by 1? thanks for your advice/help, jes Tag: read and write chinese words Tag: 90370
  - 8
    - Word version independent macros Hi, I have created word template with some subs and functions. Generally this macros, copy content of other .doc dokument and paste it to active document, create tables and format text. I created this template in wrod 2003. But it turned out that this template will be used on computers where are Word versions form 97 to 2003 and in the future perhaps 2007. So my question is what can I do to make this template (especialy macros in this template) Word version independent? Can I use objects like ActiveDocument, Selection??? Or Should I rewrite this macros using late binding??? Any help, suggestions will be appreciated. Regards, sweet_dreams Tag: read and write chinese words Tag: 90365
  - 9
    - Selecting just one word in document When I use: Selection.Words.Count with nothing selected I get Selection.Words.Count =1 I get the same result when I actually select just one word (which I expected). Likewise if I use Selection.Words.First, I get then next word after cursor. How do I know if the user REALLY just selected one word? thanks Tag: read and write chinese words Tag: 90362
  - 10
    - Setting savepath through Word Automation. Hi. I'm currently using MS Word automation to open up a template and fill in user information automatically based on the person who opened it. However I can't figure out how to set the savepath so when the user chooses to save, the save dialog goes to the path given by me. Does anybody have any solutions regarding this? Best regards Svein Arild Tag: read and write chinese words Tag: 90360
  - 11
    - pop up messages when printing or sending Is there a feature in Word to automatically show pop up messages when printing or sending a document? If not, what would the Visual Basic code be to make this happen? Tag: read and write chinese words Tag: 90353
  - 12
    - Transfer Calculator Result I know how to display the Microsoft calculator in Word. MS says that a two step 'Copy/Paste' operation is the only way to capture the result of a calculation. Is there any way via VBA to more directly capture the answer and automatically get the calculator's answer into the document or into a form field (by clicking one button, for example)? Thanks, Ed (in Virginia) Tag: read and write chinese words Tag: 90352
  - 13
    - Macros in Office Basic vs. Office Professional I have documents whose macros run fine in Word in Office Professional but do not run at all in Word in Office Basic. I need to use the documents on both computers. How can I make this work? Tag: read and write chinese words Tag: 90351
  - 14
    - How do I Word Macros from Office Professional in Office Basic? Tag: read and write chinese words Tag: 90350
  - 15
    - how to insert a picture to a word document how to insert a picture to a word document,and align Center both Horizontal and Vertical Tag: read and write chinese words Tag: 90349
  - 16
    - Creating a second word instance to run my project (Word 2000) Hello I have one last obstacle to overcome with my project. At this stage it is working more or less as i want it, application is hidden with only a userform in view, and my labels are printing out fine, time after time of button clicking, documents are opening and closing correctly etc etc. My (final???) problem now is that when I close the applicatiion the way I need to, ie Application.Close wdDoNotSaveChanges - so that its ready to be used again another time, it also closes with it any documents that are laying open at the bottom of the screen - this could well cause much anguish amongst the users who (hopefully) will be using it in our office, and I'm sure to become little miss unpopular!! I think one option, if it can be done, would be to fire up the document in a new instance of word, separate from the one that is already open with documents at the bottom of the screen. Is this possible, and if so can someone point me in the right direction of where to place the required code. I have seen some code in a book that will open an instance of word from another program - do I do this in the same way? And where should the start up code be placed? Thanks Tag: read and write chinese words Tag: 90345
  - 17
    - VBA Code I have a seeming simple task that I can't figure out. I have a macro set up to refresh a query and then do some copying and pasting of cells. What code can I use to tell the macro to wait until the query is finished refreshing until it does the copy and paste? Here is the simple code. Sub GetData() ThisWorkbook.RefreshAll ' I need the following code to be run after the refresh is finished' Range("J5").Select Selection.Copy Range("J6:J65000").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWindow.LargeScroll ToRight:=-1 Range("D1").Select End Sub Tag: read and write chinese words Tag: 90343
  - 18
    - How do I import macros from Word 2002 to Word 2003? Not working... Tag: read and write chinese words Tag: 90342
  - 19
    - How can I stop the reviewing toolbar from popping up? I am using another program called iRedline for document comparisons and changes. After I compare documents with iRedline, Word's native Reviewing toolbar pops up. It is redundant sitting there next to the iRedline toolbar; and I don't want to confuse my users. Tag: read and write chinese words Tag: 90334
  - 20
    - Print all docs in folder macro I loaded a macro that sounded promising, that would print all documents in a folder to a file. Wonderful. Now, how do you choose a folder to print it? I can choose documents, but have no idea how to choose a folder. Tag: read and write chinese words Tag: 90324
  - 21
    - Caption of a frame I am desperately trying to find a way how to print the captions of my userform's frames. Right now, these captions do appear on the userform but do not when I print it. Thanks for your hints on this matter. Sebastien Tag: read and write chinese words Tag: 90322
  - 22
    - Macro created one day, next day gone I created a Macro, save to two places by gmayor. I was going to go in and edit it. Today it is gone. Totally gone. I had saved, closed it, gone back to it two or three times, and even added it to one of my drop down menus. It's dead, Jim. Where did it go? Do I have to recreate it every time? WTH!? Tag: read and write chinese words Tag: 90313
  - 23
    - Macros to delete track changes and comments Is there a macro code that I could use to remove all track changes and comments (not just hide them) before saving and sending a document? I've tried the Reject and Accept Changes, but sometimes if I click Reject all changes, it takes away changes that weren't tracked to begin with. And I always have to go to View > Markup, making sure that markup is checked, in order to reject and accept. Sometimes I'll have to delete comments separately, sometimes I just click Accept all changes and it gets rid of them. Is there one process that will work the same for everyone? (everyone here is upgrading to 2003 and we have to republish some old docs) This is confusing to instruct others about, since docs were saved in different ways with different kinds of markups. I don't want to use the Remove Hidden Data tool because it messes up templates and other settings. thanks Tag: read and write chinese words Tag: 90311
  - 24
    - See solution for : Want to get rid of the Word warning dialogue Regards Jean-Yves Tag: read and write chinese words Tag: 90309
  - 25
    - resolving combo box data to HTML e-mail hi, I am creating a template in word to replace an existing paper based form with a e-mailed word document. To do this i am using VBA in word to send the document once finished and i am using several combo box's to select data on the document. The problem i am having is that when the template is sent (as HTML) the data selected in the combo box's is not sent. I would like to have it set so that only the text selected in the combo box is sent - without any of the actual comboi box. (i am aware that the combo box can be sent by activating active x in outlook, however i was hoping that there might be another way) where can i find the answer??? thanks. Tag: read and write chinese words Tag: 90301
- Next
  - 1
    - ListBox_Click event does not work! I used ListBox couple of times and each time the click event worked fine, but in one particular userform the ListBox_click does not work! However it "works" when i set listbox selected value via code, for example: ListBox1.Selected(0)=True but when i click a value on the listbox, the event simply does not "fire"... I checked this by placing the breakpoints inside of the click event. Of course, nothing "breaked" because event doesnt fire.... Please help. Thanks. Tag: read and write chinese words Tag: 90299
  - 2
    - copy text Depending on an input choice i have to select a part to copy and paste. All the text is included in one document and i can type all i want for bookmarks. But how can i write the code that on choice 1 i have to copy from text "a)" till text "b)" and so on? Tag: read and write chinese words Tag: 90295
  - 3
    - RE: Opening Excel for editing Hello, I have a Word form that has a user form within. In this user form some data is entered and thus written to another Word form. I would like to open an Excel for and write some data to a cell, how can this be done? Below is a code snippet for the Word document, I would like to write the same data to the Excel document named 'jobs.xls'. Thanks Documents.Open FileName:="C:\!Job Setup\Project Information.doc" With ActiveDocument .FormFields("ProjectName").Result = frmProjectName .FormFields("ProjectNumber").Result = frmProjectNumber .FormFields("ProjectTo").Result = frmProjectTo .FormFields("ProjectAttention").Result = frmProjectAttention .FormFields("ProjectAddress1").Result = frmProjectAddress1 .FormFields("ProjectAddress2").Result = frmProjectAddress2 .FormFields("ProjectAddress3").Result = frmProjectAddress3 .FormFields("ProjectManager").Result = frmProjectManager .FormFields("ProjectForeman").Result = frmProjectForeman .FormFields("ProjectSuper").Result = frmProjectSuper .FormFields("ProjectScope").Result = frmProjectScope .FormFields("ProjectDate").Result = frmProjectDate .FormFields("ProjectRDF").Result = frmProjectRDF .FormFields("ProjectPhone").Result = frmProjectPhone .FormFields("ProjectFax").Result = frmProjectFax .Close SaveChanges:=wdSaveChanges End With -- A response to the newsgroup will allow us all to learn from your expertise! -Lumpjaw Tag: read and write chinese words Tag: 90287
  - 4
    - Updating Table of Contents Hi. I'm trying to update a Table of Contents (TOC) from a macro. Nothing I try works. When I do it manually, I get a prompt that asks me if I want to replace the TOC. None of the methods seem to take a parameter for replacing the TOC, which is what I need to do. Recording the manual operations basically gives the same code that I am using, but it doesn't work at run time. Here's what I have now: For Each aTOC In ActiveDocument.TablesOfContents aTOC.Update aTOC.UpdatePageNumbers Next aTOC What is the trick to regenerating a TOC that works every time? Thanks, Gaston Tag: read and write chinese words Tag: 90283
  - 5
    - "Save to two locations" macro I used the gmayor macro to save a document to two locations at once. It worked wonderfully. However, with each file it saves, it puts the word "Backup" in front of each file. Is there any way I can get around that? Tag: read and write chinese words Tag: 90282
  - 6
    - IF/Then variable in form? Anyone know how to write the code so that IF a # in a field (call it Premium) is LESS THAN $50. THEN this field = that field plus whatever it takes to be $50... otherwise, the field is Zero? Tag: read and write chinese words Tag: 90279
  - 7
    - assigning variable to DB field value In the following code (brackets [] replace actual path name, etc.), what is the syntax for assigning the value of the database field to a variable? And a few more questions: What would be the equivalent code for doing the same but using a recordset just to get the data field value then assign it to a variable? In other words, this would just retrieve the field's value and not make the document into a merge document, correct? If I didn't want to use the .odc shown below, what would be the correct syntax to just reference an Access database named DB.mdb? (I'm asking because I recorded this from a macro; and I'd like to know all the options so I can better understand the syntax and principles behind the code.) ActiveDocument.MailMerge.OpenDataSource Name:="[path]\[datasource].odc" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _ "Provider=MSDASQL.1;Persist Security Info=False;User ID=b;Extended Properties=""DBQ=[path]\[database].mdb;DefaultDir=[path];" & _ "Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;FILEDSN=[path]\[DSN].dsn;MaxBufferSize=2048;MaxScanRows=8;PageTi" _ , SQLStatement:="SELECT [field] FROM `[query]`", SQLStatement1:="", SubType:=wdMergeSubTypeOther [variable]=??? -- Thanks in advance, Bryan Tag: read and write chinese words Tag: 90278
  - 8
    - Create Form with Bookmarks that are underlined I have a problem with my form. I've created the fields for the bookmarks, but I am unable to keep them underlined. I've tried to highlight the field and underline it so that when it fills in it is underlined, but the text goes before the underline. Hope that makes sense...I'm using Word 2002 Thanks for any help. Tag: read and write chinese words Tag: 90276
  - 9
    - Loadpicture in Mail Merge I am developing a Word mail merge to create letters from an Excel spreadsheet. I would like to load a picture on each page using a path in the excel spreadsheet. I have written a macro which loads the picture. How can I get the macro to run for each record in the mail merge? Any thoughts or code samples would be appreciated. Clark Tag: read and write chinese words Tag: 90274
  - 10
    - Adding Bullets and Symbols to Protected Forms using Form Fields Hello, I have several templates that are protected using form fields...I am trying to figure out a way to allow the users of the form to implement bullets and symbols (such as the copyright symbol) to some the form fields. When the user attempts to access the Insert menu or the formatting menu, they are grayed out. I have used the Spell Checker macro found on this site, it works great... I am hoping there is a similar macro for these other needs. Thanks in advance for you help! -- Coach Tony Tag: read and write chinese words Tag: 90271
  - 11
    - Word Form Fails When Using The Mouse Hi Guys/Dolls I'm using word forms and my program works ok when using the keyboard - using tab key to navigate around the form but crashes when using the mouse with a "Microsoft Office Word has encountered a problem and need to close. We are sorry for the inconvenience". Has anybody come across this? If so how do I resolve this. Tag: read and write chinese words Tag: 90270
  - 12
    - adding autotext to a template Jonathan is now on holiday - can anyone else help in his abence please? We have been corresponding over the last few months - please see below. Any help would be greatly appreciated as I'm getting quite frustrated now!! cheers I have a letter template macro as a form chooser and I would like to add various autotext in a list so that they can be added to the address bookmark in the template. Is there a way or would I have to add each company name to a module as an additem and then put the addresses in a macro in the form chooser? If there is a better way which will pick up the autotex which are contained in a global template in startup then that would be great as then I wouldn't have to add a new macro every time someone requires a new address adding to the list. Many thanks Addy In VBA, you can create a loop to iterate through the AutotextEntries collection of any Template object, get the Name property of each AutoTextEntry in turn and use Additem to add that to the listbox in your form. Something like this Dim oTemplate As Template Dim oAuto as AutotextEntry Set oTemplate = Addins("My Global Template.dot") For Each oAuto in oTemplate.AutoTextEntries ListBox1.AddItem oAuto.Name Next oAuto Regards Jonathan West - Word MVP I tried the below but it doesn't seem to work. Please could you let me know what I am doing wrong. The below bit I put in my form chooser:- Dim oTemplate As Template Dim oAuto As AutoTextEntry Set oTemplate = AddIns("legal.dot") The below was put in a new module:- With frmChooser 'frmchooser is my form (a letter template) For Each oAuto In oTemplate.AutoTextEntries CBOAddress.AddItem oAuto.Name Next oAuto .Show End With Anyone any ideas please? Addy Hi Addy This line is wrong CBOAddress.AddItem oAuto.Name Its should be this .CBOAddress.AddItem oAuto.Name Note the extra period at the start of the line. That is what links it to the "With frmChooser" statement Regards Jonathan West - Word MVP Many thanks. I've changed that but now it doesn't like this line: For Each oAuto In oTemplate.AutoTextEntries When I hover over oAuto it says its empty Cheers Addy step the through the code. After you get to this line Set oTemplate = AddIns("legal.dot") check whether oTemplate is actually assigned to anything. If it isn't, then you need to fix that object assignment. If it is correctly assigned, then check the value of oTemplate.AutoTextEntries.Count. If it is zero, then oTemplate doesn't have any autotext entries in it. Regards Jonathan West - Word MVP > I've managed to get my otemplate to be assigned to legal.dot but it says > my > oauto is empty and I don't know why because there are autotext enteries in > legal.dot. This is what I've got so far:- > > These are both in my form chooser:- > > Dim oTemplate As Template > Dim oAuto As AutoTextEntry > > The below are in a separate module:- > > With frmChooser 'frmchooser is my form (a letter template) > > Set oTemplate = AddIns("o:\msoffice97\winword\startup\legal.dot") > Set oAuto = AutoTextEntry (put this in entra as it wouldn't work) > > For Each oAuto In oTemplate.AutoTextEntries > .CBOAddress.AddItem oAuto.Name > Next oAuto > .Show > End With > > Do you have an e-mail address that I could maybe sent my whole document to > you on to find out where I'm going wrong as it is a long and complex form Addy OK send it to jwest@mvps.org. I might not have time to look before I go on holiday this weekend for a fortnight, but I'll see what i can do. Regards Jonathan West - Word MVP Tag: read and write chinese words Tag: 90265
  - 13
    - Find double lines - vba or wildcards? I'm trying to find all double (identical subsequent) lines in a Word-file. This is the file structure: Saturday, Bob and Mary, 02 PM Sunday, Bob and Raymond, 02 PM Sunday, Bob and Raymond, 02 PM Monday, Joan and Priscilla, 01 PM Now, I have been trying to find all double lines with this wildcard search: (^13*^13)@ but no double lines are found. What wildcard combination would I need to accomplish this search? Is it necessary to use vba? (Word 2002 SP3) S. Nomey Tag: read and write chinese words Tag: 90249
  - 14
    - Blue Screen Macro I used to have a simple macro I attached to a button that pressing once would turn blue screen on and pressing again would turn it off. Unfortunately, I lost it in a hard drive crash. I do most of my writing and editing in blue screen but some graphics don't appear and I need to switch to white to view them. It is cumbersome to navigate the menus to switch. Does anybody know this macro? Tag: read and write chinese words Tag: 90246
  - 15
    - how do you edit the location of a subdocument hyperlink? I am creating a master document with multiple subdocuments. My company uses a datamanagement system for data storage. I am able to access documents within the data management system via a http hyperlink. i intend to modify the subdocument location to point to the appropriate hyperlink. is this possible without some serious coding, and if so how would you go about this? Tag: read and write chinese words Tag: 90242
  - 16
    - Adobe Comments duplicating themselves in other toolbars I have Adobe 7.0.8. My problem is that everytime I save my macros, shortcuts, etc in my normal.dot on Exit and then restart Word, the items in Adobe Comments duplicated themselves in my customized toolbar, sometimes attaching themselves to the Autotext or other toolbars. Can somebody tell me what is happening. How can I prevent this from happening short of getting rid of the Adobe toolbar - I have no experience in changing the registry. Thank you Tag: read and write chinese words Tag: 90240
  - 17
    - Detecting a Shape/InlineShape within a track changes balloon Hi Everyone :) I need help with figuring out a way to detect if a Shape / InlineShape in a Word document is actually residing inside a track changes balloon ? I' m trying to iterate over the Shapes and InlineShapes collections of a document in order to retrieve some properties but I would like to skip Shapes / InlineShapes that have been deleted and are now appearing only within the track changes context. Thanks for your help ! Yaniv Tag: read and write chinese words Tag: 90237
  - 18
    - MoveUntil method hangs Hello, I have a macro that causes Word to hang when the macro is run in a document that contains comments (the comment "bubbles"). In my macro, I use the Selection.MoveUntil method and pass in a negative number or the wdBackward constant. If the current selection is in front of a comment, MoveUntil hangs word if I try to "back up" over the comment. Here is a simple macro that shows the problem: Public Sub GoToPrevStar() Selection.MoveUntil "*", wdBackward End Sub Here is an example of a simple document that can be used to reproduce the problem: "The * [insert comment here]quick brown fox" If I place my cursor after the comment (for example, between quick and brown) and run the GoToPrevStar macro, Word hangs. If I take out the comment, the macro works fine. I have tested this in Word 2003 and Word 2002 and it hangs in both versions. Has anyone heard of this problem or a workaround? Thanks, Mike Tag: read and write chinese words Tag: 90236
  - 19
    - read TOC(Table of Content), reformat TOC hierarchy and write the result into a text file Hi, I'd like to read the TOC starting from below "Part II test cases" until the end of TOC. After that, I need reformat the TOC hierarchy in the format like below and finally write the result to a text file. Example: TOC in Ms Word Part II Test Cases 7 1 Schedule Document 7 1.1 Cleanup instance after scheduling. 7 1.2 WebI Specific Scheduling. 8 1.3 Document Format 9 2 Schedule to printer 9 2.1 Collate option for Crystal Report 9 3 Default Destination. 11 3.1 Alter the object destination to default destination. 11 3.2 Schedule to Default Destination. 12 Text file format: 1=/Schedule Document 2=/Schedule Document/Cleanup instance after scheduling 3=/Schedule Document/WebI Specific Scheduling 4=/Schedule Document/Document Format 5=/Schedule to printer 6=/Schedule to printer/Collate option for Crystal Report 7=/Default Destination 8=/Default Destination/Alter the object destination to default destination 9=/Default Destination/Schedule to Default Destination Please help me! Thank you so much. Any helps will be greatly appreciated. Regards, John Tag: read and write chinese words Tag: 90233
  - 20
    - What did I do wrong...UserForm and AutoNew I followed the instructiosn from MVP Microsoft on how to creat e userform. It worked perfectly for my application; however, there were a couple fileds I had to modify. When I re-saved the template and opened it for a new document the userform won't open up. Any suggestions? I am using Word 2002 The AutoNew code is: Sub autonew() ' ' autonew Macro ' Macro created 8/28/2006 by Sondra ' UserForm1.Show End Sub Tag: read and write chinese words Tag: 90231
  - 21
    - Using a list box in a word document I am creating a dictation form for a surgeons office and I used drop down boxes for the user to add in information. However, the Doc would like the user to be able to select more than one item in a drop down box. I do see, from the controls, that a list box or a drop down box can be placed into the document so the user can select more than one item. My problem is getting the list box or combo box to function. I am not familiar with the VBA language. I have been searching MSDN but the information I do find seems to be for VB and has not been helpful. How do I get this to function so the user can select more than one item only showing those items that were selected? Madalyn Tag: read and write chinese words Tag: 90226
  - 22
    - How to copy RTF into another application? Hello, I have a macro that parses a Word Document (a resume) and creates an Outlook contact out of it. I then copy and paste the entire contents of the document to the Notes field in Outlook. A manual copy/paste of a Word document's contents into the Notes field in Outlook preserves the RTF formatting. However, when I do this programmatically, it appears as plain text in the Notes field in Outlook. Here is the code that I'm using: oContact.Body = ActiveDocument.Range.Text Is there a different way to paste (in RTF format) all of the text of a Word Document into the Notes (Body) field of Outlook Contact Item? John Tag: read and write chinese words Tag: 90223
  - 23
    - Help adding footer info on all pages I'm new to VBA and am needing to create a macro that displays a dialog box for the user to enter 3 lines of text. This text should then be populated in the footer area of every page of the current document (which will be a template with footers added). I also need to add page numbers but place them outside footer cell and on the 3rd line down. Here's what I have got so far ..... It works somewhat but will not put page number on 1st page. I didn't know how to code to put the page number where they wanted it (outside footer cell and on 3rd line), so I recorded a macro for this piece. I've tried bookmarks and fields also, and just cannot get the right combination. Seems like this should be easier than this! Please help. Private Sub cmdOK_Click() Dim secTemp As Section Dim strClient As String Dim strProject As String Dim strDueDate As String 'Get the input and place in variables strClient = txtClientName.Text strProject = txtProjectTitle.Text strDueDate = txtDueDate.Text Set secTemp = ActiveDocument.Sections(1) If secTemp.Footers(wdHeaderFooterFirstPage).Exists = True Then secTemp.Footers(wdHeaderFooterFirstPage).Range.Text = strProject _ + vbCrLf + strClient + vbCrLf + strDueDate Call PageNo End If If secTemp.Footers(wdHeaderFooterPrimary).Exists = True Then secTemp.Footers(wdHeaderFooterPrimary).Range.Text = _ strProject + vbCrLf + strClient + vbCrLf + strDueDate Call PageNo End If Unload Me End Sub Sub PageNo() ' 'PageNo Macro' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.MoveDown Unit:=wdLine, Count:=2 Selection.MoveRight Unit:=wdCharacter, Count:=8 Selection.TypeText Text:=vbTab Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Tag: read and write chinese words Tag: 90219
  - 24
    - Gathering a total from multiple documents? Let's say I have document A.doc, document B.doc and document C.doc and they are identical Word documents with named form fields that perform various calculations. At the bottom of each document there is a field that runs a calculation called "total" Now I create a new document called "Grand Total.doc" and in it I put a single form field with a calculation. I want it to pull the "total" from document A, document B, and document C and add them all up in this field. Is that possible? Tag: read and write chinese words Tag: 90218
  - 25
    - ComboBox Macro Issue!? I am hoping I am posting this question to the right group. I have been working on a word template form (Word 2003 Professional). On another discussion group I was informed about ComboBoxes and have used three in this particular form. Two of these are working JUST FINE...the third unfortunately has caused me some headaches. The first problem was that when I placed all the info in the array for the list...it for some reason refused to let me save...stating that the disk was full (which it was not). It finally gave up and crashed on me...forcing me to redo the combo box...this time it worked fine and allowed me to save but now for some reason it is not showing the list items!? They are there in VB...but when I go back to the form and attempt to use the form...they don't show! Any suggestions? Tag: read and write chinese words Tag: 90216

Hi,

I want to read chinese, traditional chinese,korean,japanese words from word
doc and write it into text file. But I have no luck up till now. I have no
problems with french and german languages but these other 4 languages just
can't be written into the text file. It'll leave some empty blank spaces
into my text file.

Code so far:
Const ForWriting = 2
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\TCS.mtp", ForWriting)
Dim counter as integer

do while
lineArray = Split(theTable.Cell(caseStartRow, 2).Range.Text,
Chr$(13))
objFile.writeLine (lineArray(counter))
counter = counter + 1
wend

objFile.close

Please help if there is anyone know how to solve the problem. Thank you so
much!
John

Top

Re: read and write chinese words by Russ

Russ
Mon Sep 04 02:45:04 CDT 2006

Hi John,

> Hi,
>
> I want to read chinese, traditional chinese,korean,japanese words from word
> doc and write it into text file. But I have no luck up till now. I have no
> problems with french and german languages but these other 4 languages just
> can't be written into the text file. It'll leave some empty blank spaces
> into my text file.
>
> Code so far:
> Const ForWriting = 2
> Dim objFSO, objFile
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFile = objFSO.CreateTextFile("C:\TCS.mtp", ForWriting)
> Dim counter as integer
>
> do while
> lineArray = Split(theTable.Cell(caseStartRow, 2).Range.Text,
> Chr$(13))
If not linearray = "" then
( or linearray = trim(linearray) I'm not sure what you mean by 'empty blank
spaces')

> objFile.writeLine (lineArray(counter))
> counter = counter + 1
End if
> wend
>
> objFile.close
>
> Please help if there is anyone know how to solve the problem. Thank you so
> much!
> John
>
>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Top