网页设计基础代码网站线上推广的渠道有哪些

1、 deepseek介绍

深度求索（DeepSeek）是一家专注实现AGI（通用人工智能）的中国公司，成立于2023年，核心团队来自清华、北大等顶尖高校及知名科技企业。该公司开源了多个大模型，并在代码、数学推理等领域表现突出。以下是其代表性模型的介绍：

​1.1. 通用大模型

1.1.1 ​DeepSeek-R1

定位通用领域，支持复杂任务处理，如数据分析、逻辑推理等。
通过强化学习优化指令遵循能力，适合企业级场景（如客服、决策支持）。

1.1.2 DeepSeek 67B

670亿参数的闭源模型，在数学、代码等专业基准测试中超越Llama2、GPT-3.5。
支持长上下文窗口（最高128k tokens），适合长文本分析。

​1.2. 代码模型

​DeepSeek-Coder
支持33种编程语言，代码生成准确率高，尤其擅长Python、Java等主流语言。
提供代码补全、注释生成、错误修复等功能，开源版本（7B/33B）可在Hugging Face获取。

​1.3. 数学推理模型

​DeepSeek-Math
专攻数学问题求解，支持LaTeX公式解析，适用于教育、科研场景。
在MATH数据集上表现优异，能处理复杂数学证明和计算。

1.4. 多模态模型

​DeepSeek-Vision
结合视觉与语言理解，支持图像描述、图文问答、图表分析等跨模态任务。
可应用于内容审核、教育辅助等领域。

​1.5 技术亮点

• ​高效架构：采用MoE（混合专家）结构，如DeepSeek-MoE-16b-base，在保持模型规模的同时降低计算成本。
• ​长上下文优化：支持超长文本输入，减少信息截断问题。
• 开源生态：部分模型代码和权重开源（Apache 2.0协议），推动开发者社区共建。

1.6 deepseek 模式选择

1.6.1简单问答（不用选深度思考功能，默认使用V3）

简单事实类问题（如“某年某事件时间”）无需开启深度思考

1.6.2逻辑推理（深度思考,使用R1）

• 复杂数学题分步解答
• 代码逻辑优化与错误修复
• 长文本摘要与关键信息提取

1.6.3实时数据

涉及到实时数据的（2023年12月份之前的），关闭联网搜索
涉及到实时数据的（2023年12月份之后的），开启联网搜索

2、deepseek提示语技巧

参考视频文件：

首先，我是否正真的理清脑海中想法
其次，我是否能够通过文字准确传达这个想法

2.1 五个共识

• 共识1：忘记以前的提示模板：不需要角色设定，不需要思维链提示，不需要结构化提示词，不需要解释，不需要事例

• 共识2：仍需要告诉AI足够的背景信息：干什么、给谁干、目的是什么、约束是什么（我需要写一篇“妈妈的爱”的伦理文章，作为幼儿故事，简单易懂，幽默，且真实。字数限制200字）

• 共识3：用乔哈里分析你到底告诉AI多少信息
  

  • 人知道AI知道：简单说
    

    • 人知道AI不知道：喂投式
      

- 人不知道AI知道：提问题

 - 人不知道A不I知道：开放聊

• 共识4：是否可以大白话方式交流

• 共识5：是否需要指定思考步骤，取决与你是否希望AI严格执行
  

2.2 使用的8大技巧

技巧1：要求明确

技巧2：不要定义过程

技巧3：明确受众

技巧4： 联网功能（与最近实时相关的）

技巧5：补充额外信息

技巧6：上下文的联系VS清楚记忆

- 注意1：上下文记忆有限

- 注意2：输出长度有限

- 如何清楚之前的记忆

技巧7：反馈与迭代优化

 - 情况1：对做出回答进一步追问、优化

• 情况2：
  基于上面方案，重新复盘后生成一个新的方案
  
  

技巧8：复杂问题，分步拆解

3、deepseek使用之4大避坑

避坑1：冗长提示词污染关键词

避坑2：避免复杂句式和模糊词语

避坑3:

避坑4：过度角色扮演

4、场景举例

4.1 场景1 数学与物理题

