HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - how do I create a database using the word 2003 toolbar I am using Word 2003. I want to create a database using the database toolbar that is in Word 2003. Once the database is made I cannot save it unless I close the dbase screen. The screen that is left open shows my dbase setup i.e name, address etc. How do I save the dbase so that when I call it up to use it all I have to do is fill in the Blanks? Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74070
 - 2
 - How to select programmatically the digital certificate for signing Hi all, I would like to know how to select programmatically (VBA) one specific certificate to issue a word doc signature , the certificate could be either in mystore or smartcard or LDAP I would like to parse the available certificates properties like issuer , common name, etc.. to select the precise certificate I would like to use for signing purposes. When using the (addsign macro) set sig=activedocument.signatures.add instruction it displays a listbox but I would like to avoid this listbox and select programmatically the certificate instead. Any suggestion with code snippet is very welcome Best regards Herve Cadieu Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74068
 - 3
 - Is it possible to call and use MSWORD in command line mode? Hello all, Actually I would like to use the "Compare and modify" function in Word and Excel, but instead of opening the word application to complete the task, is there anyone know how to do it in command line mode? like c:\..\MSWORD c:\test1.doc c:\test2.doc "Compare and modify" or I need to write a VB program to call the function in MS office? Any comment, suggestion? or any related document for reference? Thanx so mush for your help MK Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74064
 - 4
 - Apply formatting to XML Tag Hi, Could anyone help me with these please I have the following situation: The user has a blank word document with a schema attached and has to add text to that document and tag the text accordingly. Now, i want to show each tag he adds with a different style. For eg, if he tags text with the <title> tag, i would like these texts to be displayed in bold with green highlight. he tags text with the <subtitle> tag, i would like these texts to be displayed in italic. Is there a way to achieve this? Thanks Alicia Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74061
 - 5
 - Error whilst fields are updating I have designed a report template using ASK fields (the report cannot be protected and tables are not practical). A macro placed in the ThisDocument module prompts the ASK fields and it all works beautifully except that whilst the prompts for the ASK fields are on screen you can see the document behind and where the bookmark for the ASK fields are it displays "Error Bookmark not Defined" - however when they are all filled in the error disappears and the data that was typed in the boxes appears in the correct fields, but I can't have users seeing the error messages it would confuse them. I have tried all sorts of ways but cannot find how to hide the window whilst the fields are updating. I've tried Application.ScreenUpdating = False, but it didn't work. Anyone have an idea? The code is: Sub AutoNew() Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory Set oStory = Nothing Selection.GoTo What:=wdGoToBookmark, Name:="StartDoc" End Sub Thanks for looking at this. Jeanmac Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74060
 - 6
 - refreshing image in ms word using vba I am dynamically changing the image property of a picture box in word with something along the lines of... LoadPictureToDocument ActiveDocument, "imgMenu", strImage This is working, however it won't 'refresh' the page so to speak. When you minimize word then restore it the image has changed, or if you scroll to the bottom of the page then back up it refreshes. Is there some sort of form.refresh type function using vba in word? Thanks Dan. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74056
 - 7
 - My Normal template not working in a different computer Last week I copied my normal template from my computer (with Word 97 and Windows 98) to another computer at a friend's house where I was staying (with Word 97 and Windows XP). Many of my macros didn't work. When I ran them I got this error message: "Compile error. Can't find project or library" When this happens to a macro, the highlighted text in the macro always involves the character code symbol, like this: Chr(30), for example, Selection.MoveEndWhile cset:=",.!? """ & Chr(13) So I guess I needed some special reference to be checked which would allow this computer to handle the character code symbol. Also, with many macros, I got this error message: "Compile error, can't find project or library" With other macros, I get message "Can't open macro storage." Even though the templaste containing the macro I was trying to run would open to that macro. I'm no longer working at the XP computer, but to avoid this problem in the future, does anyone know what I was doing wrong? Thanks, Larry Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74054
 - 8
 - refreshing image in ms word using vba I am dynamically changing the image property of a picture box in word with something along the lines of... LoadPictureToDocument ActiveDocument, "imgMenu", strImage This is working, however it won't 'refresh' the page so to speak. When you minimize word then restore it the image has changed, or if you scroll to the bottom of the page then back up it refreshes. Is there some sort of form.refresh type function using vba in word? Thanks Dan. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74053
 - 9
 - Load Fields on a Form with Button Click? I have fields in a word document template that I would like to allow the user to fill in. Then with a button click, I would like to copy the data from those fields that the user filled in to other areas (fields) on the same form to be used as prompts for additional input. I can read the user inputs from the initial bookmarked fields with the dim x as string ActiveDocument.Bookmarks("fred").select x=Selection.text I cannot see how to load another field with the x text Something like : ActiveDocument.Bookmarks("fred1").select Selection.text=x This removes the fred1 bookmark and the associated field. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74051
 - 10
 - water marks on word document On a word document there are sample water marks available on the system. How do I make my on water mark (e.g. my name) and put it diagonally on the document? If I want to put my hand writing there how do I do that? Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74049
 - 11
 - Variables and scope ? !!!! I wonder if some one can clarify if it is possible I want to set a global or constant in word at the start of a document / module in vba is this possible I understand to set a variable i use the "public" and if i require a set value that i would use the "const" But how do set a variable to the whole document which refers to a table something like const tblEmployees As Tables = ActiveDocument.Tables(1) or this is poor coding or bad practice... ? if ppl have any tutorials or links which might help it all become clear many thanks Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74048
 - 12
 - msword 2003 chgs ' when text is programmably inserted into msword I am programmably populating a MSWORD html template which has tags inserted in the html. All is well and good except for apostrophe and perhaps a few other characters. Instead of converting to ' word changes the ' to Ã¢â?¬â?¢ . In the browser this is what you get. Anyone have explanation and fix? -- Thanks, StanD Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74045
 - 13
 - RTF images conversion Hi, I'm working with an application which automatically generates an RTF document using the JFOR library. The problem is with Word 2003: an image file (our company logo) appears at the top of the page, as designed, but is resized to 2% of it's original design. This means that the conversion ignores the width and height dimensions set in the RTF. Previous versions of Word work fine and the imaged are rendered correctly. Can anyone tell mw how to correct this? Or why this happens? Our users were very confused and thought that the image didn't get placed in the document at all. Of course, I didn't even know our image was there until I viewed the document at 500%. Please help. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74042
 - 14
 - Built in Word dialog problem I'm trying to use on of Word's built in dialogs, namely the table auto-format dialog. Reading up on MSDN, this should work: Word.Dialog dlg = Application.Dialogs[Word.WdWordDialog.wdDialogTableAutoFormat]; However, doing this I get the following error: "Microsoft Word: This method or property is not available because some or all of the current selection is not in a table." What am I doing wrong? Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74035
 - 15
 - Accessing numbering from a macro Hello Is it possible to access the numbering of a heading from a VBA macro? I've already tried but the "Selection" object ignores the numbering. Cheers Jorge Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74026
 - 16
 - reading line from table cell into array Hi, I want to read a line from a table cell into an array. Just can not figure out how to read the lines into arrays. This is what I´ve got so far from http://mypage.bluewin.ch/reprobst/WordFAQ/Tabellen.htm#Tabellen05 Sub WordTabelleNachEindimensionalenArray1() Dim x() As String Dim oTable As Table, Zelle As Cell If ActiveDocument.Tables.Count = 0 Then MsgBox "Das Dokument enthält keine Tabelle.", vbInformation Exit Sub End If Set oTable = ActiveDocument.Tables(1) ReDim x(1 To oTable.Range.Cells.Count) i = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll For Each Zelle In oTable.Range.Cells i = i + 1 strText = Zelle.Range.Text x(i) = Left(strText, Len(strText) - 2) Next Zelle End Sub I can save the whole cell into the array, but not just one line. How should this be changed? Thanks in advance for every help Rob Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74021
 - 17
 - Fonts could not be registered? Hi everybody, not a real problem, it's just that I am curious about it. When using Word XP after having used Word 97, a message box pops up, saying that "Some of the fonts could not be registered", or so. Which fonts? What registration? Not a VBA question for sure, forgive me. -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74019
 - 18
 - Microsoft Word suggestion Microsoft Word should have an option similar to T9 and other cell phone predictive text software; one that showed possibilities to finish a word as it's being typed, so that if someone is typing "onomatopoeia", they can type "onom" and see a display suggesting several ways the word could be finished; it could be like the phones, where a highlighted possible end of the word appears after every unfinished word and one can simply press ctrl or something. Or it could be more like Microsoft, and have a little separate window open with the possible words appearing as one types. Either way, I think it would be a good tool for Word. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=c7450302-262e-4dea-8f1e-b0f4694e59a5&dg=microsoft.public.word.vba.general Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74017
 - 19
 - Continuous section break interfering with odd/even page header I have created a tempate that has a different first page header/footer and odd/even headers/footers for the rest of the document. I want to start the second page of the document as two even columns (the first page is not in columns). Users are not regular Word users, therefore I have a macro that does that for them (see below). However, when you run the macro the odd/even page header that has been set up changes and instead the header for the first page is inserted. The code finds the first character on the current page, inserts a continuous section break and sets up 2 even spaced columns. Does anyone know why it plays havoc withthe header? I'd be really interested to know and grateful for a solution. The code is: Sub ConvertToColumns() 'converts the contents of the current page to two equal columns ' moves to te left of the first character at the top of the current page Selection.Bookmarks("\Page").Select Selection.Collapse wdCollapseStart 'creates a continuous section break and two even columns With Selection.PageSetup.TextColumns .SetCount NumColumns:=2 .EvenlySpaced = True .LineBetween = False .Width = CentimetersToPoints(6.69) .Spacing = CentimetersToPoints(1.27) End With 'moves to the right of the last character on the page window (not to footer) Selection.Bookmarks("\Page").Select Selection.Collapse wdCollapseEnd End Sub Thanks for any help Aehan Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74012
 - 20
 - word and access data link Help!!! I am new with programming. Need to link access table on a template to be updated bidirectional each time the template is opened. Any detail help is greatly appreciated. Thanks Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74011
 - 21
 - Word & IE Quits unexpectedly My Microsoft Word 2005 & IE 6.0 unexpectedly quits while working...Even I am writing a letter in Word or Browsing on the Internet, both windows unexpectedly quits after sometime...Please help me....Thanks Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74010
 - 22
 - Mail merge I am creating a mail merge Word orientation handbook that is to be unit specific. The data to make it unit specific is in an Access database. The section layout is designed to go inline with the checklist used for orientation. I have gotten the basics working as I want it to. I have also created an IF statement to display material if the department is ICU it would display specific text that isn't otherwise displayed. Here are my issues: I have more skills than most users at the facility. If I was to leave the facility I want something that isn't going to be difficult for them to maintained and improve on with time. I am concerned that if I hide material in IF statements someone else will not know how to deal with them. I am planning to create a manual to go with the handbook so I am thinking IF statements may work. I will have sections that only apply to one or two units. I will not be able to just tack on the material to the end of the main document because it would mess up the flow. For example the ER has a sub section on Radios that needs to be included in the General Operation section of the handbook not at the end. My question is how to best bring in information like this. Is there a way to insert a file or show hidden text. For example { IF Department = Emergency Room, Bookmark unhidden, Bookmark hidden } Any ideas would be appreciated to keep this project usable for basic users and slightly above basic users (me)? Thank you Fay Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 74006
 - 23
 - Finding Chrw Codes..... Hi, I am newbie to VBA programming. I want to find Greek Symbols through VBA. But i don't know Chrw codes..i.e., Chr(13).... Where i can find the list of chr codes. Or anyone can give me the list. Thanks in Advance. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73993
 - 24
 - List all Bookmarks in a Protected Form Hello everyone. I have a protected form that is filled out by various users. I would like to be able to go to the end of each completed document where there is an unprotected continuous section and click a MACROBUTTON which will run a macro that will display the "text only" of each bookmark in the document. Each bookmark text would be listed in a separate paragraph in the order that they appear on the protected form. Thanks. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73983
 - 25
 - Search Macro Hey, I'm trying to create a macro in word that finds the word Engineer and when it does copy the first 7 charators of that line and paste it either to another word document or and excel spreadsheet. I have done VB for excel macro's but this is confusing me. Any help would be appreciated. Thanks Andrew T Smith Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73978
