featured_spectre

@StevieM mind doing a donation of your beard? I'd love to have those beard genetics!

so is it a good game? Every time I've seen it, reminds me of this.. http://i.imgur.com/Z8FJ3Km.png

Can I just update this topic...since we had an engineer brick our laptop, I got it restored with a newer BIOS, exact same model as this laptop. I did the following to get MBR on this laptop. Set BIOS to UEFI Add supervisor password Turn off secure boot Run through windows install The HDD from here was MBR and not GPT

Instead of the lobster meal with expensive wine you will have a meal from the set menu for £10 and a glass of water...

Ahh embiggen. Its such a cromulent word

18/20....that was much harder.

We use DiskCrypt here anyways, so not much affected but our old win XP machines which are nearly gone anyways (only 1 left). diskcrypt was the only one we could find that did GPT and UEFI and didn't cost anything.

35/36, only one I got wrong was 2nd from bottom.

OK, I need help here I have created a Macro, which *should* allow someone to click a button, and it opens and prints all attachments (some people here get emails with around 200+ attachments and it is a hassle to open each one manually then print). Sub AttachmentPrint(Item As Outlook.MailItem) On Error GoTo OError 'detect Temp Dim oFS As FileSystemObject Dim sTempFolder As String Set oFS = New FileSystemObject 'Temporary Folder Path sTempFolder = oFS.GetSpecialFolder(TemporaryFolder) 'creates a special temp folder cTmpFld = sTempFolder & "\OETMP" & Format(Now, "yyyymmddhhmmss") MkDir (cTmpFld) 'save & print Dim oAtt As Attachment For Each oAtt In Item.Attachments FileName = oAtt.FileName FullFile = cTmpFld & "\" & FileName 'save attachment oAtt.SaveAsFile (FullFile) 'prints attachment Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(0) Set objFolderItem = objFolder.ParseName(FullFile) objFolderItem.InvokeVerbEx ("print") Next oAtt 'Cleanup If Not oFS Is Nothing Then Set oFS = Nothing If Not objFolder Is Nothing Then Set objFolder = Nothing If Not objFolderItem Is Nothing Then Set objFolderItem = Nothing If Not objShell Is Nothing Then Set objShell = Nothing OError: If Err <> 0 Then MsgBox Err.Number & " - " & Err.Description Err.Clear End If Exit Sub End Sub Trouble is, outlook 2010 doesn't see it as a macro.

Doesn't worth with entries where the name is written by VeryPC...so choice is invalid!

Not a school, but 2 people, supporting 67 PCs, 12 servers (mainly virtualised now) in 1 office, and 37 PCs in a separate office, plus maintaining a terminal server connection for everyone also.

Good thing I try to deal directly with the source rather than the shops where possible. Demand has gone up but he isn't seeing the increase that the shops are putting on. I paid more per KG than he sells to shops, but I don't mind, as I still got it cheaper than if I were to go to the shops. Will also speak to him about rapeseed as well when that gets harvested so I can make my own oil as well!

speaking of Lizard Overlords...... Lie Witness News - Godzilla Edition - YouTube

