moving cursor with .vbs file?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Autofit to window IF it extend across page Hi folks, I haven't any experience with Word VBA and just a little with Excel VBA. However, despite the fact I don't have a clue what I'm doing, I've been able to create an Excel macro to paste all of my nice formatted tables into a new Word document. However... As I anticipated, there are a few problems. The dimensions of my tables can be of varying size. Some have only a a few columns and rows...and some have many columns and rows. So I'm hoping someone knows how I could write some code to be able to handle these particular circumstances. I think I have a grasp on the logic I need, just not the code that would be needed to accomplish the task. It would go something like this (not actual code): For each table in the active document If the table is too wide for the page do this Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) End If If the table is too long for the page prompt user to indicate how many header rows there are select those first rows and activate the 'header row repeat' End If "if the table fits on the page both horizontally and vertically--do nothing" Next table Any ideas? Tag: moving cursor with .vbs file? Tag: 63788
  - 2
    - creating a single action in the undo buffer I have a Word add-in that manipulate the document. My problem is that every single manipulation gets to into the undo buffer as a seperate action. I would like to combine these into one undo action so that when the user clicks "undo" they undo all of what my add-in has done. Can this be done in Word 2003? Tag: moving cursor with .vbs file? Tag: 63787
  - 3
    - shell problem Why isnt the shell working? The shell command is supposed to send data to a text file called "x.txt" but the returnvalue is = -1 everytime i run it and therefore it never even executes The command i am trying to execute works when i type the exact same string on the command line. Is the command to long? here is the code The module : Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ lpStartupInfo As STARTUPINFO, lpProcessInformation As _ PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal _ hObject As Long) As Long Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1& Public Const SW_HIDE = 0 Public Const SW_MAXIMIZE = 3 Public Const SW_MINIMIZE = 6 Public Const SW_NORMAL = 1 Public Const STARTF_USESHOWWINDOW = &H1 Public Sub ExecCmd(cmdline$) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim ReturnValue As Integer ' Initialize the STARTUPINFO structure: start.dwFlags = STARTF_USESHOWWINDOW start.cb = Len(start) start.wShowWindow = 6 ' Start the shelled application: ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _ NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) ' Wait for the shelled application to finish: Do ReturnValue = WaitForSingleObject(proc.hProcess, 0) DoEvents Loop Until ReturnValue <> 258 ReturnValue = CloseHandle(proc.hProcess) End Sub The code in the sub procedure : strShell = "gram-ga.pl C:\TextFromWord.txt --aspell --output C:\ErrorsFromWord.txt --api" ExecCmd strShell Tag: moving cursor with .vbs file? Tag: 63783
  - 4
    - Jezebel or other helper Hi, I was wondering if you would take a look at my prior post "How to reference Userform in another project." I have responded to your suggestion but still need help. Thank you! -- singeredel Tag: moving cursor with .vbs file? Tag: 63781
  - 5
    - Capture Autonumber; write as text? I was given a document to use as a report "boiler plate". The doc, though, is full of Autonumbered paragraphs and headers - all of which are going to change when I rewrite this report. Can a macro go through the doc and capture the text of any and all automatically numbered paragraphs, delete the automatically generated number, and replace it with the plain text of the number that was deleted? Ed Tag: moving cursor with .vbs file? Tag: 63769
  - 6
    - delete all bookmarks in file Can a macro delete all bookmarks in a file? I want to be able to delete all of them without knowing in advance how many there are, since the number will vary from file to file. I'm using Word XP. Tag: moving cursor with .vbs file? Tag: 63767
  - 7
    - FillIn or MergeField from VB I'm trying to insert data from a recordset into Word fields.(not sure if Fillin or MergeField would be best appropiate) - How I'd like to use it? I'd like to use the Field Name to retrieve from rstemp(Fields.Name) that way I can use different templates with same functionality. The template will determine the fields that would get populate it from the rstemp Any help would be appreciate it Tag: moving cursor with .vbs file? Tag: 63763
  - 8
    - How do I get the year before the savedate of a document? I have got this document that I have to print every year and I want to automize it. So, I am creating a template with all things that are nearly the same for each year. This includes the year it was saved in the header (no problem there, SaveDate \@YYYY does the trick) but I also need the year before that. This is my problem, I cannot do any calculations on the SaveDate it seems or if I can, I must be doing it all wrong. Can somebody help me out? Tag: moving cursor with .vbs file? Tag: 63762
  - 9
    - VB Solution required! I am hoping someone can help. In every letter we send by mail merging, we have a field FULLUSER. we also need an email address, but this is not available form the data source - and never will be. So, what I need to know is if VB could be used to split the text string FULLUSER into two strings, using the blank space present between first and second names. I could then use these two strings, with a full stop in the middle, to make the email address. Or maybe easier to replace the space with a full stop, but it would still have to be a new string as FULLUSER is used on each letter. Sorry if my use of the term 'string' is wrong - I am going back to when I used extended basic, and I seem to remember you could cut text strings in this way? I do hope somone can help... The only alternative is a lookup table, but that seems a bit messy on each of 1000+ letters! Tag: moving cursor with .vbs file? Tag: 63756
  - 10
    - Manipulating embeded exccel in word (Repost) Hi there, I have seen quite a few posts on this and know it is "easily" accomplished, however I have a bit of a different requirement. I have a Word document that I have embedded the following: - 1 Sheet that holds score data that users can edit within word - 6 Graphs (from the same workbook) that report the data in different ways. What I want to happen is that when the data in the embedded worksheet is edited, then all the other graphs update to reflect the edited data or scores. Any ideas ? I have one, which is to cycle through each embedded chart and copy the data scores from the embedded sheet to the relevant sheet that the chart is linked to - but is there another way ? Also as an aside - Is there a way to rename the objects ? Rather than the arbitarily named 'ActiveDocument.Shapes("Object 3").Select' This is a problem if you ever have to delete an then add embedded objects Thanks in advance Jason Tag: moving cursor with .vbs file? Tag: 63751
  - 11
    - Cursor Position in Textcolumns Hi, I have looked wherever I can but I just can't find a reliable way of checking which textcolumn am I, in the code. I have tried the Information(wdHorizontalPositionRelativeToPage),which unforunately just about anywhere gives me a -1, no reason at all. EVEN WHEN I HAVE ONLY A SINGLE LINE selected. 100% zoom in page view is the default. Next try has been the distancefromright and left in the hope of getting the position wrt to the page end. No help again. Is there a reliable way of knowing the current textcolumn of the cell/range/row/selection/insertion point? Ohh: I have 2 textcols, filled with a table. I am interating through the rows. I need to do something specific for each row in the second text column. I just can't triangulate the poistion. Each row may have a variable number of cells. Please help if someone has seen something like this. Thanks. Tag: moving cursor with .vbs file? Tag: 63749
  - 12
    - Help with sub to change source file name for source links Hello. I am try to write a sub to automate the process of changing all of the Excel links in a Word doc by having the user point and click the new file. There are over 200 links in each doc and they are set to update manually. These links represent both in-line text and pictures (not .jpg but Excel tables pasted as linked pictures). If I step through the code I now have (below), the first link will change correctly, however, the remaining links do not change and it appears that the sub is caught in a loop. Any help is greatly appreciated. Thanks! -------- Public Sub LinkToExcel() ' Early Binding required Dim xlApp As Excel.Application Dim xlWkb As Excel.Workbook Dim strWorkbook As String Dim strDefaultDir As String Dim fldField As Field strDefaultDir = "C:\" With Dialogs(wdDialogFileOpen) .Name = "*.xls" ChangeFileOpenDirectory strDefaultDir If .Display = -1 Then strWorkbook = CurDir & Application.PathSeparator & Replace (.Name, Chr(34), "") Set xlApp = CreateObject("Excel.Application") Set xlWkb = xlApp.Workbooks.Open(strWorkbook) For Each fldField In ActiveDocument.Fields If fldField.Type = wdFieldLink Then With fldField.LinkFormat .SourceFullName = strWorkbook .AutoUpdate = False End With End If Next fldField xlWkb.Close False xlApp.Quit Set xlWkb = Nothing Set xlApp = Nothing End If End With End Sub -- Message posted via http://www.officekb.com Tag: moving cursor with .vbs file? Tag: 63748
  - 13
    - Removing the top 2 lines of each page on a document I'm trying to put together a macro that goes to the beginning of the document and deletes the top 2 lines (both extra blank lines needing to be removed), then moves to the next page and deletes the top 2 lines, and so on until it reaches the end of the document. Once it reaches the end, I want it to stop. But I've got a problem, because it's not working. Please assist. Here's my code so far: Sub Step3() Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.ClearFormatting ActiveDocument.Range(0, 0).Select Do While .Execute On Error Resume Next Selection.Collapse Direction:=wdCollapseStart Selection.MoveUp Unit:=wdLine, Count:=2 Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend Selection.Delete Selection.MoveEndUntil Cset:=vbCr, Count:=wdForward Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend If Selection.Range.End = ActiveDocument.Range.End Then ActiveDocument.Range(0, 0).Select Exit Sub End If Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Collapse wdCollapseEnd Loop ActiveDocument.Range(0, 0).Select End Sub Tag: moving cursor with .vbs file? Tag: 63747
  - 14
    - Positioning of option button ActiveX controls in Word I'm working in Word 2002 SP-2, and have created a table containing option buttons which have been manually placed from the Control Toolbox into the table. After creating the table, I protected the section of the document that the table was in, and then saved it as a template. I have two questions: 1. After I saved the document as a template, the option buttons were no longer mutually exclusive, even though each option button in a group was given the same Groupname property. I used some code to force the other values in the group to be False when one of the buttons was clicked, but I thought this wasn't now necessary? Does this have anything to do with the option button controls belonging to the Shapes collection, rather than Inline Shapes? 2. When a user creates a document from this template, she finds that all the option buttons in each row have all piled up on top of each other at the left hand margin, and are no longer separated out across the page. Again, does this have anything to do with them being Shapes? Is there anything I can do to prevent this happening? The option buttons are OK in the original template. Thank you in advance for any help you can give. Tag: moving cursor with .vbs file? Tag: 63732
  - 15
    - WordBasic and Word 2003 SP3?? - (Not) Printing markup This is a slightly modified repost of a question I posted earlier in this group. I really hope someone helps me out! I've been writing a macro including a UserForm, in order to be able to print (one or more) documents either with or without markup (comments or revisions) showing, or as shown on screen, depending on the value of a checkbox. My question: this works well in the beginning. But: after having printed one or more documents WITHOUT markup, and thereafter the same document(s) 'as shown' or WITH markup, no balloons are printed anymore for these same documents, although the balloons still do show on screen. Part of the code I wrote (part of a loop for each selected document; name of the checkbox = CheckMarkup): *** With Documents(...) 'the particular open document If CheckMarkup = True Then 'print with markup showing With .ActiveWindow.View If .RevisionsMode <> wdBalloonRevisions Then _ .RevisionsMode = wdBalloonRevisions 'always show revisions as balloons .ShowRevisionsAndComments = True .ShowFormatChanges = True .ShowInsertionsAndDeletions = True End With PrintMarkup = wdPrintDocumentWithMarkup 'variable to be used later with PrintOut command ElseIf CheckMarkup.Value = False Then 'no markup PrintMarkup = wdPrintDocumentContent ElseIf IsNull(CheckMarkup.Value) = True Then 'triplestate enabled; print as shown If (.Revisions.Count = 0 And .Comments.Count = 0) Then 'no revisions, no comments present PrintMarkup = wdPrintDocumentContent ElseIf .ActiveWindow.View.ShowRevisionsAndComments = False And _ .ActiveWindow.View.ShowFormatChanges = False And _ .ActiveWindow.View.ShowInsertionsAndDeletions = False Then 'no markup visible PrintMarkup = wdPrintDocumentContent Else 'markup visible PrintMarkup = wdPrintDocumentWithMarkup End If End If .PrintOut Item:=PrintMarkup 'print the relevant way '... (restoring the Show* properties when necessary) End With *** Does anyone know what is happening? As far as I'm aware of I'm using the right properties, or do I miss one or more? Moreover: in order to check what happens I recorded some macros. When I applied menu choices View > Markup I was really astonished to find the statement WordBasic.ViewChanges being recorded. And as astonished to find WordBasic.ShowComments for changing the Show-option for comments (on the Reviewing toolbar). I couldn't find any documentation on this, nor were these statements present in Word95 or Word97. Can anyone explain this to me? Thanks in advance for any advice! Peter Tag: moving cursor with .vbs file? Tag: 63729
  - 16
    - word pop menu i am trying to add a popup menu to word where if a word is underlined it will have an extra menu item when it is right-clicked. However if another word is right-clicked that is not underlined then i do not want the menu item to be on the popup menu Here is my code <code> Dim ShortCutMenu As CommandBar Dim Menu As CommandBarPopup Dim ctrl As CommandBarControl If Selection.Font.Underline = wdUnderlineWavy Then With Selection .Expand wdWord ' Select insertion point word. ' Deselect any trailing spaces. Do While Right(.Text, 1) = Chr(32) .MoveLeft Unit:=wdCharacter, _ Count:=1, Extend:=wdExtend Loop selWord$ = Trim(.Text) ' Store selection. MsgBox selWord$ Set ShortCutMenu = CommandBars("text") Set Menu = ShortCutMenu.Controls.Add(Type:=msoControlPopup, temporary:=True) With Menu .BeginGroup = True .Caption = "&MenuItem" ' .OnAction = "AccessThesaurusMenu" End With System.Cursor = wdCursorWait Set Menu = CommandBars.ActionControl End With Else Menu.Delete(false) End If </code> This does not work. If it does add the menu item, it cannot be deletedAny help would be much appreciated Tag: moving cursor with .vbs file? Tag: 63728
  - 17
    - Problem with mail editor Word instance The primary user interface in my Word 2003 VBA application (running in XP-environment) is an extension added to Words menu bar. The Customization Context is set to NomalTemplate. Problems occur when Word is used as the Outlook Editor. If the user (after computer booting) starts with mail editing, the menu works OK in the mail editor Word instance. However, if the user then adds another instance by clicking on the Word application icon, my added menu does not work. Any ideas of a work around ? /Bosse H Tag: moving cursor with .vbs file? Tag: 63726
  - 18
    - Change the properties of pictures Hi; I am using VB6 to read a microsoft word doc, i have a problem in converting shape to inlineShape, below is my code: Dim shp as shape For each shp in ActiveDocument.shapes shp.convertToInlineShape next I understand that shape has many msoShapeType, does this determine on whether a shape can be converted to inlineShape? and if it is, can it still be converted to inlineShape by using other method? Hope you can help me, thank you. Tag: moving cursor with .vbs file? Tag: 63717
  - 19
    - selecting a variable number of rows in a table Hi All, I desire to select a variable number of rows in a table between two strings of text. The first cell to be selected is always Cell Column A, Row 3. Cell A aobve the last row to be selected reliably has the words "Ongoing Meds". The number of rows to be selected varies. The following is a table with borders, but I do not know if it will show in a newsgroup. I am using Word 2003, Windows XP. Note: this table usually adds some information at each visit http: //www.coremedicalconcepts.com PMH: HBP, PVD, spinal stenosis C4-5, BPH, hyperlipidemia, aortoiliac bypass '83, hernia '87, femoral thromboarterectomy and fem-pop '91 Occupation: FH: unknown Problem Progress List 09-01-04 3-16-03 3/28/02 03/15/01 05/10/00 02/21/00 09/03/99 6/98 cholesterol - HDL 150-61 161-58 166-54 172-47 172-48 206-53 253-47 183-56 LDL -- trigly 74-73 85-89 91-106 104-106 105-96 135-91 185-103 ' " weight ® pap-mammogram-PSA CBC ESR CMP UA TSH (nl: 0.4-5.5) colonoscopy DEXA --- ; 0.6 wnl wnl - - -- 0.75 wnl wnl - - other Ongoing Meds Past meds used & notes about them below: vytorin 10-40 1 q hs x 11-24-04 formulary change; lipitor 40 mg q hs ; x 8/20/01; 20 mg q hs ; x 02/21/00 qs 6 mos; previously, 10 mg q hs x 11/99; before that, pravachol and lescol table truncated ... /// ... tia, :) Gil Tag: moving cursor with .vbs file? Tag: 63706
  - 20
    - Deleting top 2 lines of each page I'm trying to put together a macro that goes to the beginning of the document and deletes the top 2 lines (both extra blank lines needing to be removed), then moves to the next page and deletes the top 2 lines, and so on until it reaches the end of the document. Once it reaches the end, I want it to stop. But I've got a problem, because it's not working. Please assist. Here's my code so far: Sub Step3() Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.ClearFormatting ActiveDocument.Range(0, 0).Select Do While .Execute On Error Resume Next Selection.Collapse Direction:=wdCollapseStart Selection.MoveUp Unit:=wdLine, Count:=2 Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend Selection.Delete Selection.MoveEndUntil Cset:=vbCr, Count:=wdForward Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend If Selection.Range.End = ActiveDocument.Range.End Then ActiveDocument.Range(0, 0).Select Exit Sub End If Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Collapse wdCollapseEnd Loop ActiveDocument.Range(0, 0).Select End Sub Tag: moving cursor with .vbs file? Tag: 63704
  - 21
    - macro in word table I am trying to write a macro that will ask the user to input a start time. This time is in 12 hour time. The macro needs to add 15 minutes and then paste the time range together in one cell. How do I get it to do this? It should look like this, input time is 3:15, then add 15 minutes to get 3:30. Then paste them in the cell like this 3:15-3:30. If anyone can help that would be great. Thanks, David Tag: moving cursor with .vbs file? Tag: 63700
  - 22
    - Hide input keystrokes Can an input box be customized in vba to hide the input keystrokes with dots or astericks, like a password input box? Tag: moving cursor with .vbs file? Tag: 63699
  - 23
    - Macro to accept revisions I have tried 47 ways to create a macro that accepts a (selected) revision, and skips to the next revision. None of them work. Has anyone had any luck doing this? Many thanks. Tom Kreutz P.S. I'm using Word 2003 on Windows 2000 Tag: moving cursor with .vbs file? Tag: 63686
  - 24
    - underline with color I am trying to underline with a wavy coloured line however the wavy line is appearing but there it is gray and no matter what colour i use it is always gray. Here is the code i am using : font.UnderlineColor = wdColorTurquoise Any ideas why this is happening? Tag: moving cursor with .vbs file? Tag: 63685
  - 25
    - menu how would i create a menu that drops down when u right-click a certain word in a word document. just like in a spell and grammar check? Tag: moving cursor with .vbs file? Tag: 63680
