Jezebel or other helper

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Jezebel or other helper Tag: 63769
  - 2
    - 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: Jezebel or other helper Tag: 63767
  - 3
    - 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: Jezebel or other helper Tag: 63763
  - 4
    - 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: Jezebel or other helper Tag: 63762
  - 5
    - 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: Jezebel or other helper Tag: 63756
  - 6
    - 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: Jezebel or other helper Tag: 63751
  - 7
    - 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: Jezebel or other helper Tag: 63749
  - 8
    - 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: Jezebel or other helper Tag: 63748
  - 9
    - 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: Jezebel or other helper Tag: 63747
  - 10
    - 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: Jezebel or other helper Tag: 63732
  - 11
    - 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: Jezebel or other helper Tag: 63729
  - 12
    - 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: Jezebel or other helper Tag: 63728
  - 13
    - 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: Jezebel or other helper Tag: 63726
  - 14
    - 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: Jezebel or other helper Tag: 63717
  - 15
    - 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: Jezebel or other helper Tag: 63706
  - 16
    - 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: Jezebel or other helper Tag: 63704
  - 17
    - 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: Jezebel or other helper Tag: 63700
  - 18
    - 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: Jezebel or other helper Tag: 63699
  - 19
    - 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: Jezebel or other helper Tag: 63686
  - 20
    - 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: Jezebel or other helper Tag: 63685
  - 21
    - 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: Jezebel or other helper Tag: 63680
  - 22
    - 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: Jezebel or other helper Tag: 63679
  - 23
    - 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: Jezebel or other helper Tag: 63675
  - 24
    - 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: Jezebel or other helper Tag: 63673
  - 25
    - 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: Jezebel or other helper Tag: 63672
- Next
  - 1
    - 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: Jezebel or other helper Tag: 63671
  - 2
    - 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: Jezebel or other helper Tag: 63669
  - 3
    - 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: Jezebel or other helper Tag: 63668
  - 4
    - 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: Jezebel or other helper Tag: 63666
  - 5
    - 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: Jezebel or other helper Tag: 63664
  - 6
    - 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: Jezebel or other helper Tag: 63655
  - 7
    - 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: Jezebel or other helper Tag: 63653
  - 8
    - 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: Jezebel or other helper Tag: 63651
  - 9
    - 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: Jezebel or other helper Tag: 63650
  - 10
    - 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: Jezebel or other helper Tag: 63647
  - 11
    - 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: Jezebel or other helper Tag: 63646
  - 12
    - 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: Jezebel or other helper Tag: 63644
  - 13
    - 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: Jezebel or other helper Tag: 63636
  - 14
    - 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: Jezebel or other helper Tag: 63631
  - 15
    - 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: Jezebel or other helper Tag: 63629
  - 16
    - 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: Jezebel or other helper Tag: 63628
  - 17
    - 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: Jezebel or other helper Tag: 63627
  - 18
    - 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: Jezebel or other helper Tag: 63623
  - 19
    - 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: Jezebel or other helper Tag: 63621
  - 20
    - 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: Jezebel or other helper Tag: 63614
  - 21
    - 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: Jezebel or other helper Tag: 63612
  - 22
    - First empty row in table Hi all I am trying to find out how to programmatically reach the first empty row in column 1 of a Word table. Does anybody have a clue? TIA Cordially Pascal Tag: Jezebel or other helper Tag: 63610
  - 23
    - xml an word I have a line of xml code reading into vba from a text file and it's something like this <E offset="" fromy="" fromx="" toy="" tox="" sentence="" errortext="" msg=""> I would like to use the values of errortext and msg, how would i use xml code in vba? Tag: Jezebel or other helper Tag: 63609
  - 24
    - Controlling a "Microsoft office document image writer" option in W When printing a word document to the "Microsoft office document image writer" - a dialog opens that enables to select a file name and modify a check-box indicating "View document image". If this check-box is checked then the "Microsoft office document imaging" will be opened with the "printed" document. If the check-box is not checked then the file will be ready without opening the above application. My question is: Using full automation if I want to print the word document into a tiff file using the "Microsoft office document image writer" printer, how do I set the values for the above check-box. In other words, I would like to avoid opening the "Microsoft office document imaging" and just prepare the tiff file with no user interference â?? it is possible to do this fully through automation? -- Thanks Eric Tag: Jezebel or other helper Tag: 63608
  - 25
    - Create Document Variables from a multiline text box is a user form I am creating a userform for a meeting agenda template. When the user types in the agenda items in a multiline text box, I would like to assign each agenda item (each paragraph or line) to a document variable. The number of items will vary with each meeting, so that is why I decided to use the multiline text box. I have tried loops without success, please would someone be kind enough to help me? Thank you so much Tag: Jezebel or other helper Tag: 63607

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

Re: Jezebel or other helper by Jezebel

Jezebel
Tue Feb 22 16:11:06 CST 2005

OK, here's one way to do it --

In Hannani_Test, add a module (or use an existing module if there is one).
Add this code --

Public Property Get ReportForm() as frmCreate_Hannani_Report
Set ReportForm = new frmCreate_Hannani_Report
End Property

Then in the calling project, use --

Sub Test()

With Hannani_Test.ReportForm
.txtReportDateMonth = "02"
:
.Show
End with
End Sub

"singeredel" <singeredel@discussions.microsoft.com> wrote in message
news:54650AED-B649-46AB-9A13-114E208C011A@microsoft.com...
> 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

Re: Jezebel or other helper by singeredel

singeredel
Tue Feb 22 17:41:03 CST 2005

Thank you SO MUCH for answering so promptly. It finally works! The only
change I had to make to get it to run was to change Hannani_Test.ReportForm
to just Hannani.ReportForm. (from referencing the Template to referencing the
Project)

A hundred thanks again!

"Jezebel" wrote:

> OK, here's one way to do it --
>
> In Hannani_Test, add a module (or use an existing module if there is one).
> Add this code --
>
> Public Property Get ReportForm() as frmCreate_Hannani_Report
> Set ReportForm = new frmCreate_Hannani_Report
> End Property
>
>
> Then in the calling project, use --
>
> Sub Test()
>
> With Hannani_Test.ReportForm
> .txtReportDateMonth = "02"
> :
> .Show
> End with
> End Sub
>
>
>
>
>
> "singeredel" <singeredel@discussions.microsoft.com> wrote in message
> news:54650AED-B649-46AB-9A13-114E208C011A@microsoft.com...
> > 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
>
>
>