Test for Administrator

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Tips for Speeding up Folks; After some help from Jezebel and Peter Jamison I have the code below working. YEAH! BUT (you knew that was coming right!) It is dog slow. It takes several minutes to process a one page document. I'm looking for ANY angles to improve the code! So let 'er rip!!! One thought I have is that Sub ReplaceRoster just blindly keeps hammering away with 'replace' when the tags have been exhausted. So I'd like to tweak it so it stops when there are no more '<' in the text... But I'm a little puzzled how best to structure that change. Thanks Again Jezebel and Peter!! Steve _____________________ Dim storyRange As Word.Range Dim tRange as Word.Range Dim junk As Long Dim shape As Shape junk = ActiveDocument.Sections( 1 ).Headers( 1 ).Range.StoryType For Each storyRange In ActiveDocument.StoryRanges Do Select Case storyRange.StoryType Case wdPrimaryHeaderStory ReplaceRoster storyRange On Error Resume Next If storyRange.ShapeRange.Count > 0 Then For Each shape In storyRange.ShapeRange Select Case shape.Type Case msoTextBox If shape.TextFrame.HasText Then Set tRange = shape.TextFrame.TextRange tRange.Find.Execute FindText:=\"<\", Forward:=True If tRange.Find.Found = True Then ReplaceRoster shape.TextFrame.TextRange End If Case Else End Select Next End If Case Else End Select On Error GoTo 0 Set storyRange = storyRange.NextStoryRange Loop Until storyRange Is Nothing Next Public Sub ReplaceRoster(ByVal myRange As Word.Range) ReplaceInRange myRange, \"<SOrg>\", \"Q$SOrg\" ReplaceInRange myRange, \"<SFullName>\", \"Q$SFullName\" [ ...45 more such lines...] End Sub Public Sub ReplaceInRange(ByVal myRange As Word.Range, ByVal strSearch As String , ByVal strReplace As String ) With myRange.Find .ClearFormatting .Replacement.ClearFormatting .Text = strSearch .Replacement.Text = strReplace .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With End Sub Tag: Test for Administrator Tag: 82598
  - 2
    - Set Focus on Form & Minimize Word I am fairly new to VBA - I apologize for the naive question. I've created a macro in word that opens a userform and minimizes Word. The problem is that when Word minimizes, the userform is no longer the focus and "falls" behind any other open windows. How do I minimize Word and place the focus on the form I just opened? Below is the code in Word I'm using. Sub Procedure() Load UserForm For Each myTask In Tasks If InStr(myTask.Name, "Microsoft Word") > 0 Then myTask.Activate myTask.WindowState = wdWindowStateMinimize End If Next myTask UserForm.Show End Sub In the ideal world I would prefer to have a stand alone application and never open Word, or if it opens, minimize/hide it immediately. All the functionality is built into the form. When I have the time to dedicate to it, I will migrate the code to VB. Does anyone have any tips to minimize the visibility of Word in this scenario? (No pun intended). Thanks, John Tag: Test for Administrator Tag: 82596
  - 3
    - How to reference images w/i a document using VBA Word macro? Hi, How can I reference the images contained within a word document (with a word macro)? I'd like to obtain a graphic corresponding to the image. Is this possible? If so how? Any thing would be much appreciated. I can summarize to the group when I undertand this and get it working. I'm writting a macro to convert a word document to mediawiki markup. To do this I need to send the embedded graphics to the wiki servier and include links to these graphics in the wiki markup. Thanks, David Tag: Test for Administrator Tag: 82593
  - 4
    - Loading/running modules with Word 2003 This is just a test I was fooling around with. It has to be a property of the file or something. I can't figure out how to get this sub to run once the file is open. Any Suggestions???? Code: Sub nameTest() Dim fName As String Dim lName As String Dim fullName As String Dim strMsg1 As String fName = InputBox("What is your first name?", "First Name") lName = InputBox("What is your last name?", "Last Name") fullName = MsgBox("Is this your full name?: " & fName & " " & lName, vbYesNo, "Full Name") Do While fullName <> vbYes fName = InputBox("What is your first name?", "First Name") lName = InputBox("What is your last name?", "Last Name") fullName = MsgBox("Is this your full name?: " & fName & " " & lName, vbYesNo, "Full Name") Loop strMsg1 = MsgBox("Thanks for your confirmation!", vbOKOnly, "Thanks!!") End Sub -- "True warrior triumph in battle within the mind before striking their enemies on the battle field." -Azone Tag: Test for Administrator Tag: 82582
  - 5
    - What's wrong with this code? If Bob.doc is open the code runs fine even when I open a different doc, but if it's not open the code has a fit at line 6 even if Bob.doc exists on the harddrive. Any suggestions? Application.Keyboard (1037) If ActiveDocument.Bookmarks.Exists("Here") Then Selection.GoTo What:=wdGoToBookmark, Name:="Here" Else: Selection.EndKey Unit:=wdStory End If If ActiveDocument = Documents("C:\Word Documents\Bob.doc"). Then Application.TaskPanes(wdTaskPaneFormatting).Visible = True End If Tag: Test for Administrator Tag: 82579
  - 6
    - How can a Group Separator (ansi 29) be generated? We need to generate test strings that contain special characters. What application(s) will do this easily? What is the process. Tag: Test for Administrator Tag: 82576
  - 7
    - command bar won't delete in 2003 This appears to be a bug in Word 2003: We run code (by way of AutoExec macro in a global template in the Startup folder) to delete and then rebuild a company toolbar when the user starts Word. The following line deletes the Company toolbar: CommandBars("Company").Delete In Word 2003 when you go to Tools, Customize it will be gone. However it is still there when you look at the Organizer (from Tools, Templates and Add-ins) and, sure enough, when you restart Word 2003 the toolbar is back (in Word 97 it works fine, immediately disappearing from both Customize and Organizer). There's been some talk about CustomizationContext in previous threads but I've stepped through the code and the Context remains "Normal.dot" throughout. I've also checked the path of the Normal template in the Organizer so I know it's not another normal.dot I'm dealing with. Any ideas please? The users are on my back with all the duplicate toolbars that have started appearing in their Word... Tag: Test for Administrator Tag: 82575
  - 8
    - Can't exit design mode because Control 'MyTextBox3' can not be created" I am trying to insert my control into Word 2003 and the results depend on Word macro's security setting. Code is following: ... MSWORD::InlineShapesPtr shapes; ... HRESULT hr = shapes->AddOLEControl(&controlType, &vEmpty, &shape); ... 1. Word security (Tools/Macro/Security) is set to 'Very High' - this code inserts the control without problem. 2. 'High' - the same. 3. 'Medium' - not tested because it displays "Enable/Disable Macros" dialog; 2. 'Low' - the code shoes message box - "Microsoft Visual Basic", "Can't exit design mode because Control 'MyTextBox3' can not be created". What is unreasonable here, that higher security level works fine in place where lower security does not work. Why it is implemented in such way and how to workaround it? Nickolai. Tag: Test for Administrator Tag: 82573
  - 9
    - How do you insert table realignment within a loop? Can someone help me insert a statement that would realign the table to right of the page (the below script was provided by Jay Freedman). I believe the statement is Rows.Alignment = wdAlignRowRight but Iâ??m having trouble inserting into the loop so that all the tables within the document are realigned. Any help would be greatly appreciated. Thanks Mike ******************************** Sub ResizeTables() Dim oTbl As Table For Each oTbl In ActiveDocument.Tables With oTbl If .Columns.Count = 4 Then .AutoFitBehavior Behavior:=wdAutoFitFixed .Columns.PreferredWidthType = wdPreferredWidthPoints .Columns(1).PreferredWidth = InchesToPoints(1#) .Columns(2).PreferredWidth = InchesToPoints(0.69) .Columns(3).PreferredWidth = InchesToPoints(0.63) .Columns(4).PreferredWidth = InchesToPoints(3#) End If End With Next oTbl End Sub Tag: Test for Administrator Tag: 82572
  - 10
    - Altering formula I help support a large number of templates which have the following formula in them: {INCLUDEPICTURE "C:\\Program Files\\Microsoft Office\\Clipart\\WYP\\COLLAND.TIF" \* MERGEFORMAT \d} Is there a way with code without going into each and every template whereby I can change the ".TIF" to ".JPG"? -- Mark Tag: Test for Administrator Tag: 82567
  - 11
    - Global Text Replacement Folks; What I want to do is to replace ALL occurrences of 'ABC' with 'XYZ'. When I say ALL I mean ALL. Occurrences in the mainDocument, Headers, Footers, TextBoxes, TextBoxes in Headers, TextBoxes in Footers, Tables, Tables in Headers, and Tables in Footers. This on a Mac using 'do Visual Basic'. I've posted something in the Mac forum and it seems as soon as I mention 'do Visual Basic' I get pointed over here. Anyway a simple Find/Replace doesn't scour the text of Tables nor TextBoxes, though I've been told it should? could? The code below does what I need except for one small thing ... It doesn't work when I change the ActivePane to wdSeekPrimaryHeader or wdSeekPrimaryFooter So I've got it working MainDocument but the code goes brain-dead in Headers and Footers... Can someone point out what I need to do? Also the code below has an odd nested construct. I found similar code in the MSHelp files. Can someone clarify why the For .. While Not .. Wend Next construct is necessary? The code doesn't work in I unwind it to a simple For Next loop. _____________________________ ActiveDocument.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument For Each myStoryRange In ActiveDocument.StoryRanges myStoryRange.Find.Execute FindText:="ABC",ReplaceWith:="XYZ",Replace:=wdReplaceAll While Not (myStoryRange.NextStoryRange Is Nothing) Set myStoryRange = myStoryRange.NextStoryRange myStoryRange.Find.Execute FindText:= "ABC",ReplaceWith:="XYZ",Replace:=wdReplaceAll Wend Next myStoryRange Tag: Test for Administrator Tag: 82560
  - 12
    - Need some VBA code to view a watermark I have inserted a .tif file into a Word document as a watermark. I know it's there because I can see it printed on othrwise blank paper. I have 'set' all the tools/options I know to view it and nothing works. Is there some VBA code to do this? Something besides recording a macro? Ed Tag: Test for Administrator Tag: 82556
  - 13
    - Get the logged on user with vba Hello you all, I have a word document with some code behind it. In the code, I want to know the user who is logged on to the machine. Can this be done from within VBA in a word document? Can anyone provide me with a way of achieving this? Regards, Q Tag: Test for Administrator Tag: 82548
  - 14
    - Find and replace multiple special characters I've got a Word document that was created by a client. The problem is that he has used four special characters thru' out 9 seperate documents incorrectly and they need to be replaced by different special characters. I would like to build a Macro that searches for all four sererate characters and replaces them with the correct ones, It would be great if I can build a marco that does this on all the documents at one time. Anyone out there able to help. Cheers Allan Tag: Test for Administrator Tag: 82547
  - 15
    - Problem with "Editing and Updating a TOC" After posting a message on how to create a TOC using just the first word of some major paragraphs, I went out and bought the Microsoft book "Word 2003". Page 598 worked me through creating a TOC using the manual "Mark Table of Contents" method. But, after creating it, when I try to update it using the "Editing and Updating a TOC" section of page 599, Word tells me the document does not have a TOC. So, I found that to update a manually created TOC, I need to: Select the TOC, right click it, choose "Update Field" click "Update entire table" and OK that. As I am new at TOCs, there likely is a better way, anyway, both the online course that I took on TOCs and the Microsoft book could be updated to address this issue. ---------------- 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=5fc4ba53-ffff-4fd3-9b8c-1da16466820d&dg=microsoft.public.word.vba.general Tag: Test for Administrator Tag: 82546
  - 16
    - Range Start and End in Word 2003 Tables I am working with Word 2003. I need to select information between two bookmarks. The problem is this: I have a two column table. In Row1, Column1 before any text is a bookmark named CapBegin. The table could only be one row or it could be up to five rows. If it is only one row, after the last text character in Row1, Column1 is a bookmark named CapEnd. If the table is two rows, the CapBegin bookmark is at the beginning of the Row1, Column1 cell and the bookmark CapEnd is after the last text character in Row2, Column1 cell. I need to capture the text in between these two bookmarks (in column 1 only) and enclose it in a new bookmark named CaseInfo without any table cell markers. The reason for this is that I need to later capture the contents of CaseInfo, copy it, create a new document based on an existing document and paste it into an existing Table Cell as text, not as a nested table, but I need to retain the formatting of the text that is being copied. Both documents (source and destination have styles created with the same names, but with slightly different formatting). This is the code that I am currently using. However, using this code, the text is pasted into the new document using the Normal style. I need the text to be pasted using the styles that are applied in the original document. "Begin Code Block" ***************************************************************************** Public Sub LitigationBack() 'get the info from the current document Dim pCell As Word.Cell Dim myTable As Table Set myTable = ActiveDocument.Tables(1) Set pCell = myTable.Cell(1, 1) Do If pCell.ColumnIndex = 1 Then strCaseInfo = strCaseInfo & Left$(pCell.Range.Text, Len(pCell.Range.Text) - 1) & vbCr End If Set pCell = pCell.Next Loop Until pCell Is Nothing RetrieveBookmarkInfo "Court", strCourt RetrieveBookmarkInfo "District", strDistrict RetrieveBookmarkInfo "IndexNo", strIndexNo RetrieveBookmarkInfo "cmbAttyForSig", strAttyFor RetrieveBookmarkInfo "Title", strTitle RetrieveBookmarkInfo "txtAddress", strAddress 'create the litback and past info Documents.Add Template:= _ Application.Options.DefaultFilePath(wdWorkgroupTemplatesPath) _ & "\SK Pleadings\Pleading LitBack.doc", NewTemplate:=False, DocumentType:=0 UpdateBookmark "Court", strCourt UpdateBookmark "District", strDistrict UpdateBookmark "Index", strIndexNo UpdateBookmark "CaseInfo", strCaseInfo UpdateBookmark "AttyFor", strAttyFor UpdateBookmark "Title", strTitle UpdateBookmark "Address", strAddress End Sub "End Code Block" ***************************************************************************** Any thoughts would be greatly appreciated. Thanks, Anne Tag: Test for Administrator Tag: 82541
  - 17
    - bullet problems This is a multi-part message in MIME format. ------=_NextPart_000_0031_01C6474C.C0342FD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I am working on a resume, there are bullets in the resume...when I look = at it in word 2003 there are the bullets, but next to the bullets are = what I think are the tab markers.....I don't want to see them. how on = earth do I get rid of them? On this system (at work) I have word 2002 = and it doesn't show up....any clues? When I print it from the 2003 computer, there are no arrows next to the = bullets. I've tried to view it in different views, I've customized and = reset the bullets and I have shown and hid the Paragraph indicators. Thanks for your help --=20 Meg Darnell, LMT, CD Director of Alumni Services Swedish Institute College of Health Sciences 212-924-5900 x142=20 ------=_NextPart_000_0031_01C6474C.C0342FD0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2802" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV> <DIV><FONT face=3DArial size=3D2>I am working on a resume, there are = bullets in the=20 resume...when I look at it in word 2003 there are the bullets, but = next to=20 the bullets are what I think are the tab markers.....I don't want to see = them.=20 how on earth do I get rid of them?   On this system (at work) = I have=20 word 2002 and it doesn't show up....any clues?</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>When I print it from the 2003 computer, = there are=20 no arrows next to the bullets.  I've tried to view it in different = views,=20 I've customized and reset the bullets and I have shown and hid the = Paragraph=20 indicators.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks for your = help</FONT></DIV></DIV><FONT=20 face=3DArial size=3D2> <DIV><BR>-- <BR>Meg Darnell, LMT, CD<BR>Director of Alumni = Services<BR>Swedish=20 Institute College of Health Sciences<BR>212-924-5900 x142 </DIV> <DIV> </DIV> <DIV></FONT> </DIV></BODY></HTML> ------=_NextPart_000_0031_01C6474C.C0342FD0-- Tag: Test for Administrator Tag: 82537
  - 18
    - Fill a field with names selected from a drop down Imagine an interoffice memo with a routing list. I need to fill in the routing list by multi-selecting 1 or more names from a drop-down list. The drop-down list needs to be populated on creation from a list of employees stored either in the template itself or elsewhere on a shared drive. I'm too new to Word Programming to know what to start looking at. Can someone point me in the right direction? Obliged, Curtis Tag: Test for Administrator Tag: 82533
  - 19
    - Macro in MS Word to clear text fields Hi there, I'm trying to create a macro that will clear text fields within a word document, and i'm having no such luck. I've created an identical version in excel which works well, but need one for word too. Can anyone help? Thanks, Tag: Test for Administrator Tag: 82531
  - 20
    - Resources Used by Startup Templates Dear All, When we put a template in the startup folder for Word, how much does it affect system resources? For example, if I were to add a template that includes 100 or so autotext entries for the names of our largest member firms, would that information be "loaded" into memory when Word starts, drawing away from resources from other applicaitons? Other modules and toolbars in the same template -- same thing -- draw down memory recsources or are they just "available"? Sincerely, Ridge [Exit 145] Tag: Test for Administrator Tag: 82526
  - 21
    - Word 2003 templates Hi When scrolling the image disappears in Word 2003 templates. Ps. it is not a resolution related problem because the image appears is the preview for printing. Thanks for your help. Doumga Tag: Test for Administrator Tag: 82518
  - 22
    - convert tags in a text document hello everyone I have a text file with tags such as this. </P> <P></P> <P></P> <P></P> <P><SPA 5>denc awacswvW Kwbwrutwkuge twfcBIlc</P> <P><SZ 13></B><I X /I></U></P> how can I tell word to convert them to the real thing. BTW what kind of tags are these? r they universal. any kind of help in the right direction will be appreciated. thanx Ahmed Tag: Test for Administrator Tag: 82516
  - 23
    - AutoNew deos not run with winword.exe Hi! I got a template with an AutoNew() Macro. When I open Word and select "New Document" with this template, the AutoNew()-macro is called. But when I run Word from DOS the macro isn't called. Why that? I'm using Word 2000. In Word 2003 I got the same problem. Titus Kruse Tag: Test for Administrator Tag: 82515
  - 24
    - Dialogs(wdDialogFileOpen).Show ignores ReadOnlyRecommended I really need some helpful hints (Word 2000, VBA): I'm saving the documents with "ActiveDocument.SaveAs strFullPath & "\" & strFileName, , , , , , True". Using the Menu-Item FileOpen or the Windows-Explorer, the dialog referring to the "ReadOnlyRecommended"-property is properly shown. The vba command "Dialogs(wdDialogFileOpen).Show" always opens the document write-protected without asking the user what to do !? Is there any way to ask the user for a decision using the wdDialogFileOpen ? Thanks a lot ! Guido Tag: Test for Administrator Tag: 82514
  - 25
    - How do I refer to current directory in a FIELD / INCLUDETEXT Instead of: { INCLUDETEXT "C:\\D\\F.XML" \t "C:\\D\\F.XSL" }, I would like to have the files F.XML and F.XSL places in the word document's own directory (se FILENAME \p). I have found a complicated method with VBA and Macro's, but do not like it. I search for something like: { INCLUDETEXT "<CURDIR>\\F.XML" \t "<CURDIR>\\F.XSL" }, Tag: Test for Administrator Tag: 82510
- Next
  - 1
    - How can I create a large text file is an efficient way? I 've coded a subroutine to create a text file (in this case a xml file) which sometimes holds a size of 500 - 900 KB. While the subroutine works efficiently for small file size (up to 50 KB) I noted a worse efficiency in case of large file size (up to 10 minutes of calculation time). This is the routine : Set fso = CreateObject("Scripting.FileSystemObject") Set xmlFile = fso.CreateTextFile(FilePath, True) DO xmlFile.Write "some text" & vbCrLf LOOP UNTIL .. xmlFile.Close While debugging I've noted that the execution of line : xmlFile.Write ... takes more and more time as the text file has grown lager. Is there a more efficient way to create the text file ? Regards, Oscar Tag: Test for Administrator Tag: 82509
  - 2
    - Macro to compare data can anyone show me the macro to compare data from word and excel... if let say I have textfield "Name","Gender","Status" in ms word.. and I need to import the data from ms excel.. I mean... if User enter "jack" into the textfield (in Word),.. and the "jack" is exist in excel database,... then all jack's info will appeared in word.. how to write the macro?? Thank you very much.. Tag: Test for Administrator Tag: 82507
  - 3
    - VB on a Mac Folks I'm trying to do Find/Replace within textBoxes on Mac using Word vX and 'do Visual Basic'. The version of Word shouldn't really matter right? Since I'm using 'do Visual Basic'.... I am asking in the Mac forums as well but here is where the real VBGurus seem to hang... I've tried so many different constructs I cannot remember them all. But no syntax I have come up with allows me to get to the text. BTW: These are textBoxes created by doing Insert/Text Box off the menu. No userForms... The vb I'm using is below. I'm convinced that the 'With' statement inside the Do Until is the key. Here's my results: With pTextBox.Text.Select --> invalid qualifier With pTextBox.TextFrame.Select -->method or data member not found With pTextBox.TextRange.Select -->method or data member not found With pTextBox.TextFrame.TextRange.Select -->method or data member not found Can somebody boost me over this particular hump? Thanks SO MUCH! This is the last issue in implementation for me BTW: Where is the best documentation source where I could have found the answer myself? Steve __________________________ set vbScript to " Dim pTextBox as Word.Range Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Forward = True Selection.Find.MatchCase =True Selection.Find.Format = False Selection.Find.Wrap = wdFindContinue Set pTextBox = ActiveDocument.StoryRanges(wdTextFrameStory) on error goto 0 Do until pTextBox is nothing With pTextBox.Text.Select <--- this is the statement Selection.Find.Text = \"ABC\" Selection.Find.Replacement.Text = \"XYZ\" Selection.Find.Execute Replace:=wdReplaceAll End With set pTextBox = pTextBox.NextStoryRange Loop Tag: Test for Administrator Tag: 82494
  - 4
    - Date suffix I would like to create a template for a user who wants to use dates in the format '13th March 2006' for example. Normally, as far as dates are concerned, I might insert a CreateDate field to show the date a letter was created. This might show as '22 February 2006' format However, in this case I have to try and use the same type of field but with the suffix 'st', 'nd', and so on after the appropriate number. Is there any way, please, that this can be done with a field or with VBA? Or do they have to type the date in manually to achieve this format? Regards Roderick Tag: Test for Administrator Tag: 82489
  - 5
    - Page number Hallo everybody. I have a problem with a document. I need to know, in every moment, the page number in wich I am, and the total number of pages of document. May you help me? I don't find anything! Many thanks. Gù Tag: Test for Administrator Tag: 82488
  - 6
    - sort table of authorities Is there a way to change the sorting in a Table of Authorities? When you use Law Review articles in a brief, and you include proper Bluebook citation with full name of the author (First followed by Last name), the TOA sorts on the first name. I would like it to sort on the last name. Tag: Test for Administrator Tag: 82487
  - 7
    - Feasibility Question Dear All, Working in Office, 2003 with XP Pro workstations. We have a primary membership database running on Pervasive contains all our member data. It includes, from a recent upgrade, the ability to open a word template with merged date (using bookmarks) from the primary data file. We have a clipping service that provides images of clips, via a web site, that are stored as .pdf files. We have the ability to save these .pdfs (with odd numeric filenames) or "print" these .pdfs "via" Acrobat Distiller. The goal is to have a staff member who is reviewing clippings, be able to look up a member in our database and open a template that will run VBA on autoopen to automate sending the clip on screen to the members. So I'm speculating that it should be do-able, using VBA, to grab the member data -- name and e-mail address, save or print the "clip" file in the TEMP directory on the local workstation, open an outlook e-mail message, populate the address field, attach the attachment and leave the message open for the user to put in a personal note and click "send." Sound reasonable? Any hidden gotchas to watch out for? Sincerely, Ridge Tag: Test for Administrator Tag: 82481
  - 8
    - Recognize default printer name from within Word Here is my existing code: Sub Print_Letter With Dialogs(wdDialogFilePrintSetup) .Printer = "\\fs2\HP Color LaserJet 3500" .DoNotSetAsSysDefault = True .Execute End With Dialogs(wdDialogFilePrint).Show End Sub Let's say that the printer prior to running this macro is \\fs2\HP 4100 After this macro is executed Word will keep the 3500 as the printer until the user changes it back. How can I assign a variable and change it back to the printer it was before executing the macro (this may not be the default either) AFTER the user clicks ok on the Print dialog? Thanks in advance for any help! -- CLG Tag: Test for Administrator Tag: 82476
  - 9
    - Tool to store my VBA codes Hello, I am looking for a tool to store my VBA codes. Any suggestions?s Tag: Test for Administrator Tag: 82475
  - 10
    - import modules i use this for export on the server For Each Module In Application.VBE.ActiveVBProject.VBComponents if Module.Type = 1 Module.Export pthVisual & Module.Name & ".bas" Module.Export "E:\vb\functions\" & Module.Name & ".bas" endif Next how can i add automatic this modules into the different clients? I didnt find a proper page helping me about "import" Tag: Test for Administrator Tag: 82474
  - 11
    - Determining control type Can I determine what type of control I've landed on from the control itself? e.g. can I have a function like the following? Private Function GetControlType(ctrl as Control) as String if ctrl <is a textbox> Then GetControlType = "TextBox" ElseIf ctrl <is a checkbox> Then GetControlType = "CheckBox" .... End Sub Is there a property that reliably exists in every control that tells me its type? thanks, gary Tag: Test for Administrator Tag: 82472
  - 12
    - How do I perform calculations from the result of a drop-down formf Hello - I need to be able to perform a mathematical calculation from the result of a drop-down form field. Example: I have a drop down box (NOT activeX) with 3 values, and I have another form field with a calculation based on the 'bookmark' name of the drop-down. However, Word does not appear to calculate anything whichever option I choose from my drop-down box (they are all numbers). Any ideas would be very much appreciated! Cheers. Tag: Test for Administrator Tag: 82469
  - 13
    - How to make a dll in vb 2005 Hi All, I created a macro in word and I'd like to have a dll file and call it from my macro,but I don't know how to make a dll in vb 2005,I don't know how to write my function in dll file,is there any special format or keyword for it, I make a dll via vb.net way but when I call my function in dll I get below error: "can't find Dll entry point for function ..." If who know my answer Please help me . Best Regards. Orchid -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200603/1 Tag: Test for Administrator Tag: 82465
  - 14
    - REPOST: XP, 2000 versions on same machine? I posted earlier about having both the XP and 2000 versions of Word and Excel on my machine. Jim Cone gave me a huge amount of very useful info. The very first item, though, was "install the earliest version first". That's not going to happen - IT updates our computers by simply applying an image. This image includes the XP version of Office. With that in mind, is there any extra precautions about installing the 2000 versions of Word and Excel on a machine with the XP versions already there? Ed Tag: Test for Administrator Tag: 82464
  - 15
    - Auto Increment number on Document I need to make a macro for all new/template documents, so that at what ever line/place I am in the document it should bring me a number. And when ever in same document or any other document If I call the macro it should obtain me a preivious number+1. I mean just when ever I call this macro it should give me an increment number. I saw some codes on net for document /Form Type , with the help of bookmark it can be obtained. But in my case I cannot make any bookmark. As I will be using it as a reference number at any place in the letters. Sometime it is in the first line , some time it is at last line , its not fixed. Please advise me in details, as I am not good in VB. Note : I have Windows XP operating system and MS Office 2000 installed. And this autoincrement number should be obtained by all users of my PC (as 3 users are there of same PC) Regards. Irshad Tag: Test for Administrator Tag: 82463
  - 16
    - "Table of Contents Options" Hi, can anybody please tell me which object holds the information from the "Table of Contents Options" dialogue? Specifically I'm after the bindings between styles and TOC levels. Many thanks in advance, Rad Tag: Test for Administrator Tag: 82462
  - 17
    - Getting information from Access into Word Hi all, I'm very new to VBA, so my question here may look stupid or has been answered here a dozen times. Anyway I was not able to find the answers to my question. I have made a small Access database in which I have 4 tables. Table one contains (in every table there is of course a ID field) the names of products that we do analyses on, like wheat, flour, soyabeanmeal Table two contains the sort of analyses that we do on these products, like humidity, protein, etc Table three contains different methods that can be used to do these analyses, like ISO 712, EC, etc Table four contains the fields from the previous three tables, where we make all the possible combinations: for example: wheat can be analysed on humidity by method ISO something, but also by method ICC something. Now I want to make a letter in a Word template that shows on startup a user form with a number of comboboxes. In the first combobox the user can choose a product let's say wheat. When the user then clicks on the following combobox he will only see the different analyses possible for wheat, let's say humidity. When he then clicks on the third combobox he will only see the different methods that can be used to analyse the humidity of wheat. All this information should then go to the appropriate bookmarks in the Word document. I managed to connect to the database, because I can load a list of laboratories in a combobox that we can have these analyses assigned to (in case we are too busy) and then put name, address, postcode, town, etc on the appropriate bookmarks of the Word document. Any help is greatly appreciated. Luc Tag: Test for Administrator Tag: 82461
  - 18
    - setFocus on textbox in userform Hi I have a wordtemplate with a userform. The textboxes in the userform shows a default text from the beginning for ex the title textbox shows TITLE. My problem is that when the userform is shown I want the text in the textbox to be marked, like when you tab between textboxes with text the text is marked and when you write something you replace the text. I want this behavior also for the textbox that is first selected. I have tried to do this with setFocus but it only places the cursor after the text in the textbox. Thankful for help. Tag: Test for Administrator Tag: 82456
  - 19
    - Run Macro automatically Dear Graham Mayor, I read your answer ,it was complete ,thanks alot for your help. Best regards. Orchid -- Message posted via http://www.officekb.com Tag: Test for Administrator Tag: 82452
  - 20
    - batman batman isnt coming tonight Tag: Test for Administrator Tag: 82451
  - 21
    - TextBox and Tables - a couple of questions Folks; What I want to do is essentially 'mail-merge' but the user is not going to be placing merge tags. They will simply put placeholders that I will substitute with data in my script. They will be placing the text in normal layout, inside of textboxes, and inside of tables. Could be some or all of the above. How do I determine if there are any TEXT BOXES and then iterate over them changing .Text any 'abc' to 'xyz'? (TextBoxes just puzzle me...) For Tables I've figured out that I can do: With ActiveDocument.Tables(1) For i = 2 To .Rows.Count For j = 1 To .Columns.Count [do something with .Cell(i,j).Range.Text] Next j Next i End With But: 1) How do I determine how many tables there are and then iterate over them successively? 2) Is there a smarter way than walking every thru cell and checking for .Range.Text? In the general layout (not in a TextBox or a Table) is this the preferred solution: With Selection.Find.Text ="abc" .Replacement.Text = "xyz"" .Forward = True .Wrap = 1 .Format = False End With ReplaceAll() Thanks for any insight!! Steve Tag: Test for Administrator Tag: 82447
  - 22
    - import data into text from in ms word Hello, can anyone tell me how to import data into text form?? the data either from excel or access.. Do i need put the macro into a button?? please help me... tq Tag: Test for Administrator Tag: 82443
  - 23
    - unlocked VBA project on XP becomes locked on Macintosh I'm hitting a strange problem. I've got a large project that I'm porting from Office on Windows to Office on Mac OSX. On Windows, I open the project in the VBE, then tell it to remove protection, so it'll be viewable without a password. If I close Word, reopen that file, and go back into VBE, I can view the macros just fine. I move the file across my network to my Mac. Open it, and try to access the macros in VBE on the Mac, and I get a Project locked for Viewing message. Furthermore, there's no opportunity to enter a password and view the project. Can anyone help with this. I'm trying to debug on the mac, and can't get to my macros to see what's going on. Thanks in advance, gary hillerson Tag: Test for Administrator Tag: 82434
  - 24
    - Revision.Type property - inconsistent results I?m trying to add code to a macro to make it behave differently if the text it works on has tracked changes, but Word seems to act on whim rather than reality. Has anyone else tried to use [range_object].Revision(1).Type and gotten inconsistent or apparently wrong results? For example, in some documents I want the macro to add characters to a certain word, but only if the word isn't within a tracked deletions, since that makes the added characters UN-tracked (undeleted), so when revisions are accepted the added characters remain while what?s around it is erased. I would have thought code like this: If Selection.Range.Revisions(1).Type = wdRevisionDelete Then [etc] ....where the Selection is only 1 word and definitely contains only 1 revision, would allow the code to evaluate accordingly and consistently (and in this case, skip the action that would be performed if the Selection had no tracking). But very often it behaves as if this line of code isn?t there, and the action after that line *is* performed, with unmanageable results. Testing with MsgBox Selection.Range.Revisions(1).Type seems to return equally baffling results -- often it returns the value of 1 for an insertion *or* a deletions. Am I using the wrong constant? I don?t see one that would mean the same thing. Any help appreciated. ------------ Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: Test for Administrator Tag: 82430
  - 25
    - Disable the Research Pane shortcut Is there a way to detach the CTRL-DoubleClick shortcut so that it doesn?t open the ?Research? Task Pane? I have no use for that feature (or frankly for any of the Task Panes -- I've always found them inefficient and pointlessly showy; but that shortcut itself used to invoke the very useful Select Current Table command. MS seems to have unbound it without saying anything -- as if upward compatibility is less important than furthering their apparent aim to enslave us all to these confounded Task Panes sputter sputter fume fume.... Is there perhaps a registry hack to do this? I don?t see a way to use KeyBindings to get rid of the association, let alone reestablish it for selecting the current table. Thanks for any help. ------------ Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: Test for Administrator Tag: 82429

I have a VBA routine that I want to run one way for a 'regular user' and
another way for a user with Adminstrator rights (or PowerUser rights). Can I
test for that via VBA coding?

Thanks.

Ed (in Virginia)

Top

Re: Test for Administrator by Jonathan

Jonathan
Thu Mar 16 06:19:23 CST 2006

Hi Ed in Virginia

This article shows you how to find out if you are running as administrator

LookupAccountSid: Determine if the Current Process is Running Under Admin
Account
http://vbnet.mvps.org/index.html?code/network/isadministrator.htm

The code example is VB6 rather than VBA, but the necessary tweaks to get it
working in VBA should be minimal.

--
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

"Ed" <ed@pathagoras.com> wrote in message
news:h%0Sf.13784$Tf3.10370@dukeread09...
>I have a VBA routine that I want to run one way for a 'regular user' and
>another way for a user with Adminstrator rights (or PowerUser rights). Can
>I test for that via VBA coding?
>
> Thanks.
>
> Ed (in Virginia)
>

Top