- Next
 - 1
 - DefaultFilePath with Read Only files Word 2003; WinXP Personal I have several simple macros (with toolbar buttons) to change the default Save As directory. For example: ********************************** Sub HouseholdAsDefault Options.DefaultFilePath(Path:=wdDocumentsPath) = ("C:\Documents and Settings\<my name>\My Documents\Household") End Sub ********************************** This works fine with a newly created file. When I first save it, the Save As dialogue is in the "Household" folder. It doesn't work for boilerplate files that have been set as Read Only in the desktop. When I open such a file, I immediately get prompted to Save As in the folder in which the boilerplate is located. I press Esc and run the above macro, then attempt to Save As. The Save As dialogue still defaults to the boilerplate file's folder, not to Household. Is there any way to force a change in the default Save As folder in this situation? (Note: ChangeFileOpenDirectory doesn't work either.) Thanks. Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73977
 - 2
 - change my office word from arabic to the english version how can i change my office word from only arabic version to english version with out losing the arabic language in the program? Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73971
 - 3
 - AutoNum field in 2003 I have two tables that are separated by a blank line. I need to use AutoNum fields in each table; each starting with the number 1. I have read the help and other questions here, but everything I have tried is to no avail. I have tried formatting the first blank line before the Table Heading as Heading 2 (style was modified but name remains Heading 2). The first blank line before the second Table Heading was formatted as Heading 3 (style was also modified but name remains Heading 3). According to Help this was suppposed to work. I also tried the SEQ field but numbers do not auto advance. And ListNum doesn't do it either. Is there an undocumented switch I could add to the field to make it restart the numbering in the second table? Is there a VB solution I could use instead of using fields? Thanks Jack Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73960
 - 4
 - open & close file with vba This subroutine works fine the first time it is called. After that, the following message pops up, "There is not enough memory or disk space to complete the operation". I have to exit Word and restart to run the macro again. If I don't save the file it works OK. If I take out the file save in the routine but close the document manually I will still get the error message. I'm baffled!!! Thanks for looking at this, Bill Sub PrintNewCheck() 'string fields have been set by previous sub Const CHECK_DOC = "C:\Users\Overhead\QB\qb_blank.doc" Dim iResponse As Integer Dim oDoc As Document Set oDoc = Application.Documents.Open(CHECK_DOC, AddToRecentFiles:=False) With ActiveDocument .FormFields("Date").Result = sDateField .FormFields("PayTo").Result = sPayToField .FormFields("Money").Result = sMoneyField .FormFields("DollarLine").Result = sDollarLineField .FormFields("Memo").Result = sMemoField iResponse = MsgBox("OK to print?", vbYesNo) If iResponse = vbYes Then .PrintOut End If End With oDoc.Close wdDoNotSaveChanges Set oDoc = Nothing End Sub Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73955
 - 5
 - Formatting caption to match the previous paragraph Hi I would appreciate some help in coding a macro that finds each instance of a caption style in a document and sets the caption to the same left indent value as its preceding paragraph. My Caption style is called ARTableCaption My 3 possible paragraph styles which preceed each caption are: ARBodyText Level1 Left Indent 1 cm ARBodyText Level2 Left Indent 2 cm ARBodyText Level3 Left Indent 3.25 cm This is my code so far, but it is not working. With ActiveDocument.Content.Find .Style = "ARTableCaption" Do While .Execute(FindText:="", Forward:=True, _ Format:=True) = True Selection.MoveUp Unit:=wdLine, Count:=1 If Selection.Style = ActiveDocument.Styles("ARBodyText Level1") Then Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(1) .RightIndent = CentimetersToPoints(0) End With End If End With ... Loop Thanks Heather Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73945
 - 6
 - Hot to put whjole text into a string? If I select the whole document and I write: a$ = selection.text I will NOT have the whole document into the variable, but just the FIRST PARAGRAPH!!! How can I store the whole document into one variable? Or, how can I parse all paragrpahs one by one? -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200509/1 Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73943
 - 7
 - id for buttons in word 2000 Hi, I Need the ID's for some mailmerge buttons in Word 2000: the button for mailmerge with destination new document, destination printer and destination e-mail if they already exist in 2000 (they do in word 2002). Otherwise the general button for executing a mailmerge. Easy to retrieve for someone with Word 2000 and BuiltInControlsScanner. http://www.add-in-express.com/files/BuiltInControlsScanner.exe Thanks in advance Tom Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73942
 - 8
 - Help me with a simple MS macro Hi, I want amend my macro that finds all instances of bold text in a document and puts the text between and . This macro, however, formats the tags themselves in bold. I want them in a non-bold (normal) and blue typeface. Thanks! Here is the macro: Sub BoldToTagged() ' ' BoldToTagged Macro ' Macro created 16.9.2005 by Ivaylo T Ivanov ' Finds all instances of bold text and puts the text between and tags ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue .Format = True .Font.Bold = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73939
 - 9
 - Insert Text From Opened Access Form As .body is a property in Outlook, is there a similar one for a standard Word document? Can an already-opened Word document's main body be referenced? I have successfully migrated an already-opened Access form field into an Outlook email message body by using a .body = Forms![Main]![List] type of code and would like to do the same in word without having to perform merge-related coding, if possible. Thanks Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73936
 - 10
 - Word X "unexpectedly quits" while running a macro I'm having a problem withina Word macro while trying to open an Excel workbook. Oh yeah, and this is running on OS X 10.4 with Word X and Excel X. Here is the code, which I "borrowed": Public Sub GetExcelData() Dim oXlApp As Excel.Application Dim oXlBook As Excel.Workbook Dim oXlSheet As Excel.Worksheet Dim oXLRange As Excel.Range Dim bXlStarted As Boolean Dim sExcelText As String Dim sFileName As String On Error Resume Next 'Grab running Excel instance Set oXlApp =3D GetObject(, "Excel.Application") If Err <> 0 Then 'Excel wasn't running 'start it from code Set oXlApp =3D CreateObject("Excel.Application") bXlStarted =3D True End If On Error GoTo 0 sFileName =3D _ "/Users/Admin/Desktop/Comment Sheet Work Vol2/Comment-7th-sem3-2005.xls" MsgBox "File name is " & sFileName 'Get the workbook Set oXlBook =3D oXlApp.Workbooks.Open(FileName:=3DsFileName) As I step through the code, after the last "Set" statement above to open the Workbook, Word dies with the message "The application Word quit unexpectedly." There is a report option, which when I click the button displays lots of dump info such as: Date/Time: 2005-09-14 20:59:13.273 -0400 OS Version: 10.4.2 (Build 8C46) Report Version: 3 Command: Microsoft Word Path: /Applications/Microsoft Office X/Microsoft Word Parent: WindowServer [63] Version: 10.1.6 (10.1.6 (040913), =A9 1983-2001 Microsoft Corporation. All rights reserved.) PID: 7329 Thread: 0 Exception: EXC_BAD_ACCESS (0x0001) Codes: KERN_PROTECTION_FAILURE (0x0002) at 0x00000000 Thread 0 Crashed: 0 oaremZ 0x07312c88 0x72ffb00 + 78216 1 oaremZ 0x07314584 0x72ffb00 + 84612 2 <<00000000>> 0x07da77f4 0 + 131758068 3 <<00000000>> 0x07da77f4 0 + 131758068 4 VBE 0x075567a8 0x73b5000 + 1709992 5 VBE 0x07543724 0x73b5000 + 1632036 6 <<00000000>> 0x05c88c94 0 + 97029268 7 <<00000000>> 0x07da5d60 0 + 131751264 8 VBE 0x075567a8 0x73b5000 + 1709992 9 VBE 0x07543724 0x73b5000 + 1632036 10 VBE 0x07543574 0x73b5000 + 1631604 11 VBE 0x075ddff0 0x73b5000 + 2265072 12 VBE 0x075ddeb4 0x73b5000 + 2264756 13 VBE 0x074f41f8 0x73b5000 + 1307128 14 VBE 0x074d48f0 0x73b5000 + 1177840 15 VBE 0x074b56d8 0x73b5000 + 1050328 16 VBE 0x07414f00 0x73b5000 + 392960 17 VBE 0x074763d4 0x73b5000 + 791508 18 Microsoft_Office_2001Z 0x0105364c 0x1008000 + 308812 19 Microsoft_Office_2001Z 0x01053438 0x1008000 + 308280 20 Microsoft_Office_2001Z 0x0105334c 0x1008000 + 308044 21 Microsoft_Office_2001Z 0x01051d9c 0x1008000 + 302492 22 MCPZ.stb 0x005d84a8 0x5c59d0 + 76504 23 MCPZ.stb 0x005d83ac 0x5c59d0 + 76252 24 com.apple.HIToolbox 0x931288d4 DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*, HandlerCallRec*) + 692 25 com.apple.HIToolbox 0x9312802c SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*, HandlerCallRec*) + 372 26 com.apple.HIToolbox 0x93127ea8 SendEventToEventTargetWithOptions + 40 27 com.apple.HIToolbox 0x9312f1ec ToolboxEventDispatcherHandler(OpaqueEventHandlerCallRef*, OpaqueEventRef*, void*) + 704 28 com.apple.HIToolbox 0x93128b24 DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*, HandlerCallRec*) + 1284 29 com.apple.HIToolbox 0x9312802c SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*, HandlerCallRec*) + 372 30 com.apple.HIToolbox 0x9312edb0 SendEventToEventTarget + 40 31 MCPZ.stb 0x005fb530 0x5c59d0 + 220000 32 Microsoft Word 0x020da0d0 0x2008000 + 860368 33 Microsoft Word 0x0201d1e0 0x2008000 + 86496 34 Microsoft_Office_2001Z 0x01021964 0x1008000 + 104804 35 Microsoft Word 0x0201cc28 0x2008000 + 85032 and much more.... So what next? I'm not sure what would be the best approach. It seems like a defect, code trying to go someplace it should not, but what code? Word? Excel? VBA? and how do I report it to Microsoft? Could it be somthing else? Any suggestions about this problem would be appreciated. Thanks, Tom Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73935
 - 11
 - Scaling Pictures with VBA Hello I contacted Discussion Groups a few weeks ago because I wanted to scale imported pictures to 50%, 25%, 75% etc of their size using code, and Jean-Guy Marcil gave me some code that I really appreciated. However, I have hit a snag. The pictures are logos, and are pictures and text, when Word imports them it fits them across the margins, changing the size of the logo which will now appear as, eg 55% of the original. When I wrote the routine for scaling the macro I took this into account, eg 50% was half of 55% and so on. However, to my horror I now see that Word uses the existing margins and orientation of the current document, so what was 55% in portrait changes when you import it as landscape. Help!!! Does anyone have an idea of how I can write the code to look at the proprotions of the graphic as displayed in the height and width boxes of the Size properties in the Format dialogue box? Hope I am explaining this correctly. The code as provided by Jean-Guy at present is: With Selection Select Case .Type Case 7 'Inline shape .InlineShapes(1).ScaleHeight = 50 .InlineShapes(1).ScaleWidth = 50 Case 8 'Floating picture .ShapeRange(1).ScaleHeight 0.5, True .ShapeRange(1).ScaleWidth 0.5, True Case Else MsgBox "The current selection is not a picture." _ & vbCrLf & "Make sure you select only the picture itself.", _ vbExclamation, "Error" End Select End With Thanks for any help you can give. Aehan Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73933
 - 12
 - Word Programming - issue with Word versions and automation I have a program (DOT) running behind Msword via an application. One of the automation is to save the active document using MS DOS With Layout format to retain formatting etcetera. This works fine in Word 97/2000/XP. However, in Word 2003, use of this converter requires InsertLineBreaks:=True so that line breaks are inserted (without this a paragraph ends up as a single line in ASC file). Does anybody know a workaround method where the same program can work for all versions without major changes? -- AminC Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73927
 - 13
 - How to find a bookmark's parent bookmarks? Given an instance of Microsoft.Office.Tools.Word.Bookmark, is there a way to determine any surrounding bookmarks? I want to know all the bookmarks that contain the range of a given bookmark. Thoughts? Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73926
 - 14
 - Find and Replace in 2000 I have a macro that finds certain values and replaces them with bold versions of the values. The macro works fine in Word 2003, but fails in Word 2000 even though the macro was made in Word 2000. Is there a problem with the find and replace functionality in Word 2000? How do I do a find and replace in Word 2000, if it is even possible? Here is the error I get when I try to run the macro in Word 2000..... "Invalid procedure call or argument" Here is some of the code..... Dim oRng as Range Set oRng = Doc.Range With oRng.Find .Text = "Test Value" !!!!!!ERROR OCCURS HERE!!!!!!! .Replacement.Text = "Test Value" .Replacement.Font.Bold = True End With Thanks, ACFalcon Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73920
 - 15
 - Macro "Remembers" Breaks and Comment Marks from Prev Run I am running a macro, and inserting breaks and commenting out some lines, in order to debug it. Later, when I re-run the macro, it breaks at the locations where I previously inserted breaks, and does not execute the lines where at one time I put comment marks. It seems to "remember" what I previously inserted, though these things are not in the code. I have tried recreating the button in the Word template, but that didn't work. I am running Windows 5.1 SP1 on an XP, and Word 2003 SP1. -- Nancy Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73918
 - 16
 - Call a macro from a hyperlink in word Is there a way to create a hyperlink in a word document (using VBA) that will call a macro? Thanks, Heidi Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73917
 - 17
 - How do I create a print macro in a form? I have a form that I wish to apply a print icon and when it's double clicked, it will print out a copy.-- Pam Eggleston Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73914
 - 18
 - Problem with object "CheckBox" Hi all, Does anyone know how can I get the value of the object "CheckBox" for programming in VBA of Word. My situation is I create a WordTemplate with a list of CheckBox(es). I add a event "DocumentBeforePrint" for this template, what i want is before I print a document take a check of the value of all the "Checkbox(es)", if true then display the "Checkbox", else not. Problem is I don't know how to collect all the checkbox(es) object. Does anyone can tell me how? Thanks! Regards, Pat Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73912
 - 19
 - Help solving problem with macro code that repeats itself I have a problem with one of the word templates I converted from word 6 to word 2000. The macro code runs twice instead of once and I don't know why. The other documents uses the same macro but the run once as they are suppose to. Here is code I use in the macro to update the fields: Public Sub main() Dim oField As Field Dim oSection As Section Dim oHeader As HeaderFooter Dim oFooter As HeaderFooter For Each oSection In ActiveDocument.Sections For Each oHeader In oSection.Headers If oHeader.Exists Then For Each oField In oHeader.Range.Fields oField.Update Next oField End If Next oHeader For Each oFooter In oSection.Footers If oFooter.Exists Then For Each oField In oFooter.Range.Fields oField.Update Next oField End If Next oFooter Next oSection End Sub Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73909
 - 20
 - Macro Help Hi, I have a macro setup to print to certain printer. After I run the macro it sets that printer as default. Is it possible to run the macro and not have word retain this printer as default. This is the part I think sets the printer as default: 'printer instructions: ActivePrinter = "\\Harmonfs3\certified" Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 WordBasic.FileClose 2 Bye: Any help would be appreciated, Domenic Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73908
 - 21
 - Add an Excel Range into Word Hi, I try to keep it simple. By using VBA, I try to link a Range within Excel ("MyRange") into a Text box ("MyTextbox") in Word. I currently use 2003. I am using: "InlineShapes.AddOLEObject" method, but it does not seem to work. What is the correct syntax? Any suggestion? Thanks Francisco Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73903
 - 22
 - vba excel warning message hi i've got an excel workbook open as readonly and i need to open the same as writable to write some data. Set XL_WB = XL_App.Workbooks.Open(FileName:=EXCEL_FILENAME, ReadOnly:=True) Set XL_WB_tmp = XL_App.Workbooks.Open(FileName:=EXCEL_FILENAME, _ ReadOnly:=False, _ IgnoreReadOnlyRecommended:=True) but i keep getting a warning message saying the file is open and that discarding the file wud result in changes being lost ... how to avoid this? i DON'T want to close the readonly file. the excel file is shared resource file. multiple users would access the file in readonly mode. atleast in theory ... please help Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73893
 - 23
 - vba search for other language hi i'm searching excel for some text typed in word using vba. it works in english, but not when the text is in the language i'm working on. its DI named Divehi in the windows language settings environment. DI is a complex, right to left writing language. has any had problems with other languages when using vba search? please help thanx riyaz Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73891
 - 24
 - BaseName help - Can't access/grab text I'm trying to take a merged document, have the VB macro chop each range as a separate file and save it as a filename specified by the first field. For instance, if the first line of text (field is called "story") in the merged range appears as "car", I would want the file saved as C:\car001.doc However, I'm having trouble with the BaseName creation to actually grab that text from the first line in the document. Please help!?! Sub Splitter() Selection.EndKey Unit:=wdStory numlets = Selection.Information(wdActiveEndSectionNumber) If numlets > 1 Then numlets = numlets - 1 Selection.HomeKey Unit:=wdStory For Counter = 1 To numlets BaseName = "c:\" + ActiveDocument.Bookmarks.Field("story") DocName = BaseName & Right$("000" & LTrim$(Str$(Counter)), 3) ActiveDocument.Sections.First.Range.Cut Documents.Add Selection.Paste Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.SaveAs FileName:=DocName ActiveWindow.Close Next Counter End Sub Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73889
 - 25
 - make autocorrect in microsoft word a more "intelligent" program First, I have to clarify that I use Microsoft Office 2000. My suggestion is regarding the autocorrect feature in Microsoft Word. Right now, there is a way to add words so that, in the future, MS Word will autocorrect misspelling and typos. However, it would be really, really great if MS Word can "learn" to auto-add words/correction based on frequent patterns of misspelled words and corrections made. In other words, if I frequently type "presense" instead of "presence" and correct it, it would be helpful if MS Word could keep track of this mistake/correction pattern and auto-add it to the autocorrect list after, say, 5+ times of the same mistake/correction. Of course, I don't know if this is already a feature in Word 2003? ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=12672a3f-380e-48ed-824a-a7b4feca8b2f&dg=microsoft.public.word.vba.general Tag: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Tag: 73888

Trying to convert same english text to forgein language - chinese,
ukrainian, and spanish

Re: HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE by Jonathan

Jonathan
Tue Sep 20 15:44:50 CDT 2005

"Curious in Seattle" <Curious in Seattle@discussions.microsoft.com> wrote in
message news:60A303C1-C811-406A-9811-A4160B2504AB@microsoft.com...
> Trying to convert same english text to forgein language - chinese,
> ukrainian, and spanish

This has nothing to do with Word, but here is a pointer anyway.

For machine translation, which will get you horribly mangled but just about
intelligible text in the target language, take a look here
http://www.babelfish.org/web-translation-vendor.htm

If you want a decent translation with good grammar and clear meaning in the
target language, hire a proper translator

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top