word固定内容怎么插入

1.Word中快速插入固定内容怎么做?

写完文档，若需要添加自己的通讯信息，怎么才能快速插入通讯信息呢？方法有很多种，其一可用自动更正；其二从其它文件中插入；其三利用域；其四利用“自动图文集”。

通过一次的设置，今后任何时候都可随用随取。我这里用自动更正的方法来实现添加。

具体步骤如下： （1）先新建一个新的文档，录入自己的相关信息，设置完成。 如图所示。

（2）选中全部的文档内容，单击“Office”按钮，在弹出的菜单项中选择“Word 选项”按钮，打开“Word 选项”对话框单击“校对”选项，选择“自动更正选项”按钮。如图所示。

（3） “自动更正”在对话框中进行相关的设置， “自动更正”单击选项卡， “替换”在框内输“xinxi”，接着选中“带格式文本”选项，单击“添加”按钮。 最后单击“确定”按钮。

如图所示。 以后在文档只要输入“xinxi”并按下空格，原先录入的通讯信息就显示出来了。

以上便是分析内容，仅供参考。

2.如何将可以excel的内容生成固定格式的word文档?

得使用宏的编程！ Option Explicit Sub CreateWord() Dim i As Long Dim k As Long Dim iRow As Long Dim tmp As String Dim strRandList() As String Dim docApp As New Word。

Application '先要引用word库 With docApp '隐藏word文档 。Visible = False '新建一个word文件 。

Documents。Add DocumentType:=wdNewBlankDocument '单选 。