4.2 场景2 代码能力

4.3场景3 写作&文案能力

4.4 场景4 文本摘要

4.5 场景5 生成图标（mermaid、svg、xmind）

4.5.1 生成mermaid流程图

生成mermaid文字后复制到在线转换器上就可以了

4.5.2生成mermaid甘特图

生成mermaid文字后复制到在线转换器上就可以了

4.6 场景6 日常生活

4.7 场景7 职业场景

4.8 场景8：简历生成

4.9 场景9 模拟面试

5、deepseek+xmind（生成脑图）

5.1 使用deepseek生成xmind的markdown文本

将你的要求输入deepseek，并要求生成xmind的markdown文本（生成mermaid格式也可以，后面操作一样，复制内容，转换为md文件）

5.2 将内容复制记事本并修改为md格式

将生成的内容复制到即记事本中，并将文件修改为md格式

5.3导入xmind

6、deepseek+kimi（生成PPT）

6.1 生成PPT文案大纲

在deepseek中提出你的需求，并要求按照markdown格式输出

6.2 利用kimi生成PPT主要内容

6.3 一键生成PPT

7、deepSeek+word

文件——选项——自定义功能——开发者工具

文件——选项——自定义功能——信任中心——信任中心设置——宏设置——勾选“启用所有宏”和“信任对VBA……”——确定——确定


开发工具——Visual Basic

以下有两种情况，第一种时在Normal中插入模块，第二种是在Project中插入模块。但插入模块的操作是一样的。先介绍插入模块操作。
右击（Normal/Project）——选择插入模块


R1模型代码（注意将“填写你的API KEY”内容改为你的API，引号不要去）

