header + footer babe boo

Posted: March 26, 2012 in Uncategorized

Sub Macro11()

‘ Macro11 Macro
‘ Macro recorded 1/29/2007 by Jeff

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
 ActiveWindow.Panes(2).Close
 End If
 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
 ActivePane.View.Type = wdOutlineView Then
 ActiveWindow.ActivePane.View.Type = wdPrintView
 End If
 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
 Selection.TypeText Text:=”Bui Tan Phat    VN077       0028 “
 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
 Selection.TypeText Text:=” “
 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime
 Selection.Find.ClearFormatting
 
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
 ActivePane.View.Type = wdOutlineView Then
 ActiveWindow.ActivePane.View.Type = wdPrintView
 End If
 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    “FILENAME “, PreserveFormatting:=True
 Selection.TypeText Text:=” “
 Selection.TypeText Text:=”Created on”
 Selection.TypeText Text:=” “
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    “PAGE “, PreserveFormatting:=True
 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

HEader

Posted: March 25, 2012 in Uncategorized

Sub nanana()

‘ nanana Macro

‘ nananana

    Selection.WholeStory

    Selection.Shading.Texture = wdTextureNone

    Selection.Shading.ForegroundPatternColor = wdColorAutomatic

    Selection.Shading.BackgroundPatternColor = wdColorYellow

    With Selection.Tables(1)                                                                                               

        With .Borders(wdBorderLeft)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth300pt

            .Color = 12611584

        End With

        With .Borders(wdBorderRight)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth300pt

            .Color = 12611584

        End With

        With .Borders(wdBorderTop)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth300pt

            .Color = 12611584

        End With

        With .Borders(wdBorderBottom)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth300pt

            .Color = 12611584

        End With

        With .Borders(wdBorderHorizontal)

            .LineStyle = wdLineStyleSingle

            .LineWidth = wdLineWidth300pt

            .Color = 12611584

        End With

        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone

        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone

        .Borders.Shadow = False

    End With

    With Options

        .DefaultBorderLineStyle = wdLineStyleSingle

        .DefaultBorderLineWidth = wdLineWidth300pt

        .DefaultBorderColor = 12611584

    End With

   

 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

 ActiveWindow.Panes(2).Close

 End If

 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

 ActivePane.View.Type = wdOutlineView Then

 ActiveWindow.ActivePane.View.Type = wdPrintView

 End If

 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 Selection.TypeText Text:=”Nguyen Tuan Anh                          VN077                               0043″

 Selection.Find.ClearFormatting

 

 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

 ActivePane.View.Type = wdOutlineView Then

 ActiveWindow.ActivePane.View.Type = wdPrintView

 End If

 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

 

  Application.PrintOut FileName:=””, Range:=wdPrintAllDocument, Item:= _

        wdPrintDocumentContent, Copies:=1, Pages:=””, PageType:=wdPrintAllPages, _

        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _

        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

        PrintZoomPaperHeight:=0

 

End Sub

anthony cute

Posted: March 23, 2012 in Uncategorized

Private Sub Document_New()

Dim ThisWordWindow As Word.Application

Dim ThisDocument As Document

Dim ThisCursor As Selection

Dim Name As String

Dim Address As String

Dim Base As Double

Dim Height As Double

 

Set ThisWordWindow = GetObject(, “Word.Application”)

Set ThisDocument = ThisWordWindow.ActiveDocument

Set ThisCursor = ThisWordWindow.Selection

 

Menu:

Selection = InputBox(“Please one of the options below:” _

+ Chr$(10) + “1.Insert Picture” _

+ Chr$(10) + “2.Insert Text” _

+ Chr$(10) + “3.Personal Details” _

+ Chr$(10) + “4.Calculate are of the triangle” _

+ Chr$(10) + “Q.Quit”, “Options Menu”)

Select Case Selection:

Case “1”:

InsertPicture (“C:\Users\Thoai\Pictures\235217.jpg”)

Case “2”:

Name = InputBox(“What is your name?”, “Name Prompt”)