Selection。TypeText "一、单选" & vbCrLf tmp = GetRandList(20, Sheets（"单选"）。

Cells(65536, 3)。End(xlUp)。

Row - 1） '题目ID strRandList = Split(tmp, vbNullChar) For i = 0 To UBound(strRandList) iRow = strRandList(i) + 1 '题目ID比其所在行要少1，所以这里加1 。 Selection。

TypeText CStr(i + 1) & "。 " & Sheets（"单选"）。

Cells(iRow, 4) & vbCrLf For k = 1 To 4 。 Selection。

TypeText Chr(k + 64) & "。 " & Sheets（"单选"）。

Cells(iRow, k + 4) & vbCrLf Next 。 Selection。

TypeText "答案 " & Sheets（"单选"）。Cells(iRow, 9) & vbCrLf 。

Selection。TypeText "页码 " & Sheets（"单选"）。

Cells(iRow, 10) & vbCrLf 。Selection。

TypeText "解析 " & Sheets（"单选"）。Cells(iRow, 11) & vbCrLf & vbCrLf Next '多选 。

Selection。TypeText "二、多选" & vbCrLf tmp = GetRandList(10, Sheets（"多选"）。

Cells(65536, 3)。End(xlUp)。

Row - 1） '题目ID strRandList = Split(tmp, vbNullChar) For i = 0 To UBound(strRandList) iRow = strRandList(i) + 1 '题目ID比其所在行要少1，所以这里加1 。 Selection。

TypeText CStr(i + 1) & "。 " & Sheets（"多选"）。

Cells(iRow, 4) & vbCrLf For k = 1 To 4 。 Selection。

TypeText Chr(k + 64) & "。 " & Sheets（"多选"）。

Cells(iRow, k + 4) & vbCrLf Next 。 Selection。

TypeText "答案 " & Sheets（"多选"）。Cells(iRow, 9) & vbCrLf 。

Selection。TypeText "页码 " & Sheets（"多选"）。

Cells(iRow, 10) & vbCrLf 。Selection。

TypeText "解析 " & Sheets（"多选"）。Cells(iRow, 11) & vbCrLf & vbCrLf Next '判断 。

Selection。TypeText "三、判断" & vbCrLf tmp = GetRandList(20, Sheets（"判断"）。

Cells(65536, 3)。End(xlUp)。

Row - 1） '题目ID strRandList = Split(tmp, vbNullChar) For i = 0 To UBound(strRandList) iRow = strRandList(i) + 1 '题目ID比其所在行要少1，所以这里加1 。 Selection。

TypeText CStr(i + 1) & "。 " & Sheets（"判断"）。

Cells(iRow, 4) & vbCrLf For k = 1 To 2 。 Selection。

TypeText Chr(k + 64) & "。 " & Sheets（"判断"）。

Cells(iRow, k + 4) & vbCrLf Next 。 Selection。

TypeText "答案 " & Sheets（"判断"）。Cells(iRow, 9) & vbCrLf 。

Selection。TypeText "页码 " & Sheets（"判断"）。

Cells(iRow, 10) & vbCrLf 。Selection。

TypeText "解析 " & Sheets（"判断"）。Cells(iRow, 11) & vbCrLf & vbCrLf Next '保存文件 。

ActiveDocument。SaveAs ThisWorkbook。

Path + "\OK。doc" 。

ActiveDocument。Close 。

Quit End With Set docApp = Nothing MsgBox "finish !" End Sub Private Function GetRandList(ByVal RandCount As Long, ByVal upperbound As Long) As String Dim i As Long Dim tmp As Long Dim strResult As String strResult = vbNullChar For i = 1 To RandCount Randomize tmp = Int(upperbound * Rnd + 1) If InStr(strResult, vbNullChar & CStr(tmp) & vbNullChar) > 0 Then i = i - 1 Else strResult = strResult & CStr(tmp) & vbNullChar 'Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End If Next GetRandList = Mid(strResult, 2, Len(strResult) - 2) End Function。

3.求高手教路:如何将可以excel的内容生成固定格式的word文档? 爱问

得使用宏的编程！ Option Explicit Sub CreateWord() Dim i As Long Dim k As Long Dim iRow As Long Dim tmp As String Dim strRandList() As String Dim docApp As New Word。

Application '先要引用word库 With docApp '隐藏word文档 。Visible = False '新建一个word文件 。

Documents。Add DocumentType:=wdNewBlankDocument '单选 。

Selection。TypeText "一、单选" & vbCrLf tmp = GetRandList(20, Sheets（"单选"）。

Cells(65536, 3)。End(xlUp)。

Row - 1） '题目ID strRandList = Split(tmp, vbNullChar) For i = 0 To UBound(strRandList) iRow = strRandList(i) + 1 '题目ID比其所在行要少1，所以这里加1 。 Selection。

TypeText CStr(i + 1) & "。 " & Sheets（"单选"）。

Cells(iRow, 4) & vbCrLf For k = 1 To 4 。 Selection。

TypeText Chr(k + 64) & "。 " & Sheets（"单选"）。

Cells(iRow, k + 4) & vbCrLf Next 。 Selection。

TypeText "答案 " & Sheets（"单选"）。Cells(iRow, 9) & vbCrLf 。

Selection。TypeText "页码 " & Sheets（"单选"）。

Cells(iRow, 10) & vbCrLf 。Selection。

TypeText "解析 " & Sheets（"单选"）。Cells(iRow, 11) & vbCrLf & vbCrLf Next '多选 。

Selection。TypeText "二、多选" & vbCrLf tmp = GetRandList(10, Sheets（"多选"）。

Cells(65536, 3)。End(xlUp)。

Row - 1） '题目ID strRandList = Split(tmp, vbNullChar) For i = 0 To UBound(strRandList) iRow = strRandList(i) + 1 '题目ID比其所在行要少1，所以这里加1 。 Selection。

TypeText CStr(i + 1) & "。 " & Sheets（"多选"）。

Cells(iRow, 4) & vbCrLf For k = 1 To 4 。 Selection。

TypeText Chr(k + 64) & "。 " & Sheets（"多选"）。

Cells(iRow, k + 4) & vbCrLf Next 。 Selection。

TypeText "答案 " & Sheets（"多选"）。Cells(iRow, 9) & vbCrLf 。

Selection。TypeText "页码 " & Sheets（"多选"）。

Cells(iRow, 10) & vbCrLf 。Selection。

TypeText "解析 " & Sheets（"多选"）。Cells(iRow, 11) & vbCrLf & vbCrLf Next '判断 。

Selection。TypeText "三、判断" & vbCrLf tmp = GetRandList(20, Sheets（"判断"）。

Cells(65536, 3)。End(xlUp)。

Row - 1） '题目ID strRandList = Split(tmp, vbNullChar) For i = 0 To UBound(strRandList) iRow = strRandList(i) + 1 '题目ID比其所在行要少1，所以这里加1 。 Selection。

TypeText CStr(i + 1) & "。 " & Sheets（"判断"）。

Cells(iRow, 4) & vbCrLf For k = 1 To 2 。 Selection。

TypeText Chr(k + 64) & "。 " & Sheets（"判断"）。

Cells(iRow, k + 4) & vbCrLf Next 。 Selection。

TypeText "答案 " & Sheets（"判断"）。Cells(iRow, 9) & vbCrLf 。

Selection。TypeText "页码 " & Sheets（"判断"）。

Cells(iRow, 10) & vbCrLf 。Selection。

TypeText "解析 " & Sheets（"判断"）。Cells(iRow, 11) & vbCrLf & vbCrLf Next '保存文件 。

ActiveDocument。SaveAs ThisWorkbook。

Path + "\OK。doc" 。

ActiveDocument。Close 。

Quit End With Set docApp = Nothing MsgBox "finish !" End Sub Private Function GetRandList(ByVal RandCount As Long, ByVal upperbound As Long) As String Dim i As Long Dim tmp As Long Dim strResult As String strResult = vbNullChar For i = 1 To RandCount Randomize tmp = Int(upperbound * Rnd + 1) If InStr(strResult, vbNullChar & CStr(tmp) & vbNullChar) > 0 Then i = i - 1 Else strResult = strResult & CStr(tmp) & vbNullChar 'Int((upperbound - lowerbound + 1) * Rnd + lowerbound) End If Next GetRandList = Mid(strResult, 2, Len(strResult) - 2) End Function。

4.Excel中快速输入有固定内容的数据吗

很多情况下我们在Excel单元格中输入的数据是含有固定内容的，比如来自同一区县的身份证号码的前六位数字一定是相同的，或者来自同一县市的人的联系地址中省市县部分也是固定的。

这种情况下，如果老老实实地依次输入，效率就很低。怎样才能快速准确地输入这些含有固定内容的数据呢？以下的几个方法我想必有一种能帮你解决问题。

自动填充 如果数据含有固定内容，但同时又是有规律的数据，比如单位员工的职工编号，在某种排序的方式下，它们就是一个有规律的数列。这种情况下最简单最直接的方式就是使用自动填充。

比如需要输入的数据是“12345****”，后四位不一样，前五位数据都是一样的。 那么我们只需要在第一、二、三单元格分别输入 “123450001”、“123450002”、“123450003”，然后选中这三个单元格，并拖动该单元格区域的填充句柄向下拖动至需要的位置，就可以完成自动填充了。

如果固定内容为文字，但只要数字部分为有规律的序列，如“一车间001”、“一车间002”等，也可以使用此办法。 设置单元格格式 如果需要输入的数据不能自动填充，那么我们还可以借助设置单元格格式来简化我们的工作。

比如需要输入的数据是一组14位的数字，其中前十位都是“0737070680”，只有后4位不一样。通过设置单元格格式，就可以只输入后4位数字，让前十位数字自动添加。

实现办法是：选中数据所在的单元格区域，然后点击右键，在弹出的快捷菜单中选择“设置单元格格式”命令，打开“设置单元格格式”对话框。在“数字”选项卡的“分类”列表中点击“自定义”，然后在右侧的“类型”输入框中输入“0737070680000#”（不含引号），也就是说输入前面共同的部分，后四位中前三位输入 “0”，第四位输入“#”。

这样输入时只要在单元格中直接输入“1”、“2”、“3”等，就可以直接补全为14位数字了。 如果数据中含有固定的文本，比如前几个字都是“山东省潍坊市”，那么我们也可以在这个自定义的“类型”输入框中输入“"山东省潍坊市"@”。

以后输入时这几个字也就可以自动添加了。 这种方法在屏幕上显示的是全部数据，但是点击单元格我们可以在编辑栏中看到实际数据只是我们手工输入的部分。

公式合并 假设数据包含固定内容“山东省潍坊市”，需要输入到A2:A10单元格区域。我们可以在B2:B10区域先输入数据中除固定内容以外的那些内容，然后点击A2单元格，输入公式“="山东省潍坊市"&B2”，完成后拖动此单元格填充句柄向下复制公式至A10单元格就可以得到完整数据了。

再选中A2:A10单元格区域，按下“Ctrl+C”复制数据。点击右键，在弹出的菜单中点击“选择性粘贴”命令，在打开的对话框中选中“数值”单选项，确定后，就可以删除B列数据了。

以上就是本文主要内容，希望可以帮助得到你，其实只要你认真阅读，一定可以找到你想要的答案，加油。