Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub PasteButton_Click() If Selection.Document = copydoc Then MsgBox "please select a location in the Desination document." Exit Sub End If Dim oRng As Range, oStart As Range Set oRng = Selection.Range Set oStart = Selection.Range With oRng .PasteSpecial DataType:=wdPasteRTF, Placement:=wdInLine .Start = oStart.Start .Font.Name = ActiveDocument.Styles("Normal").Font.Name .Font.Size = ActiveDocument.Styles("Normal").Font.Size .Font.ColorIndex = ActiveDocument.Styles("Normal").Font.ColorIndex End With copydoc.Activate Selection.Font.StrikeThrough = wdToggle Selection.MoveRight unit:=wdCharacter, count:=1 Unload Me End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.