ThisCursor.TypeText (“Dear ” + Name) + Chr$(10)

ThisCursor.TypeText (“I have the pleasure providing you the information”)

Case “3”:

Address = InputBox(“What is your address?”, “address prompt”)

MsgBox (“Your address is” + Str$(Address) + Chr$(10))

Case “4”:

Base = InputBox(“What is the base of the triangle?”, “Base Prompt”)

Height = InputBox(“What is the height of the triangle?”, “Height Prompt”)

Result = Base * Height / 2

MsgBox (“The area of the triangle is” + Str$(Result) + Chr$(10))

Case “Q”:

GoTo Menu

End Select

End Sub

 

Sub InsertPicture(Filename As String)

Dim ashape As Shape

Set ashape = ActiveDocument.Shapes.AddPicture(Filename)

ashape.WrapFormat.Type = wdWrapSquare

End Sub

selection

Posted: March 23, 2012 in Uncategorized

Private Sub Document_New()
Dim ThisWordWindow As Word.Application
Dim ThisDocument As Document
Dim ThisCursor As Selection
Dim Selection As String
Dim UserName As String
Dim Document As String
Dim Picture As String

Set ThisWordWindow = GetObject(, “Word.Application”)
Set ThisDocument = ThisWordWindow.ActiveDocument
Set ThisCursor = ThisWordWindow.Selection
Menu:
UserName = InputBox(“What is your username?”, “UserName”)
ThisCursor.TypeText (UserName + Chr$(10))

Selection = InputBox(“What type of document do you want to select?” _
+ Chr$(10) + “1. Letter” _
+ Chr$(10) + “2. Short notice” _
+ Chr$(10) + “3. Report” _
+ Chr$(10) + “Q. Quit”, “Options Menu”)

If Selection = “1” Then
ThisCursor.TypeText (“Letter” + Chr$(10))
Picture = InputBox(“What picture you want to insert?”, “Picture”)
InsertPicture (“H:\” + Picture)
ElseIf Selection = “2” Then
ThisCursor.TypeText (“Short notice” + Chr$(10))
Picture = InputBox(“What picture you want to insert?”, “Picture”)
InsertPicture (“H:\” + Picture)
ElseIf Selection = “3” Then
ThisCursor.TypeText (“Report” + Chr$(10))
Picture = InputBox(“What picture you want to insert?”, “Picture”)
InsertPicture (“H:\” + Picture)
ElseIf Selection = “Q” Then
End
Else
GoTo Menu
End If
End Sub

Sub InsertPicture(FileName As String)
Dim ashape As Shape
Set ashape = ActiveDocument.Shapes.AddPicture(FileName)
ashape.WrapFormat.Type = wdWrapThrough

End Sub

insert picture

Posted: March 23, 2012 in Uncategorized

Private Sub Document_New()

Dim ThisWordWindow As Word.Application

    Dim ThisDocument As Document

    Dim ThisCursor As Selection

    Dim Selection As String

    Dim ashape As Shape

    

    Set ThisWordWindow = GetObject(, “Word.Application”)

    Set ThisDocument = ThisWordWindow.ActiveDocument

    Set ThisCursor = ThisWordWindow.Selection

    

Menu:

    Selection = InputBox(“What do you want to do?” _

        + Chr$(10) + “1. Entei” _

        + Chr$(10) + “2. Raikou” _

        + Chr$(10) + “3. Suicune” _

        + Chr$(10) + “4. Lugia” _

        + Chr$(10) + “Q. Quit”, “Options Menu”)

        

    Select Case Selection

    Case “1”

    InsertPicture (“H:\entei.png”)

    

    Case “2”

    InsertPicture (“H:\No__243___Raikou_by_Nyaasu.jpg”)

    

    Case “3”

    InsertPicture (“H:\Suicune.jpg”)

  

    Case “4”

    InsertPicture (“H:\Lugia.png”)

    

    

    Case “Q”

    GoTo Menu

    End Select

    End Sub

 