I made some of my own (a local farmer grows spelt near me). Picked up a 10kg bag of spelt grains for £20. Crushed it first to see if there was any oil worth having (there isn't, it burns at too low a temperature). I ground up the remaining and got around 7kg of good flour out of it (the rest of the weight were the husks, which I ground up to add crunch in my loaves). It is gentler on my stomach, but it still has a reasonable gluten content. I shall be using this flour for thickening sauces (as it is better than cornflour and adds a very good taste), and using it half and half with my hemp flour for my loaves.

For a soft white bread, if you bake in the oven, add a full tray of ice cubes or very cold water to the bottom of the oven and put it in when you start the bread. It steams up eventually and makes the crust soft as it develops. You do not want to put warm or hot water in as it will steam up too soon and make the bread soggy. In a bread machine, not a clue!

That's a nice TNETTENBA

http://hotmeme.net/media/i/1/5/kWS-prize.jpg

Compounds are fun...great poundage for less exertion.

No, I spoke with my bank, set up another bank account. If I make purchases that are foreign or I do not know the source, I use that account, as it has limited funds and only has what I put in from my main account.

Not entirely accurate. Bow hunting is legal on private land with land owners permission, provided you are not hunting an endangered species or out of season. You also need Certification from IBEP (International Bowhunter Education Program) before you can bow hunt. The British Bowhunting Association offers the training and accreditation on this. Also, if you have an IBEP certification, you can legally bow hunt in Denmark, Germany and France also. Also if you join BASC at the same time, you get a few benefits which extend to rifle hunting, angling etc. *edit* I should add, the Wildlife and Countryside Act 1981 only prohibits bow hunting on public land, conservation sites, national parks and wildlife parks, and prohibits the use of certain types of arrowheads such as the Broadhead. However if you watch shows like Ray Mears for example, he demonstrates bow hunting in the UK, once he has gained the relevant permissions from land owners (which is not shown).

working fine...appreciate it! Thanks!

haha. It is telling me it isn't a macro, so I made it a sub, and added an end sub, then it fails on opening. Just can't get it to work! Can you export it and post it up on here?

The postcode lookup one is handy for here, @LosOjos however, I can't seem to get it to work. Any help?

lol...loving the vid! Nicely done!

Oh I also have macros for inserting watermarks on all pages (yes people are that lazy here! haha). But in Word 2010, it is a nuisance that the watermark only appears on the top page unless you go through the procedure of doing a custom one every time. Atleast with this, it cuts down the time (and phone calls). We also added in a few of our own as well, but these are the standard ones. Also, only 1 watermark at a time works with this, but I've never known someone to need a combination of watermarks however. Sub InsertDraftWaterMark() ActiveDocument.Sections(1).Range.Select ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes.AddTextEffect( _ PowerPlusWaterMarkObject, "DRAFT", "Calibri", 1, False, False, _ 0, 0).Select Selection.ShapeRange.Name = "PowerPlusWaterMarkObject" Selection.ShapeRange.TextEffect.NormalizedHeight = False Selection.ShapeRange.Line.Visible = False Selection.ShapeRange.Fill.Visible = True Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192) Selection.ShapeRange.Fill.Transparency = 0.5 Selection.ShapeRange.Rotation = 315 Selection.ShapeRange.LockAspectRatio = True Selection.ShapeRange.Height = CentimetersToPoints(8.42) Selection.ShapeRange.Width = CentimetersToPoints(14.03) Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapNone Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Sub InsertCopyWaterMark() ActiveDocument.Sections(1).Range.Select ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes.AddTextEffect( _ PowerPlusWaterMarkObject, "COPY", "Calibri", 1, False, False, _ 0, 0).Select Selection.ShapeRange.Name = "PowerPlusWaterMarkObject" Selection.ShapeRange.TextEffect.NormalizedHeight = False Selection.ShapeRange.Line.Visible = False Selection.ShapeRange.Fill.Visible = True Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192) Selection.ShapeRange.Fill.Transparency = 0.5 Selection.ShapeRange.Rotation = 315 Selection.ShapeRange.LockAspectRatio = True Selection.ShapeRange.Height = CentimetersToPoints(8.42) Selection.ShapeRange.Width = CentimetersToPoints(14.03) Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapNone Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Sub InsertConfidentialWaterMark() ActiveDocument.Sections(1).Range.Select ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes.AddTextEffect( _ PowerPlusWaterMarkObject, "CONFIDENTIAL", "Calibri", 1, False, False, _ 0, 0).Select Selection.ShapeRange.Name = "PowerPlusWaterMarkObject" Selection.ShapeRange.TextEffect.NormalizedHeight = False Selection.ShapeRange.Line.Visible = False Selection.ShapeRange.Fill.Visible = True Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192) Selection.ShapeRange.Fill.Transparency = 0.5 Selection.ShapeRange.Rotation = 315 Selection.ShapeRange.LockAspectRatio = True Selection.ShapeRange.Height = CentimetersToPoints(8.42) Selection.ShapeRange.Width = CentimetersToPoints(14.03) Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapNone Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionMargin Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Sub RemoveWaterMark() Dim oSection As Section Dim oHeader As HeaderFooter Dim oRng As Range Dim oShape As Shape For Each oSection In ActiveDocument.Sections For Each oHeader In oSection.Headers If oHeader.Exists Then Set oRng = oHeader.Range oRng.End = oRng.Paragraphs(1).Range.End - 1 For Each oShape In oRng.ShapeRange If oShape.Type = 15 Then oShape.Delete Next oShape End If Next oHeader Next oSection End Sub