Function CallDeepSeekAPI(api_key As String, inputText As String) As StringDim API As StringDim SendTxt As StringDim Http As ObjectDim status_code As IntegerDim response As StringAPI = "https://api.deepseek.com/chat/completions"SendTxt = "{""model"": ""deepseek-reasoner"", ""messages"": [{""role"":""system"", ""content"":""请根据用户的问题给出详细的解答。""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"Set Http = CreateObject("MSXML2.XMLHTTP")With Http.Open "POST", API, False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & api_key.send SendTxtstatus_code = .Statusresponse = .responseTextEnd With' 弹出窗口显示 API 响应（调试用）' MsgBox "API Response: " & response, vbInformation, "Debug Info"If status_code = 200 ThenCallDeepSeekAPI = responseElseCallDeepSeekAPI = "Error: " & status_code & " - " & responseEnd IfSet Http = Nothing
End FunctionSub DeepSeekR1()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim reasoningRegex As ObjectDim contentRegex As ObjectDim matches As ObjectDim reasoningMatches As ObjectDim originalSelection As ObjectDim reasoningContent As StringDim finalContent As Stringapi_key = "填写你的API KEY"If api_key = "" ThenMsgBox "Please enter the API key."Exit SubElseIf Selection.Type <> wdSelectionNormal ThenMsgBox "Please select text."Exit SubEnd If' 保存原始选中的文本Set originalSelection = Selection.Range.DuplicateinputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")response = CallDeepSeekAPI(api_key, inputText)If Left(response, 5) <> "Error" Then' 创建正则表达式对象来分别匹配推理内容和最终回答Set reasoningRegex = CreateObject("VBScript.RegExp")With reasoningRegex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """reasoning_content"":""(.*?)"""End WithSet contentRegex = CreateObject("VBScript.RegExp")With contentRegex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """content"":""(.*?)"""End With' 提取推理内容Set reasoningMatches = reasoningRegex.Execute(response)If reasoningMatches.Count > 0 ThenreasoningContent = reasoningMatches(0).SubMatches(0)reasoningContent = Replace(reasoningContent, "\n\n", vbNewLine)reasoningContent = Replace(reasoningContent, "\n", vbNewLine)reasoningContent = Replace(Replace(reasoningContent, """", Chr(34)), """", Chr(34))End If' 提取最终回答Set matches = contentRegex.Execute(response)If matches.Count > 0 ThenfinalContent = matches(0).SubMatches(0)finalContent = Replace(finalContent, "\n\n", vbNewLine)finalContent = Replace(finalContent, "\n", vbNewLine)finalContent = Replace(Replace(finalContent, """", Chr(34)), """", Chr(34))' 取消选中原始文本Selection.Collapse Direction:=wdCollapseEnd' 插入推理过程（如果存在）If Len(reasoningContent) > 0 ThenSelection.TypeParagraphSelection.TypeText "推理过程："Selection.TypeParagraphSelection.TypeText reasoningContentSelection.TypeParagraphSelection.TypeText "最终回答："Selection.TypeParagraphEnd If' 插入最终回答Selection.TypeText finalContent' 将光标移回原来选中文本的末尾originalSelection.SelectElseMsgBox "Failed to parse API response.", vbExclamationEnd IfElseMsgBox response, vbCriticalEnd If
End Sub

V3模型代码（注意将“填写你的API KEY”内容改为你的API，引号不要去）

Function CallDeepSeekAPI(api_key As String, inputText As String) As StringDim API As StringDim SendTxt As StringDim Http As ObjectDim status_code As IntegerDim response As StringAPI = "https://api.deepseek.com/chat/completions"SendTxt = "{""model"": ""deepseek-chat"", ""messages"": [{""role"":""system"", ""content"":""You are a Word assistant""}, {""role"":""user"", ""content"":""" & inputText & """}], ""stream"": false}"Set Http = CreateObject("MSXML2.XMLHTTP")With Http.Open "POST", API, False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & api_key.send SendTxtstatus_code = .Statusresponse = .responseTextEnd With' 弹出窗口显示 API 响应（调试用）' MsgBox "API Response: " & response, vbInformation, "Debug Info"If status_code = 200 ThenCallDeepSeekAPI = responseElseCallDeepSeekAPI = "Error: " & status_code & " - " & responseEnd IfSet Http = Nothing
End FunctionSub DeepSeekV3()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim matches As ObjectDim originalSelection As Objectapi_key = "填写你的API KEY"If api_key = "" ThenMsgBox "Please enter the API key."Exit SubElseIf Selection.Type <> wdSelectionNormal ThenMsgBox "Please select text."Exit SubEnd If' 保存原始选中的文本Set originalSelection = Selection.Range.DuplicateinputText = Replace(Replace(Replace(Replace(Replace(Selection.text, "\", "\\"), vbCrLf, ""), vbCr, ""), vbLf, ""), Chr(34), "\""")response = CallDeepSeekAPI(api_key, inputText)If Left(response, 5) <> "Error" ThenSet regex = CreateObject("VBScript.RegExp")With regex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """content"":""(.*?)"""End WithSet matches = regex.Execute(response)If matches.Count > 0 Thenresponse = matches(0).SubMatches(0)response = Replace(Replace(response, """", Chr(34)), """", Chr(34))' 取消选中原始文本Selection.Collapse Direction:=wdCollapseEnd' 将内容插入到选中文字的下一行Selection.TypeParagraph ' 插入新行Selection.TypeText text:=response' 将光标移回原来选中文本的末尾originalSelection.SelectElseMsgBox "Failed to parse API response.", vbExclamationEnd IfElseMsgBox response, vbCriticalEnd If
End Sub

保存后关闭Visual Basic（注意不要关闭word）
文件——选项——自定义功能区——开发工具——新建组——重命名

点击选择新建的组——下拉位置选择命令——宏——选择相应模型——添加

重命名后确定——确定

验证：输入你要提问的问题——选中问题——点击开发工具中相应模型，
配置成功的化，会反馈相应结果。

注意如果你是在project中插入的模块，还需以下操作（在normal下插入模块无需下面操作）
另存为宏模板（如果不另存宏模板，打开其它word文件，仍然无法使用）


将存好的文件复制到 C:\Users\用户名\AppData\Roaming\Microsoft\Word\STARTUP目录下（当然你也可以在另存时直接存放到该路径下），操作前请将隐藏文件取消

8、deepseek+officeAI+word

officeAI下载地址
傻瓜是安装不再赘述

注册登录后设置模型

配置验证