Sub InsertPicture(FileName As String)

    Dim ashape As Shape

    Set ashape = ActiveDocument.Shapes.AddPicture(FileName)

    ashape.WrapFormat.Type = wdWrapThrough

    

End Sub

 

calculation

Posted: March 23, 2012 in Uncategorized

Private Sub Document_Open()

    Dim ThisWordWindow As Word.Application

    Dim ThisDocument As Document

    Dim ThisCursor As Selection

    Dim Selection As String

    Dim Radius As Double

    Dim Height As Double

    Dim Result As Double

    Dim Width As Double

    Dim Base As Double

 

 

    Set ThisWordWindow = GetObject(, “Word.Application”)

    Set ThisDocument = ThisWordWindow.ActiveDocument

Set ThisCursor = ThisWordWindow.Selection

 

Menu:

    Selection = InputBox(“What do you want to do?” _

        + Chr$(10) + “1. Calculate the volume of a cylinder” _

        + Chr$(10) + “2. Calculate the area of a triangle” _

        + Chr$(10) + “3. Calculate the area of a rectangle” _

        + Chr$(10) + “4. Calculate the volume of a cone” _

        + Chr$(10) + “Q. Quit”, “Options Menu”)

  

    Select Case Selection

    Case “1”

        Radius = InputBox(“What is the radius of the circle?”, “Radius”)

        Height = InputBox(“What is the height of the circle?”, “Height”)

        Result = 3.14 * Radius ^ 2 * Height

        MsgBox (“The Result of the volume of the cylinder is” + Str$(Result) + Chr$(10))

        

    Case “2”

        Base = InputBox(“What is the base of the triangle?”, “Base”)

        Height = InputBox(“What is the height of the triangle?”, “Height”)

        Result = (Base * Height) / 2

        MsgBox (“The resut of the area of the triangle is” + Str$(Result) + Chr$(10))

    Case “3”

        Width = InputBox(“What is the width of the rectangle?”, “Width”)

        Height = InputBox(“What is the height of the rectangle?”, “Height”)

        Result = Width * Height

        MsgBox (“The result of the area of a rectangle is” + Str$(Result) + Chr$(10))

    Case “4”

        Radius = InputBox(“What is the radius of the base?”, “Radius”)

        Height = InputBox(“What is the height of the cone?”, “Height”)

        Result = (1 / 3) * 3.14 * Radius ^ 2 * Height

        MsgBox (“The resulf of the volume of the cone is” + Str$(Result) + Chr$(10))

    Case “Q”

    GoTo Menu

    End Select

 

End Sub

Love ICT

Posted: March 1, 2012 in Uncategorized

Private Sub Document_Open()

Dim ThisWordWindow As Word.Application

Dim ThisDocument As Document

Dim ThisCursor As Selection

Dim CustomerAddress As String

Dim CustomerName As String

Dim aShape As Shape

 

Set ThisWordWindow = GetObject(, “Word.Application”)

Set ThisDocument = ThisWordWindow.ActiveDocument

Set ThisCursor = ThisWordWindow.Selection

 

InsertPicture (“C:\Documents and Settings\200780934\Desktop\spring\pb.jpg”)

CustomerAddress = InputBox(“What’s your address?”, “Customer’s address prompt”)

ThisCursor.TypeText (“Address: ” + CustomerAddress) + Chr$(10) + Chr$(10) + Chr$(10)

CustomerName = InputBox(“What’s your name?”, “Customer’s address prompt”)

ThisCursor.TypeText (“Dear” + CustomerName) + Chr$(10) + Chr$(10)

ThisCursor.TypeText (“I have pleasure to meet you “) + Chr$(10) + Chr$(10)

 

End Sub

Sub InsertPicture(FileName As String)

    Dim aShape As Shape

    Set aShape = ActiveDocument.Shapes.AddPicture(FileName)

    aShape.WrapFormat.Type = wdWrapThrough

   

End Sub

 

