Type: Posts; User: westconn1
Search took 0.27 seconds.
not enough information
post a sample workbook here, rather than a hosted image
zip workbook first
if the templates are in a virtualized location it may cause an issue??
as you have not shown the code to open/ automate the word application, hard to guess
possibly word is displaying some dialog...
the code should always stop when the breakpoint is reached, when one is set, regardless of how it is called to run
that is why it is always quicker to assign a range of values to a 2D array for processing largish datas
if you are not sure, just rename instead, then can undo
as they are in temp folders it is unlikely they will be an issue if removed
having now read part of the information in the link, it seems...
yes as long as your macro security levels allow running of macros, but note a macro is code
what versions of word and excel are you ruinning?
if you post some sample data, and a desired...
you could try some stuff, such as a new workbook /document, add a button with some test code
do the procedures /macros start at all when the buttons clicked?
what command buttons are you using?...
you need to specify the worksheet, if it is not the activesheet
Set rngUserDefinedRange = sheets("mysheet").range(Application.InputBox( _
maybe that should be
dead.enabled = false
you could try changing this bit
For Each olItem In SubFolder.Items
If olItem.UnRead Then
' MsgBox olItem.Subject & vbLf & "has " &...
to get the last row try like, change column to suit
lastrow = .cells(.rows.count, 1).end(xlup).row
or to set a range, based on last used cells in column A...
what is in workbook open?
for total security, never turn computer on, guaranteed never get virus, otherwise live in the real world where viruses exist and just take reasonable precautions
most virus scanners, will detect...
i have seen a similar post before and believe it is some issue with outlook
google produced more information
Dim table_All As Excel.Range = currentCell.CurrentRegion
you can try like
Dim s As Worksheet
Set s = objwb.Sheets("blad1")
s.Shapes.AddPicture App.Path & "\test.bmp", msoFalse, msoCTrue, .Left, .Top, .Width, .Height
i would assume so, but without seeing the code you are using??
on testing, it would appear that changing to
Dim ie As SHDocVw.InternetExplorer
Private Sub Command1_Click()
Set ie = New SHDocVw.InternetExplorer
you can try like
selection.paragraphs(1).shapes(1).selectas i do not run word 2013 i can not test if it works in that version
go back to windows
without knowing what is in the macro there is no answer to this question
what actually happens when the macro is called? error? wrong result?
what version of internet explorer do you have?
later versions use ieframe.dll not shdocvw.dll
this would probably give the issue you have
that was going to be my next suggestion, there are many examples in this forum for using gmail with CDO
a recent thread discussed gmails increased server security, so you may need to read that as...
i have no problem sending to phonenumber based email addresses using CDO
possibly your isp may be blocking it for some reason
you would be better to parse the document as an htmlDocument, looking at the elements by tag name, rather than a text document, line input is not the fastest method of loading a textfile
i did some testing a short time ago
Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As _
Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
you need to put the entire code as in post #2, just update the 2 lines in post #4
you need to change the line that assigns the value to mypath, so that it includes the call to the function as in...
depends what else is in the module
if there are any declare subs or function, global variables or constants they should be at the top
if you just have procedures (subs or functions) then that is...
where does it crash?
the line as posted appears correct and tests ok
what code do you have now?
what errors are you getting when a crash occurs?
if there are many rows, looping through all cells could be slow
is there a column with unique values?
for a large data, you can try like this using ADO
Dim cn As Connection, rs As Recordset,...
you want a message for each row? or some report of number of expired rows?
where do you have it?
r = Dir(root & Format((job \ 100) * 100, "0000") & "*", vbDirectory)
If (GetAttr(root & r) And vbDirectory) And Len(r) > 0 Then
change these line, i...
that is actually automation of outlook from excel
in either case this in not really the correct forum, i will request this thread moved
.matchfuzzy = false
does the itemadd event run at all?
maybe stick a messagebox at the start, just so you can see if it is fired
Set Msg = Item
if there is an error raised in the code,...
yes of course?
but your sample value is out of that range
Function getpath(root As String, job As String) As String
r = Dir(root & Format(job \ 100 * 100, "0000") & "*", vbDirectory)
i doubt it
it would be beneficial to have more information, like the code of the macro
does outlook run continuously or is it shutdown each day?
does the code use any global or withevent...
how do you open the workbooks?
are you doing this from someother macro or script?
open the next workbook from the code in predecessor?
put the workbook names into an array in order
i know nothing about powerpoint, but you could try
else put a break point on that line and check in the locals window all the properties of sld, drill down to...
set the wrapformat of the shape, to allow text to wrap appropriately
check help or online to find the constants used
Click Here to Expand Forum to Full Width
Survey posted by VBForums.