- Next
  - 1
    - How do I determine current column and lines left in column? Any ideas how I can determine 1) which column I'm currently in and 2) how many lines are left from the insertion point to the bottom of the column/top of the next column. I'm using VB6 with Word to dynamically (no template) create a three (3) column/ two(2) page legal size layout that will be used for a folding brochure. I'm populating the columns from an ADO recordset. Depending on the data, I may need to insert special messages at the bottom/top of any column. For example I may need to insert a literal string message at the bottom of a column if the text in that column meets certain criteria. Any help would be appreciated. Hopefully this hasn't been too confusing of a post. Tag: moving cursor with .vbs file? Tag: 63679
  - 2
    - file exists question Hi All, I am seeking code to find if a file exists on the user's computer. The file might be named something like "c:/TestFolder/" & variableABC. So, something like: If file exists "c:/TestFolder/" & variableABC Then Application.Run MacroName:="Project.NewMacros.test" End If tia, Gil Tag: moving cursor with .vbs file? Tag: 63675
  - 3
    - search for word in word doc I want to write code so that if a word in a variable in the vba behind word is equal to a word in the word document, it changes that word in the document to bold. How would i do that? Tag: moving cursor with .vbs file? Tag: 63673
  - 4
    - search for word in word doc I want to write code so that if a word in a variable in the vba behind word is equal to a word in the word document, it changes that word in the document to bold. How would i do that? Tag: moving cursor with .vbs file? Tag: 63672
  - 5
    - How do I get the drop down feature to work in Word 2003? I am creating a form and trying to use the drop-down form field and check box form field in the form. I'm able to add my selections in the drop-down dialog box, but when I go to choose in the form--can't. Have have a check in the Fill-in Enabled box. I can not get the check boxes to work in the form either. Tag: moving cursor with .vbs file? Tag: 63671
  - 6
    - Save to users templates folder I need to distribute a Word tutorial and a test. The test requires a template I have created. I thought I could use an autoexec macro to save it to c:\documents and settings\%username%\application data\microsoft\templates\testtemplate.dot but it seems that %username% creates an error. Is there any way I can achieve my aim programatically please? -- Many thanks Wicked Wizard Tag: moving cursor with .vbs file? Tag: 63669
  - 7
    - I want to open my documents in FINAL View but they open in Mark U. Will someone please tell me how to reset the default opening of my Word Documents to FINAL (for opening saved documents). I used the Mark Up View once and seem to be stuck with it forever! HELP! Tag: moving cursor with .vbs file? Tag: 63668
  - 8
    - Start of Word does not fire AutoExec-macro My Word 2003 VBA-application (in XP-environment) is dependent on an autoexec-macro, supposed to be fired when Word starts. My code is contained in Words startup directory and it works as expected on all computers but one. Any ideas why this beast does not execute the autoexec-procedure? /BosseH Tag: moving cursor with .vbs file? Tag: 63666
  - 9
    - Macro in document availablke only to one user I have written a macro in a document on a shared network drive. When I open any document, I can see and run the macro as the macros are in the Normal.dot. The other two people do NOT see and cannot run the macro. The actual VBA is in the Normal.Dot. The macro (atcually series of macros) rebuilds the "master" document out of a collection of individual documents. Basically it insert a series of files into the "master" document and then creates a hyperlinked TOC. Does everything we want it to do in terms of rebuidling the document. Even wehn I take this Normal.Dot and drop it into their "My Documents" where their original Normal.Dot was kept, they still can't see these macros. I had them both set their Macro Security to low. So that is not an issue. I have exported the two modules to .BAS files. Do I need to import them to their copy of Normal.Dot even though I copied my Normal.Dot into their "My Documents"? Tag: moving cursor with .vbs file? Tag: 63664
  - 10
    - Change Word Links via VBA ? Hello Group, I have a document in Word with Bonds to Excel. I need to change statements I link using VBA. For example: My old Source Path "C:\Source Project\My file.doc" My New Source Path and I want to change a part to "C:\New Project\My file.doc" Any advisor will be Wellcome Best Regard Mario Tag: moving cursor with .vbs file? Tag: 63655
  - 11
    - Trying to import Excel Spreadsheet into Word I have used Excel to develop a form to be printed on legal sized paper. There are 11 columbs and 104 rows. The columbs are various widths and all together are 8 1/4 inches wide. The rows are symetrical at 9.00 pixels and fit in 14". When I cut and paste to Word, the cells do not hold their formatting. And merged cell do not behave as the do in Excel. Does anyone know the proper sequence for getting this .XLS spreadsheet into .DOC format with all cells still funtioning properly? Tag: moving cursor with .vbs file? Tag: 63653
  - 12
    - WordBasic being recorded in Word 2002 Could someone answer my question of Feb 16th about WordBasic statements being recorded in Word 2002? (Title: "Printing without or with markup...") That would be very much of help to me! Thank you! Peter Tag: moving cursor with .vbs file? Tag: 63651
  - 13
    - Task as a link object How to use task item as a linked object? For example if I was in words and a link is place in the word document of a Task Item,, and bu clicking on this I would get the corresponding task to open up for editing or viewing. Tag: moving cursor with .vbs file? Tag: 63650
  - 14
    - How to take text from RichTextBox in VB6 to Word object? Hi! There, I have an application which has RichTextbox in it. Now, I need to produce word document which has text with the same format as the RichTextBox. Suppose, user has typed a letter with formatting like Bold, Underline, color etc. Now, I would like to create a word document which should have the same text and formatting. When I take TextRTF to a string variable and write it into word document it doesn't work. It shows all the formatting characters too..... This can be done using Clipboard. But, I would like to avoid clipboard if possible. Any suggestion(s) or answer(s) Thanks in advance, Ritesh. Tag: moving cursor with .vbs file? Tag: 63647
  - 15
    - Range could not be deleted Dim DateBegin As Date Dim DateEnd As Date DateBegin = TxtBeginDisability DateEnd = DateBegin + 2 StrDateEnd = Str(DateEnd) ActiveDocument.Bookmarks("txtEndDisabilityDate").Range.Text = Str(DateEnd) give error the range could not be deleted. Why? Tag: moving cursor with .vbs file? Tag: 63646
  - 16
    - Delete in Registry Hi, I add the key by using: System.PrivateProfileString (Empty, "HKEY_CURRENT_USER\Software\Apps\AV_Word", "Settin gs") = "ABC" How do I delete this key in the registry? I do not just want to set it to empty. I have tried DeleteSetting, but it does not seem to work for me. / Ulf Tag: moving cursor with .vbs file? Tag: 63644
  - 17
    - Start-up templates I am using Word 03 (SP1) on Windows XP (SP2). I have a customised template that is in placed in the startup folder. Sometimes, I have noticed that Word does not display the toolbars and Menu. When I check under Tools/Templates and Addins this template has been disabled. The security settings for Macro is set to Low. I never had this problem under Word 2000 (on Win 98 SE) using the same template. Tag: moving cursor with .vbs file? Tag: 63636
  - 18
    - Header and Footer macros I have tried to create a header macro and a footer macro but when I click the header macro it appears in both the header and the footer. Does anyone know how to create macros for a header and a footer without them overriding each other? Any assistance would be greatly appreciated!!! Tag: moving cursor with .vbs file? Tag: 63631
  - 19
    - How to reference Userform in another project I am trying to figure out how to reference a form in another project in order to pass variables to it. This is what I have: With Hannani_TestTemplate.frmCreate_Hannani_Personal .txtRptDateMonth.Text = "02" .txtRptDateDay.Text = "17" .txtRptDateYear.Text = "2005" .show End With The project name is "Hannani." The template name is "Hannani_Test.dot", the form name is "frmCreate_Hannani_Personal". I keep getting an "object" error. Thank you. -- singeredel Tag: moving cursor with .vbs file? Tag: 63629
  - 20
    - underline in red how do i underline words in red just like they appear when they are spelt wrong and spell and grammar highlights them? Can i do this using vba? Tag: moving cursor with .vbs file? Tag: 63628
  - 21
    - Disappearing text when doing a paste Hello all, Having a problem coping data from one document to another. I need to automate the following task. I have a document that my customer opens and clicks a button that does a copy. When the button is clicked, I need the following to happen. The file open dialog box displays so they can pick the file that has data to be copied from The selected file is opened Data from an enclosed bookmark in the newly opened file is copied The data is then pasted to a bookmark location in the intial document I have this working, the problem is when I do the past into the initial document, it deletes all the text in the document and then paste the new text. What am I doing wrong?? I needed to be sure the copied data retains all formatting, like bullet list, etc. My code is listed below. thanks Sub Copy_Description() Dim DescriptionDoc As Document Dim pTarget As Range Dialogs(wdDialogFileOpen).Show Set DescriptionDoc = ActiveDocument Set pTarget = ActiveDocument.Bookmarks("BM_TheDescription").Range.FormattedText pTarget.Copy If ThisDocument.Bookmarks.Exists("BM_Description") Then ThisDocument.Bookmarks("BM_Description").Select ThisDocument.Range.Paste End If ActiveDocument.Close End Sub Tag: moving cursor with .vbs file? Tag: 63627
  - 22
    - Adding TextBox Shapes becomes slow I need to add about 200 TextBox Shapes to a document through Visual Basic using Word 9.0 Library The Code i use is: Set textBox22 = wordDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, y, 100, 15) Then i add formatting: With textBox22 .Name = "TextBox" & i With .TextFrame .MarginTop = 0 .MarginLeft = 0 .TextRange = "sdfgsf" With .TextRange .Bold = True .Font.Name = "Verdana" .Font.Size = 12 End With End With End With This all works like a charm... except it works SLOOOOOOOW The first 30 or so controls are added at a reasonable speed (i have a counter and a progressbar to monitor the process) After that it starts to slow down more and more.... On textbox 150 it adds about one textbox per second... Very Slow!!!!! I tried following: Turned off spelling and grammar checking, Word app is not visible while textboxes are added, I even used LockWindowUpdate TOGETHER with ScreenUpdating = False. Didn't help. Still slow.... Here's the code for you to try. Visual Basic 6.0. Add a reference to the Word library before running the code. Add a progressbar to Form1 and name it PB1. The code adds 300 textboxes to a word document and sets margins and font format options. if you comment the formatting (all With..End With) the code runs faster. P.S. I HAVE tried it on different computers, and no they were not 486, but decent p4 machines. And it must be done from outside, thus i can't use the code from within a word macro. [CODE] Dim wA As Word.Application Dim wD As Word.Document Private Sub Command1_Click() PB1.Min = 1 'PROGRESSBAR PB1.Max = 300 Dim ttt As Word.Shape, y As Long y = 10 wA.ScreenUpdating = False For i = 1 To 300 PB1.Value = i y = y + 18 Set tB = wD.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, y, 100, 15) With tB .Name = "TextBox" & i With .TextFrame .MarginTop = 0 .MarginLeft = 0 .TextRange = "Sample Text" With .TextRange .Bold = True .Font.Name = "Verdana" .Font.Size = 12 End With End With End With Next wA.ScreenUpdating = True wA.Visible = True End Sub Private Sub Form_Load() Set wA = New Word.Application wA.Options.CheckGrammarAsYouType = False wA.Options.CheckGrammarWithSpelling = False wA.Options.CheckSpellingAsYouType = False wA.Options.CheckHangulEndings = False 'wA.Options.Pagination = False Set wD = wA.Documents.Add wD.Activate wD.ShowSpellingErrors = False wD.ShowGrammaticalErrors = False End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next wA.Quit wdDoNotSaveChanges End Sub Tag: moving cursor with .vbs file? Tag: 63623
  - 23
    - language This is a very general question but i have message boxes in vba that display variables. These variables contain characters with accents such as "Ã©" and "Ã¡". Whe these are displayed they come up in really funny symbols. Is it something to do with the settings on my computer or word or must i type some command to change language?? Tag: moving cursor with .vbs file? Tag: 63621
  - 24
    - wdFieldType values Where can I find an exhaustive explanation to the meaning of wdFieldType values? As it usually happens with VBA help, a complete list of values is presented (wdFieldAddIn, wdFieldAdvance...), but there's no way to know how those constants work. I've searched in WordBasic help too, trying to find some kind of analogy, but that didn't help me at all. Thanks. -- ______________________ Life is a dream, make it real. Tag: moving cursor with .vbs file? Tag: 63614
  - 25
    - Changing code to put a frame in a table Hi Community, I've read that Word does not allow frames in a table. Does anyone know of any VB code that will let me "trick" Word into allowing this? :) Rosanne Ramos San Diego, CA -- Rosanne Ramos San Diego, California USA Tag: moving cursor with .vbs file? Tag: 63612

I have code in Word 97 that moves the cursor to a given point on
the screen. It works in conjunction with a Public Declaration at the
top of the module.

The public declaration:

Public Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long

The code used in the macro:

ret = SetCursorPos(180, 80)

Is it possible to make the same kind of thing happen with a .vbs file?

Top

Re: moving cursor with .vbs file? by Brian

Brian
Tue Feb 22 23:23:40 CST 2005

This would be best asked/answered in one of the Word/Office ng's.

--

Brian A.

Conflicts start where information lacks.
http://www.dts-l.org/goodpost.htm

"Larry" <larry328NOSPAM@att.net> wrote in message
news:er2c68VGFHA.2676@TK2MSFTNGP12.phx.gbl...
>
> I have code in Word 97 that moves the cursor to a given point on
> the screen. It works in conjunction with a Public Declaration at the
> top of the module.
>
> The public declaration:
>
> Public Declare Function SetCursorPos Lib "user32" _
> (ByVal X As Long, ByVal Y As Long) As Long
>
>
> The code used in the macro:
>
> ret = SetCursorPos(180, 80)
>
>
> Is it possible to make the same kind of thing happen with a .vbs file?
>
>
>

Top