Private Sub Document_Open()

    Dim ThisWordWindow As Word.Application

    Dim ThisDocument As Document

    Dim ThisCursor As Selection

    Dim Selection As String

    Dim Name As String

    Dim Address As String

    Dim Email As String

 

    Set ThisWordWindow = GetObject(, “Word.Application”)

    Set ThisDocument = ThisWordWindow.ActiveDocument

Set ThisCursor = ThisWordWindow.Selection

 

 Menu:  

    Selection = InputBox(“What do you want to do?” _

        + Chr$(10) + “1. Enter the student name only” _

        + Chr$(10) + “2. Enter the student name and address” _

        + Chr$(10) + “3. Enter the student name, address and e-mail” _

        + Chr$(10) + “Q. Quit”, “Options Menu”)   

 

    If Selection = “1” Then

        Name = InputBox(“What is the student’s name?”, “Name”)

        ThisCursor.TypeText (Name + Chr$(10))

    ElseIf Selection = “2” Then

        Name = InputBox(“What is the student’s name?”, “Name”)

        Address = InputBox(“What is the student’s address?”, “Address”)

        ThisCursor.TypeText (Name + Chr$(10) + Address)

    ElseIf Selection = “3” Then

        Name = InputBox(“What is the student’s name?”, “Name”)

        Address = InputBox(“What is the student’s address?”, “Address”)

        Email = InputBox(“What is the student’s e-mail address?”, “Email”)

        ThisCursor.TypeText (Name + Chr$(10) + Address + Chr$(10) + Email)

ElseIf Selection = “Q” Then

    End

Else

    GoTo Menu

    End If

End Sub

Freestyle

Posted: December 30, 2010 in Uncategorized

WATCHING TELEVISION IS LIKELY TO BE BAD FOR CHILDREN

Many concerns arouse from the potency of television upon children. Most of research nowadays has entirely focused on the content of programmes. Watching violent channels lead to the distortion of children behaviors, which they would act hostilely. In intelligible view, watching television whether it is good or bad channels, it still has an influence on children. It prevents children from gaining experiences and the outside world. The continuous commercial breaks also pose a bad effect on children that they encourage them to buy unhealthy foods and stylish toys. In addition, TV also gives children their answer so they do not need to find out themselves. It makes children become dependence and takes them away from the exploration of their fundamental skills. The typical example is that while children are watching TV, they usually do not speak much, which contributes to the lack of practicing verbal skills. With parental misunderstood about the effects of TV, children are being buried in their fantasy world which is isolated to the outside. Granted, it’s remaining a dilemma of this twentieth century.

Space travel
According to Clarke, in this human race, everything seems possible towards human. For instance, long time ago, the studies without man reached to another planet while some sailors were sailing around the world. Distance and time are no longer affected the space travel. However, in spaceflight field, they need something more than just patriotisms, in particular strong basis in order to go further. Space travel is inevitably because humans are not having enough equipments as well as abilities to do some peculiar experiments in the outer space. They could not build up a technological environment and adapt with the conditions in other planets. The typical example, displaying in this passage is that environment of Pluto and Mercury will inevitably change people thinking. There will be some long -term effects for this evolution like the Darwin’s theory of evolution. Finally, there will be further desires reaching to Stella not planets that still remain unanswered.

Asia’s Challenge 2010

Posted: December 14, 2010 in Uncategorized

The purpose of this article is to discuss and state the writer’s opinion or point of view of the writer about the inequalities wealth distribution in Asia.

The thesis statement is ” Inclusive development must be offered to all Asian”.  The writer uses this sentence in order to link back to the topic about the inequalities in wealth in Asia.   It also helps people to know what he’s going to talk about in those next paragraphs.  It’s short compared to most of the articls or essay but it’s very effective and easy to remember.  It has a long lasting impact on people’s mind

In the begining of the article, the writer uses anecdote to tell the story about the Singapore women who sells many boxes of tissue in order to survive in this modern and tough life.  He tries to provoke the sympathy from the readers and finally, draw out it is just one in millions.  In addition, he also exaggerates alot in this article by using many fancy words such as swanky, smartly dresses, affluent and so on.  Thw writer also uses information and data from different sources: infamous, well-known or creditable organization such a Multidimensional Pverty Index.  He list out a lot of statistics which reflects pretty much what is the situation like nowsaday.

It’s very good article and I have learn a lot while reading it.

Persuasive technique

Posted: December 13, 2010 in Uncategorized

Attacks are a technique which makes the oppostie ideas or opinions seem less credible in order to dominate your argument. The idea is that the weaker you can make your opposition appear, the stronger you and your contention will appear.

 Example: “Many people think that electric lighting has improved everyone’s overall quality of life. I will argue that since electric lights have artificially lengthened our awake period, and since they do not prompt the body to produce certain vitamins in the same way the sun prompts our bodies, electric lights have, in fact, brought about negative effects that ultimately outweigh the positive ones. Electric lights have decreased our overall quality of life.”

Colloquial (slang) language can be used in different ways. Itis determined where the writer is: social group or just himself or herself..A writer may also use slang in a sarcastic manner, to attack an opponent or mock an argument. It may also be used to appeal to a reader’s own sense of cultural identity, or reinforce a writer’s overall tone.

Example text: She’s a top sheila that Jessica Rowe. Channel Nine are stark raving to give her the boot

 Like many persuasive techniques, emotive appeals aim to engage people’s feelings, not logic or reason. If a writer can manipulate a reader to feel a certain way, that reader should be more likely to agree with the writer’s overall contention. Often writers will use other forms of persuasive language techniques in order to appeal to people’s emotions.

 Example: In our society today there are people living without food or adequate shelter. Such basics of life can be provided if those of us who can afford to, give to organisations such as the Salvation Army, to help those unable to help themselves.

Inclusive language aims to directly address the reader, either personally or as a member of a shared group. This involves using such words as us, we, you, our.

Example text: It is time for us to show our belief in the value of mateship and a fair go, and give generously to the Good Friday Appeal.

 A rhetorical question is one in which the answer is so obvious it is not required. The idea here is not to receive an answer, merely to reinforce a point. Example text: Should footballers be treated as above the law? A writer may describe a situation in forceful, overblown language in order to make the issue seem more important or urgent than it may otherwise be considered.

Exaggerating the scale of an issue can draw an emotional response from a reader. Also known as hyperbole.

Example text: Councils are losing the war against vandals.

There are three types of emphasis that writers use to draw the reader’s attention to a specific point or idea: Repetition; Cumulation and Alliteration

Repetition Repeating a single word a number of times over is repetition.

Example text: We will all suffer for years to come unless we stop this government, stop them in the workplace, stop them in the polls, and stop them on election day.

 Cumulation Using many similar words in a short space is cumulation.

Example text: This task requires guts, determination, grit and willpower.

Alliteration Repetition of the first sound in consecutive words is alliteration.

Example text: To rip people off so blatantly shows Mr. Craven to be cruel, calculating and crooked.

There are three main types of evidence: Anecdotal; Expert Opinion and Statistical Anecdotal evidence

An anecdote is a tale involving real life events, a true story. Such stories can be used by writers as evidence to back their claims. To support a contention, and to make themselves appear more credible, writers often use personal anecdotes.

Example text: I can tell you that, as a single mother of two, I received very little in the way of financial support during my attempts to return to fulltime work.

Expert opinion To make a writer’s position seem more credible, they may quote the opinions of experts that correspond with their own. As in a court case, experts are often called on to make one side seem stronger and more believable.

 Example text: My stand on the issue of exposed underwear is supported by fashion designer Ruby Reed, who recently stated: “Anyone whose underwear is exposed due to low slung jeans should be punished as forcefully as possible.”

Statistical evidence Like any form of evidence, statistics can be used to make an argument seem more conclusive, a writer’s opinion more valid. Often statistics are used that are out of context, or from unreliable sources. As the saying goes, “There are lies, damned lies, and statistics.” Example text: A recent survey found that 90% of students favoured no school uniforms at all.